From 731362ade1dfe052ed3d5785c11f5a47b14d3790 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 17 Sep 1996 00:14:05 +0000
Subject: [PATCH] [project @ 1996-09-17 00:14:05 by sof] Generate new
way&suffix names
---
ghc/utils/mkdependHS/mkdependHS.prl | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/ghc/utils/mkdependHS/mkdependHS.prl b/ghc/utils/mkdependHS/mkdependHS.prl
index 46047e163335..4e08e5cdcb34 100644
--- a/ghc/utils/mkdependHS/mkdependHS.prl
+++ b/ghc/utils/mkdependHS/mkdependHS.prl
@@ -161,9 +161,9 @@ foreach $sf (@Src_files) {
# builds up @Depend_lines
print STDERR "Here we go for source file: $sf\n" if $Verbose;
($bf = $sf) =~ s/\.l?hs$//;
- push(@Depend_lines, "$bf$Obj_suffix $bf.hi : $sf\n");
+ push(@Depend_lines, "$bf.$Obj_suffix $bf.hi : $sf\n");
foreach $suff (@File_suffix) {
- push(@Depend_lines, "$bf$suff$Obj_suffix : $sf\n");
+ push(@Depend_lines, "$bf.$suff\_$Obj_suffix : $sf\n");
}
# if it's a literate file, .lhs, then we de-literatize it:
@@ -362,18 +362,18 @@ sub slurp_file_for_imports {
$int_file = $follow_file;
if ( $int_file !~ /\.(l?hs|hi)$/ ) {
- push(@Depend_lines, "$bf$Obj_suffix : $int_file\n");
+ push(@Depend_lines, "$bf.$Obj_suffix : $int_file\n");
foreach $suff (@File_suffix) {
- push(@Depend_lines, "$bf$suff$Obj_suffix : $int_file\n");
+ push(@Depend_lines, "$bf.$suff\_$Obj_suffix : $int_file\n");
}
} else {
$int_file =~ s/\.l?hs$//;
$int_file =~ s/\.hi$//;
- push(@Depend_lines, "$bf$Obj_suffix : $int_file.hi\n");
+ push(@Depend_lines, "$bf.$Obj_suffix : $int_file.hi\n");
foreach $suff (@File_suffix) {
- push(@Depend_lines, "$bf$suff$Obj_suffix : $int_file$suff.hi\n");
+ push(@Depend_lines, "$bf.$suff\_$Obj_suffix : $int_file.$suff\_hi\n");
}
}
}
--
GitLab