diff options
author | Nicholas Clark <nick@ccl4.org> | 2006-03-27 21:04:58 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2006-03-27 21:04:58 +0000 |
commit | edb2152a8435aa2e1308442c03e82c10e128574e (patch) | |
tree | 1bcabf13cf8ae1ef3c9cb44c06c2a1b617e7fb20 /embed.h | |
parent | a5871da3a494d85e46d501e1e38f3d4b9d0f0c01 (diff) | |
download | perl-edb2152a8435aa2e1308442c03e82c10e128574e.tar.gz |
Merge the cut & paste code from Perl_call_sv/Perl_fold_constants with
the near identical code in pp_entertry into Perl_create_eval_scope.
Move the cut & paste code from Perl_call_sv/Perl_fold_constants into
Perl_delete_eval_scope.
p4raw-id: //depot/perl@27617
Diffstat (limited to 'embed.h')
-rw-r--r-- | embed.h | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -94,6 +94,7 @@ #endif #ifdef PERL_CORE #define convert Perl_convert +#define create_eval_scope Perl_create_eval_scope #endif #define croak Perl_croak #define vcroak Perl_vcroak @@ -146,6 +147,7 @@ #define debstackptrs Perl_debstackptrs #define delimcpy Perl_delimcpy #ifdef PERL_CORE +#define delete_eval_scope Perl_delete_eval_scope #define deprecate Perl_deprecate #define deprecate_old Perl_deprecate_old #endif @@ -2272,6 +2274,7 @@ #endif #ifdef PERL_CORE #define convert(a,b,c) Perl_convert(aTHX_ a,b,c) +#define create_eval_scope(a) Perl_create_eval_scope(aTHX_ a) #endif #define vcroak(a,b) Perl_vcroak(aTHX_ a,b) #if defined(PERL_IMPLICIT_CONTEXT) @@ -2307,6 +2310,7 @@ #define debstackptrs() Perl_debstackptrs(aTHX) #define delimcpy(a,b,c,d,e,f) Perl_delimcpy(aTHX_ a,b,c,d,e,f) #ifdef PERL_CORE +#define delete_eval_scope() Perl_delete_eval_scope(aTHX) #define deprecate(a) Perl_deprecate(aTHX_ a) #define deprecate_old(a) Perl_deprecate_old(aTHX_ a) #endif |