diff options
| author | Craig A. Berry <craigberry@mac.com> | 2005-10-02 21:45:20 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2005-10-02 21:45:20 +0000 |
| commit | 9fa802f37581490059c6502e317e982c6a4bb4ad (patch) | |
| tree | 4743f6880710f2bddd108c26ce37ef5df6b8b41e /vms | |
| parent | 8a7acfb9b07364b45423d76a5a3e8a6d629465ec (diff) | |
| download | perl-9fa802f37581490059c6502e317e982c6a4bb4ad.tar.gz | |
assorted blead build help for VMS (mostly ithreads-related)
p4raw-id: //depot/perl@25680
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/gen_shrfls.pl | 4 | ||||
| -rw-r--r-- | vms/vmsish.h | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index 6fb1bb9d00..2a940142cb 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -153,7 +153,7 @@ sub scan_func { if ( $line =~ /(\w+)\s*\(/ ) { print "\troutine name is \\$1\\\n" if $debug > 1; if ($1 eq 'main' || $1 eq 'perl_init_ext' || $1 eq '__attribute__format__' - || (($1 eq 'Perl_stashpv_hvname_match') && ! $use_threads)) { + || $1 eq 'sizeof' || (($1 eq 'Perl_stashpv_hvname_match') && ! $use_threads)) { print "\tskipped\n" if $debug > 1; } else { $fcns{$1}++ } @@ -182,7 +182,7 @@ if ($docc) { else { open(CPP,"$cpp_file") or die "$0: Can't read preprocessed file $cpp_file: $!\n"; } -%checkh = map { $_,1 } qw( thread bytecode byterun proto perlio perlvars intrpvar thrdvar ); +%checkh = map { $_,1 } qw( thread bytecode byterun proto perlapi perlio perlvars intrpvar thrdvar ); $ckfunc = 0; LINE: while (<CPP>) { while (/^#.*vmsish\.h/i .. /^#.*perl\.h/i) { diff --git a/vms/vmsish.h b/vms/vmsish.h index e4e959590e..41b2bb21d7 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -208,8 +208,8 @@ #define my_fdopen Perl_my_fdopen #define my_fclose Perl_my_fclose #define my_fwrite Perl_my_fwrite -#define my_getpwent Perl_my_getpwent -#define my_endpwent Perl_my_endpwent +#define my_getpwent() Perl_my_getpwent(aTHX) +#define my_endpwent() Perl_my_endpwent(aTHX) #define my_getlogin Perl_my_getlogin #define init_os_extras Perl_init_os_extras @@ -862,7 +862,7 @@ int my_fwrite (const void *, size_t, size_t, FILE *); int Perl_my_flush (pTHX_ FILE *); struct passwd * Perl_my_getpwnam (pTHX_ const char *name); struct passwd * Perl_my_getpwuid (pTHX_ Uid_t uid); -void my_endpwent (pTHX); +void Perl_my_endpwent (pTHX); char * my_getlogin (void); typedef char __VMS_SEPYTOTORP__; /* prototype section end marker; `typedef' passes through cpp */ |