From fc9bacdece12574a9ba9d2de2a74783da19f2ac4 Mon Sep 17 00:00:00 2001 From: simonmar Date: Thu, 3 Mar 2005 10:37:57 +0000 Subject: [PATCH] [project @ 2005-03-03 10:37:57 by simonmar] Sparc: allow whitespace before .section directive. Should fix linking problems on sparc/solaris. --- ghc/driver/mangler/ghc-asm.lprl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl index 6e29279..3934416 100644 --- a/ghc/driver/mangler/ghc-asm.lprl +++ b/ghc/driver/mangler/ghc-asm.lprl @@ -360,7 +360,7 @@ sub init_TARGET_STUFF { $T_CONST_LBL = '^\.LLC(\d+):$'; # regexp for what such a lbl looks like $T_POST_LBL = ':'; - $T_MOVE_DIRVS = '^((\s+\.align\s+\d+|\s+\.proc\s+\d+|\s+\.global\s+\S+|\.text|\.data|\.stab.*|\.section.*|\s+\.type.*|\s+\.size.*)\n)'; + $T_MOVE_DIRVS = '^((\s+\.align\s+\d+|\s+\.proc\s+\d+|\s+\.global\s+\S+|\.text|\.data|\.stab.*|\s*\.section.*|\s+\.type.*|\s+\.size.*)\n)'; $T_COPY_DIRVS = '\.(global|proc|stab)'; $T_DOT_WORD = '\.(long|word|byte|half|skip|uahalf|uaword)'; -- 1.7.10.4