[project @ 2000-10-12 14:25:35 by simonmar]

update FAST_INT names

diff --git a/ghc/utils/genprimopcode/Main.hs b/ghc/utils/genprimopcode/Main.hs
index fce372e..aaff9c1 100644 (file)
--- a/ghc/utils/genprimopcode/Main.hs
+++ b/ghc/utils/genprimopcode/Main.hs
@@ -114,7 +114,7 @@ gen_primop_tag (Info defaults pos)
    = unlines (zipWith f pos [1..])
      where
         f i n = "tagOf_PrimOp " ++ cons i 
-                ++ " = ILIT(" ++ show n ++ ") :: FAST_INT"
+                ++ " = _ILIT(" ++ show n ++ ") :: FastInt"
 
 gen_enum_decl (Info defaults pos)
    = let conss = map cons pos