[project @ 1999-01-14 18:17:32 by sof]

[ghc-hetmet.git] / ghc / lib / misc / Native.lhs

diff --git a/ghc/lib/misc/Native.lhs b/ghc/lib/misc/Native.lhs
index 4ca85a1..5c35ac4 100644 (file)
--- a/ghc/lib/misc/Native.lhs
+++ b/ghc/lib/misc/Native.lhs
@@ -127,6 +127,7 @@ hasNElems 4 (_:_:_:_:_)  = True             -- speedup
 hasNElems _ []     = False
 hasNElems n (_:xs) = hasNElems (n-1) xs
 
+lenLong, lenInt, lenShort, lenFloat, lenDouble :: Int
 lenLong   = length (longToBytes   0 [])
 lenInt    = length (intToBytes    0 [])
 lenShort  = length (shortToBytes  0 [])