diff options
| -rw-r--r-- | includes/Stg.h | 1 | ||||
| -rw-r--r-- | includes/stg/Prim.h | 39 |
2 files changed, 40 insertions, 0 deletions
diff --git a/includes/Stg.h b/includes/Stg.h index 09de8d4b2a..be966aaf16 100644 --- a/includes/Stg.h +++ b/includes/Stg.h @@ -240,6 +240,7 @@ typedef StgFunPtr F_; #include "stg/MiscClosures.h" #endif +#include "stg/Prim.h" /* ghc-prim fallbacks */ #include "stg/SMP.h" // write_barrier() inline is required /* ----------------------------------------------------------------------------- diff --git a/includes/stg/Prim.h b/includes/stg/Prim.h new file mode 100644 index 0000000000..2b23c3d4c7 --- /dev/null +++ b/includes/stg/Prim.h @@ -0,0 +1,39 @@ +/* ---------------------------------------------------------------------------- + * + * (c) The GHC Team, 2014-2014 + * + * Declarations for C fallback primitives implemented by 'ghc-prim' package. + * + * Do not #include this file directly: #include "Rts.h" instead. + * + * To understand the structure of the RTS headers, see the wiki: + * http://ghc.haskell.org/trac/ghc/wiki/Commentary/SourceTree/Includes + * + * -------------------------------------------------------------------------- */ + +#ifndef PRIM_H +#define PRIM_H + +/* libraries/ghc-prim/cbits/bswap.c */ +StgWord16 hs_bswap16(StgWord16 x); +StgWord32 hs_bswap32(StgWord32 x); +StgWord64 hs_bswap64(StgWord64 x); + +/* TODO: longlong.c */ + +/* libraries/ghc-prim/cbits/popcnt.c */ +StgWord hs_popcnt8(StgWord8 x); +StgWord hs_popcnt16(StgWord16 x); +StgWord hs_popcnt32(StgWord32 x); +StgWord hs_popcnt64(StgWord64 x); +#ifdef i386_HOST_ARCH +StgWord hs_popcnt(StgWord32 x); +#else +StgWord hs_popcnt(StgWord64 x); +#endif + +/* libraries/ghc-prim/cbits/word2float.c */ +StgFloat hs_word2float32(StgWord x); +StgDouble hs_word2float64(StgWord x); + +#endif /* PRIM_H */ |