From: sof <unknown>
Date: Sun, 8 Nov 1998 11:14:37 +0000 (+0000)
Subject: [project @ 1998-11-08 11:14:37 by sof]
X-Git-Tag: Approx_2487_patches~223
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=afd0d0bc193b96da3d68d137733f3c6e4b8d56d6;p=ghc-hetmet.git

[project @ 1998-11-08 11:14:37 by sof]
Tweaked __fexp regexps
---

diff --git a/ghc/driver/ghc-asm.lprl b/ghc/driver/ghc-asm.lprl
index 3515512..8475e62 100644
--- a/ghc/driver/ghc-asm.lprl
+++ b/ghc/driver/ghc-asm.lprl
@@ -404,7 +404,7 @@ sub mangle_asm {
 	# we use global variables to pass arguments from C to STG land.
 	# These declarations live in the .hc file and not in the generated C
 	# stub file, so we let them pass through here.
-	} elsif ( /^\t\.comm\t__fexp_.*$/ ) {
+	} elsif ( /^[\t]?\.comm[\t ]+${TUS}__fexp_.*$/ ) {
 	    $chk[++$i]   = $_;
 	    $chkcat[$i]  = 'data';
 	    $chksymb[$i] = '';
@@ -532,7 +532,7 @@ sub mangle_asm {
 	# we use global variables to pass arguments from C to STG land.
 	# These declarations live in the .hc file and not in the generated C
 	# stub file, so we let them pass through here.
-	} elsif ( /^[\t ]+\.comm[\t ]+__fexp_.*$/ ) {
+	} elsif ( /^[\t ]*\.comm[\t ]+${TUS}__fexp_.*$/ ) {
 	    $chk[++$i]   = $_;
 	    $chkcat[$i]  = 'data';
 	    $chksymb[$i] = '';