From: Spider Boardman <spider@orb.nashua.nh.us>
Date: Fri, 15 Sep 2000 06:37:30 +0000 (-0400)
Subject: Multiplicity & ithreads fix for sv.c/Encode.xs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f5768b866885bc2ed8e8faa13e51aa5ce9671f0;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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);