Commit 37a28e59 authored by simonm's avatar simonm
Browse files

[project @ 1998-05-15 16:11:23 by simonm]

fixup problem with '.' at the front of a local label.
parent 579448b2
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment