diff options
| author | Craig A. Berry <craigberry@mac.com> | 2005-10-22 16:43:40 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2005-10-22 16:43:40 +0000 |
| commit | 7ded32065eb4fdd4bee8fba5b3315dbd893ba13d (patch) | |
| tree | 4f9f9a9da24778034690e0796c3ec22c6e5ee539 /vms/vmsish.h | |
| parent | 7dd03145f7521e677db128080742a33214229568 (diff) | |
| download | perl-7ded32065eb4fdd4bee8fba5b3315dbd893ba13d.tar.gz | |
VMS threaded build fixes for things broken in #25783
p4raw-id: //depot/perl@25824
Diffstat (limited to 'vms/vmsish.h')
| -rw-r--r-- | vms/vmsish.h | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/vms/vmsish.h b/vms/vmsish.h index 6cce3ceee1..a0ea93a283 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -234,14 +234,6 @@ #define init_os_extras Perl_init_os_extras #define vms_realpath(a, b) Perl_vms_realpath(aTHX_ a,b) #define vms_case_tolerant(a) Perl_vms_case_tolerant(a) -#define vms_decc_feature_get_name(a) \ - Perl_vms_decc_feature_get_name(aTHX_ a) -#define vms_decc_feature_get_value(a, b) \ - Perl_vms_decc_feature_get_value(aTHX_ a, b) -#define vms_decc_feature_set_value(a, b, c) \ - Perl_vms_decc_feature_set_value(aTHX_ a, b, c) -#define vms_decc_feature_get_index(a) \ - Perl_vms_decc_feature_get_index(aTHX_ a) /* Delete if at all possible, changing protections if necessary. */ #define unlink kill_file @@ -794,7 +786,7 @@ int Perl_unix_status_to_vms(int unix_status); /* prototype section start marker; `typedef' passes through cpp */ typedef char __VMS_PROTOTYPES__; int Perl_vmstrnenv (const char *, char *, unsigned long int, struct dsc$descriptor_s **, unsigned long int); -char * Perl_vms_realpath (const char *, char *); +char * Perl_vms_realpath (pTHX_ const char *, char *); #if !defined(PERL_IMPLICIT_CONTEXT) int Perl_vms_case_tolerant(void); char * Perl_my_getenv (const char *, bool); @@ -842,11 +834,6 @@ MY_DIR * Perl_opendir (pTHX_ const char *); int Perl_rmscopy (pTHX_ const char *, const char *, int); int Perl_my_mkdir (pTHX_ const char *, Mode_t); bool Perl_vms_do_aexec (pTHX_ SV *, SV **, SV **); -char * Perl_vms_realpath (pTHX_ const char *, char *); -char * Perl_vms_decc_feature_get_name(pTHX_ int a); -int Perl_vms_decc_feature_get_value(pTHX_ int, int); -int Perl_vms_decc_feature_set_value(pTHX_ int, int, int) -int Perl_vms_decc_feature_get_index(aTHX_ const char *) #endif int Perl_vms_case_tolerant(void); char * Perl_my_getenv_len (pTHX_ const char *, unsigned long *, bool); |