%************************************************************************
\begin{code}
+############################################################################
+# Make all regexp matching multi-line aware. This replaces the line below
+# originally found in "sub mangle_asm":
+#
+# local($*) = 1;
+#
+# This used to work, but Perl 5.10 removes support for $*, so we uses an
+# equivalent construct that works in Perl 5.6 and later.
+#
+BEGIN { require overload; overload::constant( qr => sub { "(?m:$_[1])" } ) }
+############################################################################
+
$TargetPlatform = $TARGETPLATFORM;
($Pgm = $0) =~ s|.*/||;
local($in_asmf, $out_asmf) = @_;
local($i, $c);
- # multi-line regexp matching:
- # local($*) = 1;
- # the above line used to work, but Perl 5.10 removes $*, so we uses an
- # equivalent construct that works in Perl 5.6 and later.
- BEGIN { require overload; overload::constant( qr => sub { "(?m:$_[1])" } ) }
-
# ia64-specific information for code chunks
my $ia64_locnum;
my $ia64_outnum;