From 7623d4262995987d3de73f116de43554c077f9c7 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Mon, 1 Dec 2008 09:46:15 +0000 Subject: Expose save_pushi32ptr() and implement SAVECOPARYBASE() with it. p4raw-id: //depot/perl@34963 --- embed.h | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) (limited to 'embed.h') diff --git a/embed.h b/embed.h index 397e2f42a9..e0b98f8176 100644 --- a/embed.h +++ b/embed.h @@ -806,12 +806,8 @@ #define save_sptr Perl_save_sptr #define save_svref Perl_save_svref #define save_pushptr Perl_save_pushptr -#if defined(PERL_IN_SCOPE_C) -#ifdef PERL_CORE -#define save_pushi32ptr S_save_pushi32ptr -#endif -#endif #ifdef PERL_CORE +#define save_pushi32ptr Perl_save_pushi32ptr #define save_pushptrptr Perl_save_pushptrptr #define sawparens Perl_sawparens #define scalar Perl_scalar @@ -3156,12 +3152,8 @@ #define save_sptr(a) Perl_save_sptr(aTHX_ a) #define save_svref(a) Perl_save_svref(aTHX_ a) #define save_pushptr(a,b) Perl_save_pushptr(aTHX_ a,b) -#if defined(PERL_IN_SCOPE_C) -#ifdef PERL_CORE -#define save_pushi32ptr(a,b,c) S_save_pushi32ptr(aTHX_ a,b,c) -#endif -#endif #ifdef PERL_CORE +#define save_pushi32ptr(a,b,c) Perl_save_pushi32ptr(aTHX_ a,b,c) #define save_pushptrptr(a,b,c) Perl_save_pushptrptr(aTHX_ a,b,c) #define sawparens(a) Perl_sawparens(aTHX_ a) #define scalar(a) Perl_scalar(aTHX_ a) -- cgit v1.2.1