[project @ 2005-02-10 13:01:52 by simonmar]

[ghc-hetmet.git] / ghc / compiler / codeGen / CgPrimOp.hs

diff --git a/ghc/compiler/codeGen/CgPrimOp.hs b/ghc/compiler/codeGen/CgPrimOp.hs
index 5c01903..52f6551 100644 (file)
--- a/ghc/compiler/codeGen/CgPrimOp.hs
+++ b/ghc/compiler/codeGen/CgPrimOp.hs
@@ -175,7 +175,7 @@ emitPrimOp [res] DataToTagOp [arg] live
 
 -- #define unsafeFreezzeArrayzh(r,a)
 --     {
---        SET_INFO((StgClosure *)a,&stg_MUT_ARR_PTRS_FROZEN_info);
+--        SET_INFO((StgClosure *)a,&stg_MUT_ARR_PTRS_FROZEN0_info);
 --       r = a;
 --     }
 emitPrimOp [res] UnsafeFreezeArrayOp [arg] live