diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2006-03-05 15:30:09 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2006-03-06 03:42:19 +0000 |
| commit | e8e0953481a8eb69731d048ec19e15bbd537fd73 (patch) | |
| tree | e76ef90fb942b4b3cc60af6d1dbdb20796ee7bbd /vms/gen_shrfls.pl | |
| parent | 367e4b858024bf2afa673a8e3ea4ab6db082ad93 (diff) | |
| download | perl-e8e0953481a8eb69731d048ec19e15bbd537fd73.tar.gz | |
PATCH: 2 vms specific build files in perl @ 27383
Message-id: <OFF0B19477.39D9ABEB-ON85257129.00070590-85257129.000840D3@factset.com>
p4raw-id: //depot/perl@27386
Diffstat (limited to 'vms/gen_shrfls.pl')
| -rw-r--r-- | vms/gen_shrfls.pl | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index fcd72f4004..5fc9165f06 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -60,6 +60,10 @@ $isvax = `\$ Write Sys\$Output \(F\$GetSyI(\"HW_MODEL\") .LE. 1024 .AND. F\$GetS chomp $isvax; print "\$isvax: \\$isvax\\\n" if $debug; +$isi64 = `\$ Write Sys\$Output \(F\$GetSyI(\"HW_MODEL\") .GE. 4096`; +chomp $isi64; +print "\$isi64: \\$isi64\\\n" if $debug; + print "Input \$cc_cmd: \\$cc_cmd\\\n" if $debug; $docc = ($cc_cmd !~ /^~~/); print "\$docc = $docc\n" if $debug; @@ -258,8 +262,14 @@ if ($isvax) { } unless ($isgcc) { - print OPTBLD "PSECT_ATTR=\$GLOBAL_RO_VARS,PIC,NOEXE,RD,NOWRT,SHR\n"; - print OPTBLD "PSECT_ATTR=\$GLOBAL_RW_VARS,PIC,NOEXE,RD,WRT,NOSHR\n"; + if ($isi64) { + print OPTBLD "PSECT_ATTR=\$GLOBAL_RO_VARS,NOEXE,RD,NOWRT,SHR\n"; + print OPTBLD "PSECT_ATTR=\$GLOBAL_RW_VARS,NOEXE,RD,WRT,NOSHR\n"; + } + else { + print OPTBLD "PSECT_ATTR=\$GLOBAL_RO_VARS,PIC,NOEXE,RD,NOWRT,SHR\n"; + print OPTBLD "PSECT_ATTR=\$GLOBAL_RW_VARS,PIC,NOEXE,RD,WRT,NOSHR\n"; + } } print OPTBLD "case_sensitive=yes\n" if $care_about_case; foreach $var (sort (keys %vars,keys %cvars)) { |