A string constant block can consist of multiple .string/.ascii
directives. The sparc-specific code in this file already handled this
properly, but the x86 code was wrong.
$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;
$LocalConstant{$label} = $body;
- $str =~ s/\.?LC\d+:\n\t\.(ascii|string).*\n//;
+ $str =~ s/\.?LC\d+:\n(\t\.(ascii|string).*\n)+//;
}
# inject definitions for any local constants now used herein