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-08-14 10:57:32 by sof]
[ghc-hetmet.git]
/
ghc
/
driver
/
test_mangler
diff --git
a/ghc/driver/test_mangler
b/ghc/driver/test_mangler
index
5cfe057
..
f24f0e4
100644
(file)
--- a/
ghc/driver/test_mangler
+++ b/
ghc/driver/test_mangler
@@
-2,12
+2,12
@@
# a simple wrapper to test a .s-file mangler
# reads stdin, writes stdout
# a simple wrapper to test a .s-file mangler
# reads stdin, writes stdout
-$which = $ARGV[0]; shift; # nice error checking, Will
+$TargetPlatform = $ARGV[0]; shift; # nice error checking, Will
-require("ghc-asm-$which.prl") || die "require mangler failed!\n";
+require("ghc-asm.prl") || die "require mangler failed!\n";
$SpX86Mangling = 1;
$SpX86Mangling = 1;
-$StolenX86Regs = 5;
+$StolenX86Regs = 4;
open(INP, "> /tmp/mangle1.$$") || die "Can't open tmp file 1\n";
while (<>) {
open(INP, "> /tmp/mangle1.$$") || die "Can't open tmp file 1\n";
while (<>) {