projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1998-02-25 19:48:54 by sof]
[ghc-hetmet.git]
/
ghc
/
driver
/
ghc-iface.lprl
diff --git
a/ghc/driver/ghc-iface.lprl
b/ghc/driver/ghc-iface.lprl
index
b1fae52
..
d72f128
100644
(file)
--- a/
ghc/driver/ghc-iface.lprl
+++ b/
ghc/driver/ghc-iface.lprl
@@
-114,7
+114,7
@@
sub constructNewHiFile {
}
local($new_module_version) = &calcNewModuleVersion(@decl_names);
}
local($new_module_version) = &calcNewModuleVersion(@decl_names);
- print NEWHI "_interface_ ", $ModuleName{'new'}, " $new_module_version\n";
+ print NEWHI "_interface_ ", $ModuleName{'new'}, " $new_module_version $GhcVersionInfo\n";
if ( $Stuff{'new:instance_modules'} ) {
print NEWHI "_instance_modules_\n";
if ( $Stuff{'new:instance_modules'} ) {
print NEWHI "_instance_modules_\n";
@@
-199,11
+199,11
@@
sub readHiFile {
last hi_line;
}
last hi_line;
}
- if ( /^_interface_ ([A-Z]\S*) (\d+)/ ) {
+ if ( /^_interface_ ([A-Z]\S*) (\d+)/ && $mod ne 'new' ) {
$ModuleName{$mod} = $1; # used to decide name of interface file.
$ModuleVersion{$mod} = $2;
$ModuleName{$mod} = $1; # used to decide name of interface file.
$ModuleVersion{$mod} = $2;
- } elsif ( /^_interface_ ([A-Z]\S*)/ && $mod eq 'new' ) { # special case: no version
+ } elsif ( /^_interface_ ([A-Z]\S*) (\d+)/ && $mod eq 'new' ) { # special case: no version
$ModuleName{'new'} = $1;
} elsif ( /^_([a-z_]+)_$/ ) {
$ModuleName{'new'} = $1;
} elsif ( /^_([a-z_]+)_$/ ) {
@@
-302,7
+302,7
@@
sub calcNewModuleVersion {
return(&mv_change($changed_version,"$v changed")) if $Decl{"old:$v"} ne $Decl{"new:$v"};
}
return(&mv_change($changed_version,"$v changed")) if $Decl{"old:$v"} ne $Decl{"new:$v"};
}
- print STDERR "Module version unchanged at $unchanged_version\n";
+ print STDERR "$Pgm: module version unchanged at $unchanged_version\n";
return($unchanged_version);
}
return($unchanged_version);
}