projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
This is just white-space and layout
[ghc-hetmet.git]
/
compiler
/
codeGen
/
Bitmap.hs
diff --git
a/compiler/codeGen/Bitmap.hs
b/compiler/codeGen/Bitmap.hs
index
2e77014
..
acd398c
100644
(file)
--- a/
compiler/codeGen/Bitmap.hs
+++ b/
compiler/codeGen/Bitmap.hs
@@
-9,7
+9,8
@@
module Bitmap (
Bitmap, mkBitmap,
intsToBitmap, intsToReverseBitmap,
module Bitmap (
Bitmap, mkBitmap,
intsToBitmap, intsToReverseBitmap,
- mAX_SMALL_BITMAP_SIZE
+ mAX_SMALL_BITMAP_SIZE,
+ seqBitmap,
) where
#include "HsVersions.h"
) where
#include "HsVersions.h"
@@
-17,6
+18,7
@@
module Bitmap (
import SMRep
import Constants
import SMRep
import Constants
+import Util
import Data.Bits
import Data.Bits
@@
-78,3
+80,6
@@
mAX_SMALL_BITMAP_SIZE :: Int
mAX_SMALL_BITMAP_SIZE | wORD_SIZE == 4 = 27
| otherwise = 58
mAX_SMALL_BITMAP_SIZE | wORD_SIZE == 4 = 27
| otherwise = 58
+seqBitmap :: Bitmap -> a -> a
+seqBitmap = seqList
+