From 37a28e5948c5f511870e5f67e4472beebecc5493 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Fri, 15 May 1998 16:11:23 +0000
Subject: [PATCH] [project @ 1998-05-15 16:11:23 by simonm] fixup problem with
'.' at the front of a local label.
---
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 804b3eb22017..8c140ccd23e0 100644
--- a/ghc/driver/ghc-split.lprl
+++ b/ghc/driver/ghc-split.lprl
@@ -200,7 +200,7 @@ sub process_asm_block_sparc {
$str =~ s/^\.stabs "(ghc\d+\.c)"/.stabs "$ifile_root.hc"/g; # HACK HACK
# remove/record any literal constants defined here
- while ( $str =~ /(\t\.align .\n(\.?LC\d+):\n(\t\.asci[iz].*\n)+)/ ) {
+ while ( $str =~ /(\t\.align .\n\.?(LC\d+):\n(\t\.asci[iz].*\n)+)/ ) {
local($label) = $2;
local($body) = $1;
@@ -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|string).*\n)/ )) {
+ while ( ($str =~ /(\.?(LC\d+):\n\t\.(ascii|string).*\n)/ )) {
local($label) = $2;
local($body) = $1;
--
GitLab