From: simonmar <unknown>
Date: Mon, 26 Mar 2001 16:52:03 +0000 (+0000)
Subject: [project @ 2001-03-26 16:52:03 by simonmar]
X-Git-Tag: Approximately_9120_patches~2310
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b99be402d15409834f3998512d4568b83b1e4ee5;p=ghc-hetmet.git

[project @ 2001-03-26 16:52:03 by simonmar]
if the STOLEN_X86_REGS arg is missing, assume 4.
---

diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl
index cd4d99a..68a0cdb 100644
--- a/ghc/driver/mangler/ghc-asm.lprl
+++ b/ghc/driver/mangler/ghc-asm.lprl
@@ -66,7 +66,11 @@ $ifile = $ARGV[0];
 $ofile = $ARGV[1];
 
 if ( $TargetPlatform =~ /^i386-/ ) {
-    $StolenX86Regs = $ARGV[2];
+    if ($ARGV[2] eq '') {
+	$StolenX86Regs = 4;
+    } else {
+        $StolenX86Regs = $ARGV[2];
+    }
 }
 
 &mangle_asm($ifile,$ofile);