projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1996-05-01 18:36:59 by partain]
[ghc-hetmet.git]
/
ghc
/
compiler
/
basicTypes
/
Unique.lhs
diff --git
a/ghc/compiler/basicTypes/Unique.lhs
b/ghc/compiler/basicTypes/Unique.lhs
index
36702cc
..
54c7898
100644
(file)
--- a/
ghc/compiler/basicTypes/Unique.lhs
+++ b/
ghc/compiler/basicTypes/Unique.lhs
@@
-252,13
+252,13
@@
w2i x = word2Int# x
i2w x = int2Word# x
i2w_s x = (x::Int#)
i2w x = int2Word# x
i2w_s x = (x::Int#)
-mkUnique (MkChar c#) (MkInt i#)
- = MkUnique (w2i (((i2w (ord# c#)) `shiftL#` (i2w_s 24#)) `or#` (i2w i#)))
+mkUnique (C# c) (I# i)
+ = MkUnique (w2i (((i2w (ord# c)) `shiftL#` (i2w_s 24#)) `or#` (i2w i)))
unpkUnique (MkUnique u)
= let
unpkUnique (MkUnique u)
= let
- tag = MkChar (chr# (w2i ((i2w u) `shiftr` (i2w_s 24#))))
- i = MkInt (w2i ((i2w u) `and#` (i2w 16777215#){-``0x00ffffff''-}))
+ tag = C# (chr# (w2i ((i2w u) `shiftr` (i2w_s 24#))))
+ i = I# (w2i ((i2w u) `and#` (i2w 16777215#){-``0x00ffffff''-}))
in
(tag, i)
where
in
(tag, i)
where