Permalink
Browse files

Add word2float

  • Loading branch information...
tibbe committed Dec 6, 2012
1 parent c2ed4a8 commit dbe66a7ea2e109d3c7744badf5e0b434f3d0f2a7
Showing with 16 additions and 0 deletions.
  1. +15 −0 cbits/word2float.c
  2. +1 −0 ghc-prim.cabal
View
@@ -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
@@ -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)

0 comments on commit dbe66a7

Please sign in to comment.