From afd0d0bc193b96da3d68d137733f3c6e4b8d56d6 Mon Sep 17 00:00:00 2001 From: sof Date: Sun, 8 Nov 1998 11:14:37 +0000 Subject: [PATCH] [project @ 1998-11-08 11:14:37 by sof] Tweaked __fexp regexps --- ghc/driver/ghc-asm.lprl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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] = ''; -- 1.7.10.4