fix profiling bug in copyArray#/cloneArray# (cgrun068(profasm) segfault)
authorSimon Marlow <marlowsd@gmail.com>
Mon, 14 Nov 2011 11:17:14 +0000 (11:17 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Mon, 14 Nov 2011 15:14:08 +0000 (15:14 +0000)
compiler/codeGen/CgPrimOp.hs
compiler/codeGen/StgCmmPrim.hs

index 23708fe..6fe934b 100644 (file)
@@ -811,7 +811,7 @@ emitCloneArray info_p res_r src0 src_off0 n0 live = do
         (CmmLit $ mkIntCLit 0)
 
     let arr = CmmReg (CmmLocal arr_r)
-    emitSetDynHdr arr (CmmLit (CmmLabel info_p)) curCCSAddr
+    emitSetDynHdr arr (CmmLit (CmmLabel info_p)) curCCS
     stmtC $ CmmStore (cmmOffsetB arr (fixedHdrSize * wORD_SIZE +
                                       oFFSET_StgMutArrPtrs_ptrs)) n
     stmtC $ CmmStore (cmmOffsetB arr (fixedHdrSize * wORD_SIZE +
index 8935d56..f8cc425 100644 (file)
@@ -877,7 +877,7 @@ emitCloneArray info_p res_r src0 src_off0 n0 = do
         (CmmLit $ mkIntCLit 0)
 
     let arr = CmmReg (CmmLocal arr_r)
-    emitSetDynHdr arr (CmmLit (CmmLabel info_p)) curCCSAddr
+    emitSetDynHdr arr (CmmLit (CmmLabel info_p)) curCCS
     emit $ mkStore (cmmOffsetB arr (fixedHdrSize * wORD_SIZE +
                                     oFFSET_StgMutArrPtrs_ptrs)) n
     emit $ mkStore (cmmOffsetB arr (fixedHdrSize * wORD_SIZE +