From 063497e10fc528b1992837d48410189d2aea4e71 Mon Sep 17 00:00:00 2001 From: Steve Hay Date: Mon, 4 Jul 2005 15:36:04 +0000 Subject: [PATCH] Perl_share_hek needs exporting for change 25070 on Win32 p4raw-id: //depot/perl@25074 --- embed.fnc | 2 +- embed.h | 4 ++++ global.sym | 1 + 3 files changed, 6 insertions(+), 1 deletion(-) diff --git a/embed.fnc b/embed.fnc index 6e709ef..f300dba 100644 --- a/embed.fnc +++ b/embed.fnc @@ -705,7 +705,7 @@ Ap |char* |screaminstr |SV* bigsv|SV* littlesv|I32 start_shift \ p |I32 |setenv_getix |const char* nam #endif p |void |setdefout |GV* gv -p |HEK* |share_hek |const char* sv|I32 len|U32 hash +Ap |HEK* |share_hek |const char* sv|I32 len|U32 hash np |Signal_t |sighandler |int sig Anp |Signal_t |csighandler |int sig Ap |SV** |stack_grow |NN SV** sp|NN SV**p|int n diff --git a/embed.h b/embed.h index f8800b4..c0d66b7 100644 --- a/embed.h +++ b/embed.h @@ -748,7 +748,9 @@ #endif #ifdef PERL_CORE #define setdefout Perl_setdefout +#endif #define share_hek Perl_share_hek +#ifdef PERL_CORE #define sighandler Perl_sighandler #endif #define csighandler Perl_csighandler @@ -2731,7 +2733,9 @@ #endif #ifdef PERL_CORE #define setdefout(a) Perl_setdefout(aTHX_ a) +#endif #define share_hek(a,b,c) Perl_share_hek(aTHX_ a,b,c) +#ifdef PERL_CORE #define sighandler Perl_sighandler #endif #define csighandler Perl_csighandler diff --git a/global.sym b/global.sym index 1c5cb09..5fccbc5 100644 --- a/global.sym +++ b/global.sym @@ -428,6 +428,7 @@ Perl_scan_hex Perl_scan_num Perl_scan_oct Perl_screaminstr +Perl_share_hek Perl_csighandler Perl_stack_grow Perl_start_subparse -- 2.7.4