diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-29 04:53:00 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-29 04:53:00 +0000 |
| commit | ba869debd80c55cfae8e9d4de0991d62f9efcb9b (patch) | |
| tree | 73f5810de88203f0df413aee0bc7f3c94d686329 /win32/win32.h | |
| parent | d5c3ff09f505a33428a0772c6e16c91e1df4ce85 (diff) | |
| download | perl-ba869debd80c55cfae8e9d4de0991d62f9efcb9b.tar.gz | |
support fetching current interpreter from TLS under useithreads
p4raw-id: //depot/perl@5342
Diffstat (limited to 'win32/win32.h')
| -rw-r--r-- | win32/win32.h | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/win32/win32.h b/win32/win32.h index 4e73a23fe6..f102234b78 100644 --- a/win32/win32.h +++ b/win32/win32.h @@ -28,8 +28,9 @@ #endif #if defined(PERL_IMPLICIT_CONTEXT) -# define PERL_GET_INTERP ((PerlInterpreter*)GetPerlInterpreter()) -# define PERL_SET_INTERP(i) (SetPerlInterpreter(i)) +/* compat */ +# define GetPerlInterpreter Perl_get_context +# define SetPerlInterpreter Perl_set_context #endif #ifdef __GNUC__ @@ -298,8 +299,6 @@ DllExport void Perl_win32_init(int *argcp, char ***argvp); DllExport void Perl_init_os_extras(); DllExport void win32_str_os_error(void *sv, DWORD err); DllExport int RunPerl(int argc, char **argv, char **env); -DllExport bool SetPerlInterpreter(void* interp); -DllExport void* GetPerlInterpreter(void); typedef struct { HANDLE childStdIn; |