From: ken <unknown>
Date: Sun, 23 Sep 2001 20:45:55 +0000 (+0000)
Subject: [project @ 2001-09-23 20:45:55 by ken]
X-Git-Tag: Approximately_9120_patches~932
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4078bb3363f9b6cf457ae7d9bceb2c58e4108889;p=ghc-hetmet.git

[project @ 2001-09-23 20:45:55 by ken]
Disable debugging message.  (Only affects Alpha.)  MERGE TO STABLE
---

diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl
index ae8aeaa..446ab45 100644
--- a/ghc/driver/mangler/ghc-asm.lprl
+++ b/ghc/driver/mangler/ghc-asm.lprl
@@ -1451,8 +1451,7 @@ sub rev_tbl {
 		    ($hi, $lo) = (4294967295 - $hi, 4294967296 - $lo)
 			if $sign eq "-";
 		    $_ = "\t.align 3\n\t.long $lo\n\t.long $hi\n";
-		    printf STDERR "TURNING %s into 0x %08x %08x\n",
-			$number, $hi, $lo;
+		    # printf STDERR "TURNING %s into 0x %08x %08x\n", $number, $hi, $lo;
 		} else {
 		    print STDERR "Cannot handle \".quad $number\" in info table\n";
 		    exit 1;