From 5b33f5fd5db55dfd9efe4032fa4e2404f5fe18f0 Mon Sep 17 00:00:00 2001 From: simonm Date: Fri, 15 May 1998 14:15:29 +0000 Subject: [PATCH] [project @ 1998-05-15 14:15:29 by simonm] Fix splitting on i386-unknwon-linux: string constants were being duplicated in each object, leading to large increases in binary sizes. --- ghc/driver/ghc-split.lprl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ghc/driver/ghc-split.lprl b/ghc/driver/ghc-split.lprl index 962f67d..57729f2 100644 --- a/ghc/driver/ghc-split.lprl +++ b/ghc/driver/ghc-split.lprl @@ -312,7 +312,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.*\n)/ )) { + while ( ($str =~ /((\.?LC\d+):\n\t\.(ascii|string).*\n)/ )) { local($label) = $2; local($body) = $1; @@ -321,7 +321,7 @@ sub process_asm_block_iX86 { $LocalConstant{$label} = $body; - $str =~ s/LC\d+:\n\t\.ascii.*\n//; + $str =~ s/\.?LC\d+:\n\t\.(ascii|string).*\n//; } # inject definitions for any local constants now used herein -- 1.7.10.4