X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FPrimOps.hc;h=364e20ab6f8150168ced04fcbf5656ba0d081c06;hb=52c078343e70a170441fed71480ba8569475c4cd;hp=6894b26dd4c7a475273bbeb3d3a99343522894c7;hpb=1cc01adad4360ab1014b83ce933aec055d5d0e85;p=ghc-hetmet.git

diff --git a/ghc/rts/PrimOps.hc b/ghc/rts/PrimOps.hc
index 6894b26..364e20a 100644
--- a/ghc/rts/PrimOps.hc
+++ b/ghc/rts/PrimOps.hc
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: PrimOps.hc,v 1.82 2001/07/26 03:08:39 ken Exp $
+ * $Id: PrimOps.hc,v 1.83 2001/08/08 10:50:37 simonmar Exp $
  *
  * (c) The GHC Team, 1998-2000
  *
@@ -263,6 +263,24 @@ FN_(newByteArrayzh_fast)				\
    FE_							\
  }
 
+FN_(newPinnedByteArrayzh_fast)					\
+ {								\
+   W_ size, stuff_size, n;					\
+   StgArrWords* p;						\
+   FB_								\
+     MAYBE_GC(NO_PTRS,newPinnedByteArrayzh_fast);		\
+     n = R1.w;							\
+     stuff_size = BYTES_TO_STGWORDS(n);				\
+     size = sizeofW(StgArrWords)+ stuff_size;			\
+     p = (StgArrWords *)RET_STGCALL1(P_,allocatePinned,size);	\
+     TICK_ALLOC_PRIM(sizeofW(StgArrWords),stuff_size,0);	\
+     SET_HDR(p, &stg_ARR_WORDS_info, CCCS);			\
+     p->words = stuff_size;					\
+     TICK_RET_UNBOXED_TUP(1)					\
+     RET_P(p);							\
+   FE_								\
+ }
+
 FN_(newArrayzh_fast)
 {
   W_ size, n, init;