In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/4e2794096b6999123c408ee2ccfc3f1a92bd4bb2?hp=0c2c3d000e799a35bdc2bdd24feaf77cf854a2dd>
- Log ----------------------------------------------------------------- commit 4e2794096b6999123c408ee2ccfc3f1a92bd4bb2 Author: Craig A. Berry <[email protected]> Date: Fri Jan 2 09:25:05 2015 -0600 Simplify PIC specification in perlshr.exe. PIC has no meaning on Alpha as all code generated by the compiler is position independent. So only specify it for VAX. This allows us to get rid of the test for whether we are on Itanium. M vms/gen_shrfls.pl commit 7ced74dd38579d5d9462d66ff81c63fe0d3a5ade Author: Craig A. Berry <[email protected]> Date: Fri Jan 2 09:21:00 2015 -0600 Explicitly name linker map on VMS. By default the linker takes the base name of the first object file and uses that when creating the name of the linker map file, which means we've been getting a file named dynaloader.map for the main shareable image map. Name it after the target instead. M vms/descrip_mms.template commit dc21213868aa2e371836e0bf3dd6bc5a94897eab Author: Craig A. Berry <[email protected]> Date: Fri Jan 2 09:17:57 2015 -0600 Remove dead line of code from vms/test.com. Hasn't been needed since 34b5aed4c569. M vms/test.com ----------------------------------------------------------------------- Summary of changes: vms/descrip_mms.template | 2 +- vms/gen_shrfls.pl | 6 +----- vms/test.com | 1 - 3 files changed, 2 insertions(+), 7 deletions(-) diff --git a/vms/descrip_mms.template b/vms/descrip_mms.template index 93cbe7d..8b0c33b 100644 --- a/vms/descrip_mms.template +++ b/vms/descrip_mms.template @@ -131,7 +131,7 @@ POSIX = POSIX #: __DEBUG__: builds images with full VMS debugger support .ifdef __DEBUG__ DBGCCFLAGS = /List/Debug/NoOpt$(DBGSPECFLAGS) -DBGLINKFLAGS = /Trace/Debug/Map/Full/Cross +DBGLINKFLAGS = /Trace/Debug/Map=$(MMS$TARGET_NAME).MAP/Full/Cross DBG = DBG .else DBGCCFLAGS = /NoList diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index e24c49d..2ef3e89 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -61,10 +61,6 @@ my $isvax = `\$ Write Sys\$Output \(F\$GetSyI(\"HW_MODEL\") .LE. 1024 .AND. F\$G chomp $isvax; print "\$isvax: \\$isvax\\\n" if $debug; -my $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; my $docc = ($cc_cmd !~ /^~~/); print "\$docc = $docc\n" if $debug; @@ -162,7 +158,7 @@ if ($isvax) { } unless ($isgcc) { - if ($isi64) { + unless ($isvax) { print OPTBLD "PSECT_ATTR=\$GLOBAL_RO_VARS,NOEXE,RD,NOWRT,SHR\n"; print OPTBLD "PSECT_ATTR=\$GLOBAL_RW_VARS,NOEXE,RD,WRT,NOSHR\n"; } diff --git a/vms/test.com b/vms/test.com index 709608e..ea2e18f 100644 --- a/vms/test.com +++ b/vms/test.com @@ -77,7 +77,6 @@ $! $! And do it $ Set Message /NoFacility/NoSeverity/NoIdentification/NoText $ Show Process/Accounting -$ testdir = "Directory/NoHead/NoTrail/Column=1" $ PerlShr_filespec = f$parse("Sys$Disk:[-]''dbg'PerlShr''exe'") $ Define 'dbg'Perlshr 'PerlShr_filespec' $ If F$Mode() .nes. "INTERACTIVE" Then Define/Nolog PERL_SKIP_TTY_TEST 1 -- Perl5 Master Repository
