projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2001-08-08 10:50:36 by simonmar]
[ghc-hetmet.git]
/
ghc
/
includes
/
PrimOps.h
diff --git
a/ghc/includes/PrimOps.h
b/ghc/includes/PrimOps.h
index
a163ade
..
a33db9c
100644
(file)
--- a/
ghc/includes/PrimOps.h
+++ b/
ghc/includes/PrimOps.h
@@
-1,5
+1,5
@@
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $Id: PrimOps.h,v 1.79 2001/07/24 06:31:35 ken Exp $
+ * $Id: PrimOps.h,v 1.80 2001/08/08 10:50:37 simonmar Exp $
*
* (c) The GHC Team, 1998-2000
*
*
* (c) The GHC Team, 1998-2000
*
@@
-664,8
+664,13
@@
EXTFUN_RTS(unsafeThawArrayzh_fast);
/* and the out-of-line ones... */
EXTFUN_RTS(newByteArrayzh_fast);
/* and the out-of-line ones... */
EXTFUN_RTS(newByteArrayzh_fast);
+EXTFUN_RTS(newPinnedByteArrayzh_fast);
EXTFUN_RTS(newArrayzh_fast);
EXTFUN_RTS(newArrayzh_fast);
+// Highly unsafe, for use with a pinned ByteArray
+// being kept alive with touch#
+#define byteArrayContentszh(r,a) r = BYTE_ARR_CTS(a)
+
/* encoding and decoding of floats/doubles. */
/* We only support IEEE floating point format */
/* encoding and decoding of floats/doubles. */
/* We only support IEEE floating point format */