Re: Smoke [5.9.4] 28069 FAIL(M) MSWin32 WinXP/.Net SP2 (x86/2 cpu)

Message-Id: <20060503095420.0357.BQW10602@nifty.com>

p4raw-id: //depot/perl@28071

diff --git a/embed.fnc b/embed.fnc
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
-p      |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
@@ -903,9 +903,7 @@
 #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
@@ -3065,9 +3063,7 @@
 #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)

diff --git a/global.sym b/global.sym
index 257a2fc..49c90bf 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -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