aTHX may be empty

p4raw-id: //depot/perl@16462

diff --git a/win32/win32.c b/win32/win32.c
index 78f14eb..ca684c8 100644 (file)
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -4665,7 +4665,11 @@ win32_signal_context(void)
     }
     return my_perl;
 #else
+#ifdef USE_5005THREADS
     return aTHX;
+#else
+    return PL_curinterp;
+#endif
 #endif
 }