diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 1999-08-23 03:07:28 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 1999-08-23 03:07:28 +0000 |
| commit | 5c84aa53566d8965295f36b803494e6ff74341bd (patch) | |
| tree | 17e9a4e57891186b16e5883124ecb0f12e76401d /vms/vmsish.h | |
| parent | 3f45a6dd55fdf1a0e32ab7a240f55674fbadb3f7 (diff) | |
| download | perl-5c84aa53566d8965295f36b803494e6ff74341bd.tar.gz | |
Update calls for new thread context handling
p4raw-id: //depot/vmsperl@4019
Diffstat (limited to 'vms/vmsish.h')
| -rw-r--r-- | vms/vmsish.h | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/vms/vmsish.h b/vms/vmsish.h index 8f630189b7..17aac8a665 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -90,11 +90,16 @@ /* Our own contribution to PerlShr's global symbols . . . */ #define vmstrnenv Perl_vmstrnenv #define my_trnlnm Perl_my_trnlnm -#define my_getenv Perl_my_getenv #define my_getenv_len Perl_my_getenv_len #define prime_env_iter Perl_prime_env_iter #define vmssetenv Perl_vmssetenv +#if !defined(PERL_IMPLICIT_CONTEXT) #define my_setenv Perl_my_setenv +#define my_getenv Perl_my_getenv +#else +#define my_setenv(a,b) Perl_my_setenv(aTHX_ a,b) +#define my_getenv(a,b) Perl_my_getenv(aTHX_ a,b) +#endif #define my_crypt Perl_my_crypt #define my_waitpid Perl_my_waitpid #define my_gconvert Perl_my_gconvert @@ -222,7 +227,7 @@ #define _ckvmssts(call) STMT_START { register unsigned long int __ckvms_sts; \ if (!((__ckvms_sts=(call))&1)) { \ set_errno(EVMSERR); set_vaxc_errno(__ckvms_sts); \ - croak("Fatal VMS error (status=%d) at %s, line %d", \ + Perl_croak(aTHX_ "Fatal VMS error (status=%d) at %s, line %d", \ __ckvms_sts,__FILE__,__LINE__); } } STMT_END /* Same thing, but don't call back to Perl's croak(); useful for errors @@ -581,7 +586,11 @@ void init_os_extras (); typedef char __VMS_PROTOTYPES__; int vmstrnenv (const char *, char *, unsigned long int, struct dsc$descriptor_s **, unsigned long int); int my_trnlnm (const char *, char *, unsigned long int); -char * my_getenv (const char *, bool); +#if !defined(PERL_IMPLICIT_CONTEXT) +char * Perl_my_getenv (const char *, bool); +#else +char * Perl_my_getenv (pTHX_ const char *, bool); +#endif char * my_getenv_len (const char *, unsigned long *, bool); int vmssetenv (char *, char *, struct dsc$descriptor_s **); char * my_crypt (const char *, const char *); |