[win32] add Nick's dTHR fixes

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

1 files changed, 2 insertions, 0 deletions

diff --git a/scope.c b/scope.c
index 9d4573b2e2..73aadff141 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);