[project @ 2001-09-25 20:16:19 by sof]

[ghc-hetmet.git] / ghc / driver / mangler / ghc-asm.lprl

diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl
index ae8aeaa..ca26221 100644 (file)
--- a/ghc/driver/mangler/ghc-asm.lprl
+++ b/ghc/driver/mangler/ghc-asm.lprl
@@ -1443,7 +1443,7 @@ sub rev_tbl {
                    local ($sign, $base, $digits) = ($1, $2, $3);
                    $base = (10, 8, 16)[length $base];
                    local ($hi, $lo) = (0, 0);
-                   foreach $i (split //, $digits) {
+                   foreach $i (split(//, $digits)) {
                        $j = $lo * $base + $i;
                        $lo = $j % 4294967296;
                        $hi = $hi * $base + ($j - $lo) / 4294967296;
@@ -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;