1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
%************************************************************************
%* *
\section[Driver-consistency-chk]{@chk_consistency_info@: Check an executable for consistency}
%* *
%************************************************************************
\begin{code}
sub chk_consistency_info {
local($executable) = @_;
local($major_version, $minor_version);
local($phase, $infile, $opts);
print STDERR "Checking consistency of: $executable\n" if $Verbose;
&tidy_up_and_die(1, "Panic: no such executable: $executable\n")
if ! -x $executable;
# by this point, consistency strings (with commas) have become
# local symbols (with .'s)
$HsC_consist_options =~ s/,/./g;
$Cc_consist_options =~ s/,/./g;
# now run `nm' and check all the version info
open(CONSIST, "$Nm -p $executable |") || &tidy_up_and_die(1,"$Pgm: can't run: $Nm\n");
while (<CONSIST>) {
chop;
next if ! /^[\da-fA-F]+\s+[tn]\s+(hsc|cc)\./;
if (/^[\da-fA-F]+\s+[tn]\s+(hsc|cc)\.(\S+)\.(\d+)\.(\d+)\.(.*)/) {
$phase = $1; $infile = $2;
$major_version = $3; $minor_version = $4;
$opts = $5;
if ($phase eq 'hsc') {
$Status++,
print STDERR "$Pgm: consistency error: major version not $HsC_major_version:\n$_\n"
if $major_version != $HsC_major_version;
print STDERR "$Pgm: consistency warning: minor version not $HsC_minor_version:\n$_\n"
if $minor_version != $HsC_minor_version;
$Status++,
print STDERR "$Pgm: consistency error: not options $HsC_consist_options:\n$_\n"
if $opts ne $HsC_consist_options;
} else { # phase is cc ...
$Status++,
print STDERR "$Pgm: consistency error: major version not $Cc_major_version:\n$_\n"
if $major_version != $Cc_major_version;
print STDERR "$Pgm: consistency warning: minor version not $Cc_minor_version:\n$_\n"
if $minor_version != $Cc_minor_version;
$Status++,
print STDERR "$Pgm: consistency error: not options $Cc_consist_options:\n$_\n"
if $opts ne $Cc_consist_options;
}
} else {
print STDERR "$Pgm: consistency-checking: unrecognised `what' line:\n$_\n";
}
}
close(CONSIST) || &tidy_up_and_die(1,"Failed in running $Nm (consistency checking)\n");
}
# make "require"r happy...
1;
\end{code}
|
