This is a minor patch to the vms-specific script for generating
shareable-image related files.
The change is to get the compiler choice from config.sh, rather than
doing the test all over again. So there's a minor gain in efficiency,
but particularly to eliminate an annoying error message generated when
using the GCC compiler.
diff -uBb vms/gen_shrfls.pl-orig vms/gen_shrfls.pl
--- vms/gen_shrfls.pl-orig Tue Oct 31 17:31:09 2000
+++ vms/gen_shrfls.pl Tue Oct 31 17:31:09 2000
@@ -68,6 +68,9 @@
elsif (-f '[-]perl.h') { $dir = '[-]'; }
else { die "$0: Can't find perl.h\n"; }
+ $use_threads = $use_mymalloc = $case_about_case = $debugging_enabled = 0;
+ $hide_mymalloc = $isgcc = 0;
+
# Go see what is enabled in config.sh
$config = $dir . "config.sh";
open CONFIG, "< $config";
@@ -77,6 +80,7 @@
$care_about_case++ if /d_vms_case_sensitive_symbols='define'/;
$debugging_enabled++ if /usedebugging_perl='Y'/;
$hide_mymalloc++ if /embedmymalloc='Y'/;
+ $isgcc++ if /gccversion='[^']/;
}
close CONFIG;
@@ -93,8 +97,7 @@
# check for gcc - if present, we'll need to use MACRO hack to
# define global symbols for shared variables
- $isgcc = `$cc_cmd _nla0:/Version` =~ /GNU/
- or 0; # make debug output nice
+
print "\$isgcc: $isgcc\n" if $debug;
print "\$debugging_enabled: $debugging_enabled\n" if $debug;
--
Drexel University \V --Chuck Lane
======]---------->--------*------------<-------[===========
(215) 895-1545 _/ \ Particle Physics
FAX: (215) 895-5934 /\ /~~~~~~~~~~~ [EMAIL PROTECTED]
