From e07d34ab17df2b667cb2ce895be27f740f4f273e Mon Sep 17 00:00:00 2001 From: simonmar Date: Sat, 30 Jun 2001 11:21:12 +0000 Subject: [PATCH] [project @ 2001-06-30 11:21:12 by simonmar] sigh, the split script broke due to changes in gcc on FreeBSD (again). --- ghc/driver/split/ghc-split.lprl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ghc/driver/split/ghc-split.lprl b/ghc/driver/split/ghc-split.lprl index 3fe2b81..8071aa5 100644 --- a/ghc/driver/split/ghc-split.lprl +++ b/ghc/driver/split/ghc-split.lprl @@ -290,7 +290,7 @@ sub process_asm_block_iX86 { $str = "\.text\n\t.align 4\n" . $str; # remove/record any literal constants defined here - while ( ($str =~ /(\.?(LC\d+):\n(\t\.(ascii|string).*\n|\.byte.*\n)+)/ )) { + while ( ($str =~ /(\.?(LC\d+):\n(\t\.(ascii|string).*\n|\s*\.byte.*\n)+)/ )) { local($label) = $2; local($body) = $1; @@ -299,7 +299,7 @@ sub process_asm_block_iX86 { $LocalConstant{$label} = $body; - $str =~ s/\.?LC\d+:\n(\t\.(ascii|string).*\n|\.byte.*\n)+//; + $str =~ s/\.?LC\d+:\n(\t\.(ascii|string).*\n|\s*\.byte.*\n)+//; } # inject definitions for any local constants now used herein -- 1.7.10.4