From: simonmar <unknown>
Date: Fri, 3 Jun 2005 10:08:55 +0000 (+0000)
Subject: [project @ 2005-06-03 10:08:55 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~459
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=71bc4a3a0c23c3dd21e770c3da1f2cff6174c6de;p=ghc-hetmet.git

[project @ 2005-06-03 10:08:55 by simonmar]
Check for reserved stack space blown.
---

diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl
index 935b2a4..493c6e3 100644
--- a/ghc/driver/mangler/ghc-asm.lprl
+++ b/ghc/driver/mangler/ghc-asm.lprl
@@ -778,6 +778,12 @@ sub mangle_asm {
 		$r =~ s/^\s*\n//;
 
 		if ($TargetPlatform =~ /^i386-/) {
+		    if ($p =~ /^\tsubl\s+\$(\d+),\s*\%esp\n/) {
+			if ($1 >= 8192) {
+			    die "Error: reserved stack space exceeded!\n  Possible workarounds: compile with -fasm, or try another version of gcc.\n"
+			}
+		    }
+
 		    $p =~ s/^\tpushl\s+\%edi\n//;
 		    $p =~ s/^\tpushl\s+\%esi\n//;
 		    $p =~ s/^\tpushl\s+\%ebx\n//;