Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Add word2float

  • Loading branch information...
commit dbe66a7ea2e109d3c7744badf5e0b434f3d0f2a7 1 parent c2ed4a8
@tibbe tibbe authored
Showing with 16 additions and 0 deletions.
  1. +15 −0 cbits/word2float.c
  2. +1 −0  ghc-prim.cabal
View
15 cbits/word2float.c
@@ -0,0 +1,15 @@
+#include "Rts.h"
+
+extern StgFloat hs_word2float32(StgWord x);
+StgFloat
+hs_word2float32(StgWord x)
+{
+ return x;
+}
+
+extern StgDouble hs_word2float64(StgWord x);
+StgDouble
+hs_word2float64(StgWord x)
+{
+ return x;
+}
View
1  ghc-prim.cabal
@@ -40,6 +40,7 @@ Library {
cbits/debug.c
cbits/longlong.c
cbits/popcnt.c
+ cbits/word2float.c
extensions: CPP, MagicHash, ForeignFunctionInterface, UnliftedFFITypes,
UnboxedTuples, EmptyDataDecls, NoImplicitPrelude
-- We need to set the package name to ghc-prim (without a version number)
Please sign in to comment.
Something went wrong with that request. Please try again.