diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-06-15 15:12:36 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-06-15 15:12:36 +0000 |
| commit | 41907bbea2194c60641936de6f743fc19d00dd99 (patch) | |
| tree | 874492695dd71c7b2d77acbcfaab921a8646a389 /driver | |
| parent | 612d2bc50d85bd4f24738e00e70b79cd5b714fe0 (diff) | |
| download | haskell-41907bbea2194c60641936de6f743fc19d00dd99.tar.gz | |
Avoid using the new ~~ perl operator in the mangler
Diffstat (limited to 'driver')
| -rw-r--r-- | driver/mangler/ghc-asm.lprl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/driver/mangler/ghc-asm.lprl b/driver/mangler/ghc-asm.lprl index a354caada7..c81a9ead0e 100644 --- a/driver/mangler/ghc-asm.lprl +++ b/driver/mangler/ghc-asm.lprl @@ -1446,7 +1446,7 @@ sub mangle_asm { # If this is an entry point with an info table, # eliminate the entry symbol and all directives involving it. if (defined($infochk{$symb}) && $TargetPlatform !~ /^ia64-/m - && $TABLES_NEXT_TO_CODE ~~ "YES") { + && $TABLES_NEXT_TO_CODE eq "YES") { @o = (); foreach $l (split(/\n/m,$c)) { next if $l =~ /^.*$symb_(entry|ret)${T_POST_LBL}/m; @@ -1882,7 +1882,7 @@ sub rev_tbl { local($symb, $tbl, $discard1) = @_; return ($tbl) if ($TargetPlatform =~ /^ia64-/m - || $TABLES_NEXT_TO_CODE ~~ "NO"); + || $TABLES_NEXT_TO_CODE eq "NO"); local($before) = ''; local($label) = ''; |