[win32] add Nick's dTHR fixes

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

diff --git a/op.c b/op.c
index e30e874..9257434 100644 (file)
--- 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 (file)
--- 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);