diff options
| author | Karl Williamson <khw@cpan.org> | 2023-02-02 18:11:26 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2023-03-01 17:00:52 -0700 |
| commit | 32346b7cdde5bcf8a0c8c9ee89ef541d8fe9a7b7 (patch) | |
| tree | c1c1d1654e828dff1e17af76834bb73383a0f114 /embed.h | |
| parent | 4a7bea40c45452cd472c087fe36c369a1b5ffc36 (diff) | |
| download | perl-32346b7cdde5bcf8a0c8c9ee89ef541d8fe9a7b7.tar.gz | |
Inline get_context() for non-Win32
This trivial function should get optimized out. But I couldn't get it
to work for Windows, because the two likely hdr files don't have
PL_thr_key defined in them. I suppose a new hdr file could be created
that gets included later. But I didn't think it was worth it.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -236,7 +236,6 @@ # define forbid_outofblock_ops(a,b) Perl_forbid_outofblock_ops(aTHX_ a,b) # define free_tmps() Perl_free_tmps(aTHX) # define get_av(a,b) Perl_get_av(aTHX_ a,b) -# define get_context Perl_get_context # define get_cv(a,b) Perl_get_cv(aTHX_ a,b) # define get_cvn_flags(a,b,c) Perl_get_cvn_flags(aTHX_ a,b,c) # define get_hv(a,b) Perl_get_hv(aTHX_ a,b) @@ -2162,6 +2161,11 @@ # define do_spawn(a) Perl_do_spawn(aTHX_ a) # define do_spawn_nowait(a) Perl_do_spawn_nowait(aTHX_ a) # endif /* defined(VMS) || defined(WIN32) */ +# if defined(WIN32) +# define get_context Perl_get_context +# else /* if !defined(WIN32) */ +# define get_context Perl_get_context +# endif /* !defined(WIN32) */ #endif /* !defined(PERL_NO_SHORT_NAMES) */ /* ex: set ro ft=C: */ |