- $e =~ s/^\t\.(mii|mmi|mfi|mib)\n//g; # bundling is no longer sensible
- $e =~ s/^\t;;\n//g; # discard stops - stop at end of body is sufficient
- $e =~ s/^\t\/\/.*\n//g; # gcc inserts timings in // comments
- } elsif ($TargetPlatform =~ /^m68k-/) {
- $e =~ s/^\tunlk a6\n//;
- $e =~ s/^\trts\n//;
- } elsif ($TargetPlatform =~ /^mips-/) {
- $e =~ s/^\tlw\t\$31,\d+\(\$sp\)\n//;
- $e =~ s/^\tlw\t\$fp,\d+\(\$sp\)\n//;
- $e =~ s/^\taddu\t\$sp,\$sp,\d+\n//;
- $e =~ s/^\tj\t\$31\n//;
- } elsif ($TargetPlatform =~ /^powerpc-apple-darwin.*/) {
- $e =~ s/^\taddi r1,r1,\d+\n//;
- $e =~ s/^\tlwz r\d+,\d+\(r1\)\n//;
- $e =~ s/^\tlmw r\d+,-\d+\(r1\)\n//;
- $e =~ s/^\tmtlr r0\n//;
- $e =~ s/^\tblr\n//;
- $e =~ s/^\tb restFP ;.*\n//;
- } elsif ($TargetPlatform =~ /^powerpc64-.*-linux/) {
- $e =~ s/^\tmr 3,0\n//;
- $e =~ s/^\taddi 1,1,\d+\n//;
- $e =~ s/^\tld 0,16\(1\)\n//;
- $e =~ s/^\tmtlr 0\n//;
+ $e =~ s/^\t\.(mii|mmi|mfi|mib)\n//gm; # bundling is no longer sensible
+ $e =~ s/^\t;;\n//gm; # discard stops - stop at end of body is sufficient
+ $e =~ s/^\t\/\/.*\n//gm; # gcc inserts timings in // comments
+ } elsif ($TargetPlatform =~ /^m68k-/m) {
+ $e =~ s/^\tunlk a6\n//m;
+ $e =~ s/^\trts\n//m;
+ } elsif ($TargetPlatform =~ /^mips-/m) {
+ $e =~ s/^\tlw\t\$31,\d+\(\$sp\)\n//m;
+ $e =~ s/^\tlw\t\$fp,\d+\(\$sp\)\n//m;
+ $e =~ s/^\taddu\t\$sp,\$sp,\d+\n//m;
+ $e =~ s/^\tj\t\$31\n//m;
+ } elsif ($TargetPlatform =~ /^powerpc-apple-darwin.*/m) {
+ $e =~ s/^\taddi r1,r1,\d+\n//m;
+ $e =~ s/^\tlwz r\d+,\d+\(r1\)\n//m;
+ $e =~ s/^\tlmw r\d+,-\d+\(r1\)\n//m;
+ $e =~ s/^\tmtlr r0\n//m;
+ $e =~ s/^\tblr\n//m;
+ $e =~ s/^\tb restFP ;.*\n//m;
+ } elsif ($TargetPlatform =~ /^powerpc64-.*-linux/m) {
+ $e =~ s/^\tmr 3,0\n//m;
+ $e =~ s/^\taddi 1,1,\d+\n//m;
+ $e =~ s/^\tld 0,16\(1\)\n//m;
+ $e =~ s/^\tmtlr 0\n//m;