diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-29 15:31:56 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-29 15:31:56 +0000 |
| commit | 06d860507700419d9cf04cbf3dc2f06c906c546d (patch) | |
| tree | 8cf20c308c4beb843b67663140aa6724ac74587d /perl.h | |
| parent | 1b1e14d34a33bfe0df591910cafcab54421ca8a8 (diff) | |
| download | perl-06d860507700419d9cf04cbf3dc2f06c906c546d.tar.gz | |
more adjustments needed for change#5342 under use5005threads
p4raw-link: @5342 on //depot/perl: ba869debd80c55cfae8e9d4de0991d62f9efcb9b
p4raw-id: //depot/perl@5351
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 33 |
1 files changed, 17 insertions, 16 deletions
@@ -1731,14 +1731,6 @@ typedef pthread_key_t perl_key; # define PERL_GET_INTERP (PL_curinterp) #endif -#ifndef PERL_SET_CONTEXT -# define PERL_SET_CONTEXT(i) PERL_SET_INTERP(i) -#endif - -#ifndef PERL_GET_CONTEXT -# define PERL_GET_CONTEXT PERL_GET_INTERP -#endif - #if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_GET_THX) # ifdef USE_THREADS # define PERL_GET_THX ((struct perl_thread *)PERL_GET_CONTEXT) @@ -1754,14 +1746,6 @@ typedef pthread_key_t perl_key; # define PERL_SET_THX(t) PERL_SET_CONTEXT(t) #endif -#ifndef PERL_GET_THX -# define PERL_GET_THX ((void*)NULL) -#endif - -#ifndef PERL_SET_THX -# define PERL_SET_THX(t) NOOP -#endif - #ifndef SVf # ifdef CHECK_FORMAT # define SVf "p" @@ -3125,6 +3109,23 @@ typedef struct am_table_short AMTS; #define printf PerlIO_stdoutf #endif +/* if these never got defined, they need defaults */ +#ifndef PERL_SET_CONTEXT +# define PERL_SET_CONTEXT(i) PERL_SET_INTERP(i) +#endif + +#ifndef PERL_GET_CONTEXT +# define PERL_GET_CONTEXT PERL_GET_INTERP +#endif + +#ifndef PERL_GET_THX +# define PERL_GET_THX ((void*)NULL) +#endif + +#ifndef PERL_SET_THX +# define PERL_SET_THX(t) NOOP +#endif + #ifndef PERL_SCRIPT_MODE #define PERL_SCRIPT_MODE "r" #endif |