From: simonmar <unknown>
Date: Thu, 4 Jan 2001 10:48:46 +0000 (+0000)
Subject: [project @ 2001-01-04 10:48:46 by simonmar]
X-Git-Tag: Approximately_9120_patches~2971
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=630af8101b7af8583542fc45616383608cb3f76a;p=ghc-hetmet.git

[project @ 2001-01-04 10:48:46 by simonmar]
Fix the test for epilogue junk, and change it into a warning.
---

diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl
index fa43ae9..44f4693 100644
--- a/ghc/driver/mangler/ghc-asm.lprl
+++ b/ghc/driver/mangler/ghc-asm.lprl
@@ -758,11 +758,8 @@ sub mangle_asm {
 		    print STDERR "$Pgm: unknown epilogue mangling? $TargetPlatform\n";
 		}
 
-		# --- Can't test for residual epilogue junk reliably because
-		# --- there might be some directives left over that we're going
-		# --- to move to the next chunk (see below).
-		# die "Epilogue junk?: $e\n" if $e =~ /^\t[^\.\n]/
-		#    && $TargetPlatform !~ /^powerpc-/; #ToDo: remove test
+		print "WARNING: Epilogue junk?: $e\n" if $e =~ /^\t\s*[^\.\s\n]/
+		   && $TargetPlatform !~ /^powerpc-/; #ToDo: remove test
 
 		# glue together what's left
 		$c = $r . $e;