From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 5 Mar 1998 19:56:17 +0000 (+0000)
Subject: [win32] add Nick's dTHR fixes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9c82454c97e6b03ea96c9a17bf8b898d470e0064;p=p5sagit%2Fp5-mst-13.2.git

[win32] add Nick's dTHR fixes

p4raw-id: //depot/win32/perl@787
---

diff --git a/op.c b/op.c
index e30e874..9257434 100644
--- a/op.c
+++ b/op.c
@@ -87,6 +87,7 @@ assertref(OP *o)
     if (type != OP_AELEM && type != OP_HELEM) {
 	yyerror(form("Can't use subscript on %s", op_desc[type]));
 	if (type == OP_ENTERSUB || type == OP_RV2HV || type == OP_PADHV) {
+	    dTHR;
 	    SV *msg = sv_2mortal(
 			newSVpvf("(Did you mean $ or @ instead of %c?)\n",
 				 type == OP_ENTERSUB ? '&' : '%'));
diff --git a/scope.c b/scope.c
index 9d4573b..73aadff 100644
--- a/scope.c
+++ b/scope.c
@@ -435,6 +435,7 @@ save_delete(HV *hv, char *key, I32 klen)
 void
 save_aelem(AV *av, I32 idx, SV **sptr)
 {
+    dTHR;
     SSCHECK(4);
     SSPUSHPTR(av);
     SSPUSHINT(idx);
@@ -446,6 +447,7 @@ save_aelem(AV *av, I32 idx, SV **sptr)
 void
 save_helem(HV *hv, SV *key, SV **sptr)
 {
+    dTHR;
     SSCHECK(4);
     SSPUSHPTR(hv);
     SSPUSHPTR(key);