X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=driver%2Fmangler%2Fghc-asm.lprl;fp=driver%2Fmangler%2Fghc-asm.lprl;h=a354caada765bf080f336e04ff00721fd534719d;hp=1ff78a4aa8a226962c0e0a9cd6da420811a0ed73;hb=49a8e5c021009430d373d6224b29004c7d18c408;hpb=0c41772cba7ec3f558cd2619716c7db771eae935

diff --git a/driver/mangler/ghc-asm.lprl b/driver/mangler/ghc-asm.lprl
index 1ff78a4..a354caa 100644
--- a/driver/mangler/ghc-asm.lprl
+++ b/driver/mangler/ghc-asm.lprl
@@ -1445,7 +1445,8 @@ 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) {
+		if (defined($infochk{$symb}) && $TargetPlatform !~ /^ia64-/m
+				&& $TABLES_NEXT_TO_CODE ~~ "YES") {
 			@o = ();
 			foreach $l (split(/\n/m,$c)) {
 			    next if $l =~ /^.*$symb_(entry|ret)${T_POST_LBL}/m;
@@ -1880,7 +1881,8 @@ sub rev_tbl {
     # use vars '$discard1';   # Unused?
     local($symb, $tbl, $discard1) = @_;
 
-    return ($tbl) if ($TargetPlatform =~ /^ia64-/m);
+    return ($tbl) if ($TargetPlatform =~ /^ia64-/m
+                      || $TABLES_NEXT_TO_CODE ~~ "NO");
 
     local($before) = '';
     local($label) = '';