diff options
| -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) = ''; |