Commit 3fc55f79 authored by simonmar's avatar simonmar
Browse files

[project @ 2000-09-11 09:27:14 by simonmar]

HP-PA fixes from Eric Schweitz <schweitz@nortelnetworks.com>
parent d8e1c0a7
......@@ -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
......
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