Multiplicity & ithreads fix for sv.c/Encode.xs

Subject: [ID 20000915.004] Not OK: perl v5.7.1 +devel-7094 on alpha-dec_osf-thread-multi 4.0f (UNINSTALLED)
Message-Id: <200009151037.GAA07447@Orb.Nashua.NH.US>

p4raw-id: //depot/perl@7095

diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs
index c9029e6..b4d256f 100644 (file)
--- a/ext/Encode/Encode.xs
+++ b/ext/Encode/Encode.xs
@@ -3,7 +3,7 @@
 #include "XSUB.h"
 
 #define UNIMPLEMENTED(x,y) y x (SV *sv, char *encoding) {   \
-                         Perl_croak("panic_unimplemented"); \
+                         Perl_croak(aTHX_ "panic_unimplemented"); \
                         return (y)0; /* fool picky compilers */ \
                          } 
 UNIMPLEMENTED(_encoded_utf8_to_bytes, I32)

diff --git a/sv.c b/sv.c
index f5f6421..561d9d9 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -2440,7 +2440,7 @@ Perl_sv_utf8_downgrade(pTHX_ register SV* sv, bool fail_ok)
            if (fail_ok)
                return FALSE;
            else
-               Perl_croak("big byte");
+               Perl_croak(aTHX_ "big byte");
        }
        SvCUR(sv) = len - 1;
        SvUTF8_off(sv);