From 32346b7cdde5bcf8a0c8c9ee89ef541d8fe9a7b7 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Thu, 2 Feb 2023 18:11:26 -0700 Subject: 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. --- embed.h | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'embed.h') diff --git a/embed.h b/embed.h index 75f20734b9..a6bafdf5fc 100644 --- a/embed.h +++ b/embed.h @@ -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: */ -- cgit v1.2.1