From 4078bb3363f9b6cf457ae7d9bceb2c58e4108889 Mon Sep 17 00:00:00 2001
From: ken <unknown>
Date: Sun, 23 Sep 2001 20:45:55 +0000
Subject: [PATCH] [project @ 2001-09-23 20:45:55 by ken] Disable debugging
 message.  (Only affects Alpha.)  MERGE TO STABLE

---
 ghc/driver/mangler/ghc-asm.lprl |    3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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;
-- 
1.7.10.4