diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-10-09 21:32:50 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-10-09 21:32:50 +0000 |
| commit | 75c20bacb9ae327aacf009e8bfd9ed768a1e07b1 (patch) | |
| tree | 95ef0d13a76f6ee3482b8c22c68f6f2e5781812d /embed.h | |
| parent | b640a14ad99660810209db046b8d70831781c646 (diff) | |
| download | perl-75c20bacb9ae327aacf009e8bfd9ed768a1e07b1.tar.gz | |
If PERL_DISABLE_PMC is defined, doopen_pm() is just a direct call to
check_type_and_open(). So for this case make it a macro, to save a
level of function call.
p4raw-id: //depot/perl@32088
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 12 |
1 files changed, 12 insertions, 0 deletions
@@ -1305,7 +1305,13 @@ #define save_lines S_save_lines #define doeval S_doeval #define check_type_and_open S_check_type_and_open +#endif +#ifndef PERL_DISABLE_PMC +#ifdef PERL_CORE #define doopen_pm S_doopen_pm +#endif +#endif +#ifdef PERL_CORE #define path_is_absolute S_path_is_absolute #define run_user_filter S_run_user_filter #define make_matcher S_make_matcher @@ -3584,7 +3590,13 @@ #define save_lines(a,b) S_save_lines(aTHX_ a,b) #define doeval(a,b,c,d) S_doeval(aTHX_ a,b,c,d) #define check_type_and_open(a) S_check_type_and_open(aTHX_ a) +#endif +#ifndef PERL_DISABLE_PMC +#ifdef PERL_CORE #define doopen_pm(a,b) S_doopen_pm(aTHX_ a,b) +#endif +#endif +#ifdef PERL_CORE #define path_is_absolute S_path_is_absolute #define run_user_filter(a,b,c) S_run_user_filter(aTHX_ a,b,c) #define make_matcher(a) S_make_matcher(aTHX_ a) |