[project @ 2000-09-06 12:21:15 by simonmar]

[ghc-hetmet.git] / ghc / compiler / basicTypes / Unique.lhs

diff --git a/ghc/compiler/basicTypes/Unique.lhs b/ghc/compiler/basicTypes/Unique.lhs
index 5c76485..7d9c039 100644 (file)
--- a/ghc/compiler/basicTypes/Unique.lhs
+++ b/ghc/compiler/basicTypes/Unique.lhs
@@ -27,6 +27,7 @@ module Unique (
 
        incrUnique,                     -- Used for renumbering
        deriveUnique,                   -- Ditto
+       newTagUnique,                   -- Used in CgCase
        initTyVarUnique,
        initTidyUniques,
 
@@ -237,6 +238,7 @@ getKey              :: Unique -> Int#               -- for Var
 
 incrUnique     :: Unique -> Unique
 deriveUnique   :: Unique -> Int -> Unique
+newTagUnique   :: Unique -> Char -> Unique
 
 isTupleKey     :: Unique -> Bool
 \end{code}
@@ -254,6 +256,9 @@ incrUnique (MkUnique i) = MkUnique (i +# 1#)
 -- any of the uniques produced any other way
 deriveUnique (MkUnique i) delta = mkUnique 'X' (I# i + delta)
 
+-- newTagUnique changes the "domain" of a unique to a different char
+newTagUnique u c = mkUnique c i where (_,i) = unpkUnique u
+
 -- pop the Char in the top 8 bits of the Unique(Supply)
 
 -- No 64-bit bugs here, as long as we have at least 32 bits. --JSM