From: SADAHIRO Tomoyuki <BQW10602@nifty.com>
Date: Wed, 3 May 2006 10:00:03 +0000 (+0900)
Subject: Re: Smoke [5.9.4] 28069 FAIL(M) MSWin32 WinXP/.Net SP2 (x86/2 cpu)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=69d5c11b0a60f443c51477667de933c23ad80ed6;p=p5sagit%2Fp5-mst-13.2.git

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