From 3fc55f7920c62dafc4c8c470de6bc45fbbee7a27 Mon Sep 17 00:00:00 2001 From: simonmar Date: Mon, 11 Sep 2000 09:27:14 +0000 Subject: [PATCH] [project @ 2000-09-11 09:27:14 by simonmar] HP-PA fixes from Eric Schweitz --- ghc/driver/split/ghc-split.lprl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/ghc/driver/split/ghc-split.lprl b/ghc/driver/split/ghc-split.lprl index 11702c8..0cff062 100644 --- a/ghc/driver/split/ghc-split.lprl +++ b/ghc/driver/split/ghc-split.lprl @@ -333,6 +333,8 @@ sub process_asm_block_hppa { while ( $str =~ /^(\s+\.align.*\n(L\$C\d+)\n(\s.*\n)+); end literal\n/ ) { local($label) = $2; local($body) = $1; + local($prefix) = $`; + local($suffix) = $'; $label =~ s/\$/\\\$/g; &tidy_up_and_die(1,"Local constant label $label already defined!\n") @@ -340,7 +342,7 @@ sub process_asm_block_hppa { $LocalConstant{$label} = "\t.SPACE \$TEXT\$\n\t.SUBSPA \$LIT\$\n\n" . $body; - $str =~ s/^\s+\.SPACE \$TEXT\$\n\s+\.SUBSPA \$LIT\$\s+\.align.*\nL\$C\d+\n(\s.*\n)+; end literal\n//; + $str = $prefix . $suffix; } # inject definitions for any local constants now used herein -- 1.7.10.4