projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1996-11-21 16:45:53 by simonm]
[ghc-hetmet.git]
/
ghc
/
driver
/
ghc-iface.lprl
diff --git
a/ghc/driver/ghc-iface.lprl
b/ghc/driver/ghc-iface.lprl
index
6d3bde1
..
f97cbd9
100644
(file)
--- a/
ghc/driver/ghc-iface.lprl
+++ b/
ghc/driver/ghc-iface.lprl
@@
-271,7
+271,7
@@
sub calcNewModuleVersion {
sub mv_change {
local($mv, $str) = @_;
sub mv_change {
local($mv, $str) = @_;
- print STDERR "$Pgm: module version changed to $mv; reason: $str\n";
+#print STDERR "$Pgm: module version changed to $mv; reason: $str\n";
return($mv);
}
return($mv);
}
@@
-287,13
+287,13
@@
sub printNewItemVersion {
local($idecl) = $Decl{"new:$item"};
if (! defined($Decl{"old:$item"})) {
local($idecl) = $Decl{"new:$item"};
if (! defined($Decl{"old:$item"})) {
- print STDERR "new: $item\n";
+#print STDERR "new: $item\n";
print NEWHI "$item $mod_version\n";
} elsif ($idecl ne $Decl{"old:$item"}) {
print NEWHI "$item $mod_version\n";
} elsif ($idecl ne $Decl{"old:$item"}) {
- print STDERR "changed: $item\n";
+#print STDERR "changed: $item\n";
print NEWHI "$item $mod_version\n";
} elsif (! defined($Version{"old:$item"}) ) {
print NEWHI "$item $mod_version\n";
} elsif (! defined($Version{"old:$item"}) ) {
- print STDERR "$item: no old version?!\n"
+#print STDERR "$item: no old version?!\n"
} else {
print NEWHI "$item ", $Version{"old:$item"}, "\n";
}
} else {
print NEWHI "$item ", $Version{"old:$item"}, "\n";
}