Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
b2def40b
Commit
b2def40b
authored
Feb 04, 1999
by
sof
Browse files
[project @ 1999-02-04 15:17:45 by sof]
- Decode module names before outputting the .hi file
parent
87e57c1f
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/driver/ghc-iface.lprl
View file @
b2def40b
...
...
@@ -121,13 +121,22 @@ sub constructNewHiFile {
$new_hi, # Filename for new one
$show_hi_diffs) = @_;
local($hiname,$hidir);
local($mod_name_dec);
&readHiFile('new',$hsc_hi) unless $HiHasBeenRead{'new'} == 1;
# Sigh, we need decode the module name found in the interface file
# since that's the (base)name we want to use when outputting the
# interface file.
$mod_name_dec = $ModuleName{'new'};
$mod_name_dec =~ s/zz/z/g;
$mod_name_dec =~ s/ZZ/Z/g;
if ($Specific_hi_file eq '') { # -ohi is used even if module name != stem of filename.
($hiname = $hifile_target) = $1 if $hifile_target =~ /\/?([^\/\.]+)\.$HiSuffix/;
if (
$ModuleName{'new'}
ne $hiname) {
if (
$mod_name_dec
ne $hiname
) {
($hidir = $hifile_target) =~ s/(.*)$hiname\.$HiSuffix/$1/;
$hifile_target = $hidir . $
M
od
uleName{'new'}
. ".$HiSuffix";
$hifile_target = $hidir . $
m
od
_name_dec
. ".$HiSuffix";
}
}
&readHiFile('old',$hifile_target) unless $HiHasBeenRead{'old'} == 1;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment