[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 446ab45..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;