From 2f5768b866885bc2ed8e8faa13e51aa5ce9671f0 Mon Sep 17 00:00:00 2001 From: Spider Boardman Date: Fri, 15 Sep 2000 02:37:30 -0400 Subject: [PATCH] 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 --- ext/Encode/Encode.xs | 2 +- sv.c | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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); -- 2.7.4