From afd0d0bc193b96da3d68d137733f3c6e4b8d56d6 Mon Sep 17 00:00:00 2001
From: sof <unknown>
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 3515512756f6..8475e625748c 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] = '';
--
GitLab