Make constructor names in info tables position independent

[ghc-hetmet.git] / driver / mangler / ghc-asm.lprl

diff --git a/driver/mangler/ghc-asm.lprl b/driver/mangler/ghc-asm.lprl
index 941d608..0cd4781 100644 (file)
--- a/driver/mangler/ghc-asm.lprl
+++ b/driver/mangler/ghc-asm.lprl
@@ -1779,6 +1779,7 @@ sub rev_tbl {
             $line =~ s/$infoname/0/
             || $line =~ s/([A-Za-z0-9_]+_srtd)$/\1 - $infoname/
             || $line =~ s/([A-Za-z0-9_]+_srt(\+\d+)?)$/\1 - $infoname/
+            || $line =~ s/([A-Za-z0-9_]+_str)$/\1 - $infoname/
            || $line =~ s/([A-Za-z0-9_]+_slow)$/\1 - $infoname/
            || $line =~ s/([A-Za-z0-9_]+_btm)$/\1 - $infoname/
             || $line =~ s/([A-Za-z0-9_]+_alt)$/\1 - $infoname/