X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fdriver%2Ftest_mangler;h=96cf31ca68fb1ce8b042c247f2f085a9ab5a72b2;hb=3034a6c8cfb50e2b5af4ef57c419986039b53a94;hp=5cfe057770bcccd773b60a87275aed1524fa13c5;hpb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;p=ghc-hetmet.git

diff --git a/ghc/driver/test_mangler b/ghc/driver/test_mangler
index 5cfe057..96cf31c 100644
--- a/ghc/driver/test_mangler
+++ b/ghc/driver/test_mangler
@@ -1,13 +1,15 @@
-#! /usr/local/bin/perl
+#! /usr/bin/perl
 # a simple wrapper to test a .s-file mangler
 # reads stdin, writes stdout
 
-$which = $ARGV[0]; shift; # nice error checking, Will
+push(@INC,"/net/dazdak/BUILDS/gransim-4.04/i386-unknown-linux/ghc/driver");
 
-require("ghc-asm-$which.prl") || die "require mangler failed!\n";
+$TargetPlatform = $ARGV[0]; shift; # nice error checking, Will
+
+require("ghc-asm.prl") || die "require mangler failed!\n";
 
 $SpX86Mangling = 1;
-$StolenX86Regs = 5;
+$StolenX86Regs = 4;
 
 open(INP, "> /tmp/mangle1.$$") || die "Can't open tmp file 1\n";
 while (<>) {