This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: Smoke [5.9.4] 28069 FAIL(M) MSWin32 WinXP/.Net SP2 (x86/2 cpu)
authorSADAHIRO Tomoyuki <BQW10602@nifty.com>
Wed, 3 May 2006 10:00:03 +0000 (19:00 +0900)
committerSteve Peters <steve@fisharerojo.org>
Wed, 3 May 2006 01:46:27 +0000 (01:46 +0000)
Message-Id: <20060503095420.0357.BQW10602@nifty.com>

p4raw-id: //depot/perl@28071

embed.fnc
embed.h
global.sym

index 4d5bf75..cf10e1b 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -886,7 +886,7 @@ Apd |I32    |unpack_str     |NN const char *pat|NN const char *patend|NN const char *s
 Apd    |I32    |unpackstring   |NN const char *pat|NN const char *patend|NN const char *s \
                                |NN const char *strend|U32 flags
 Ap     |void   |unsharepvn     |NULLOK const char* sv|I32 len|U32 hash
-     |void   |unshare_hek    |NULLOK HEK* hek
+Ap     |void   |unshare_hek    |NULLOK HEK* hek
 #ifdef PERL_MAD
 p      |OP *   |utilize        |int aver|I32 floor|NULLOK OP* version \
                                |NN OP* idop|NULLOK OP* arg
diff --git a/embed.h b/embed.h
index 5f0c6b2..bb8108f 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define unpack_str             Perl_unpack_str
 #define unpackstring           Perl_unpackstring
 #define unsharepvn             Perl_unsharepvn
-#ifdef PERL_CORE
 #define unshare_hek            Perl_unshare_hek
-#endif
 #ifdef PERL_MAD
 #ifdef PERL_CORE
 #define utilize                        Perl_utilize
 #define unpack_str(a,b,c,d,e,f,g,h)    Perl_unpack_str(aTHX_ a,b,c,d,e,f,g,h)
 #define unpackstring(a,b,c,d,e)        Perl_unpackstring(aTHX_ a,b,c,d,e)
 #define unsharepvn(a,b,c)      Perl_unsharepvn(aTHX_ a,b,c)
-#ifdef PERL_CORE
 #define unshare_hek(a)         Perl_unshare_hek(aTHX_ a)
-#endif
 #ifdef PERL_MAD
 #ifdef PERL_CORE
 #define utilize(a,b,c,d,e)     Perl_utilize(aTHX_ a,b,c,d,e)
index 257a2fc..49c90bf 100644 (file)
@@ -298,6 +298,7 @@ Perl_newRANGE
 Perl_newSLICEOP
 Perl_newSTATEOP
 Perl_newSUB
+Perl_newXS_flags
 Perl_newXS
 Perl_newAV
 Perl_newAVREF
@@ -548,6 +549,7 @@ Perl_unlnk
 Perl_unpack_str
 Perl_unpackstring
 Perl_unsharepvn
+Perl_unshare_hek
 Perl_utf16_to_utf8
 Perl_utf16_to_utf8_reversed
 Perl_utf8_length