Commits

Carter Schonwald committed 38c775c

some small changes

  • Participants
  • Parent commits fae55b7

Comments (0)

Files changed (1)

 foreign import prim "cmm_doubleWord" cmm_doubleWord  :: Word# -> Word#
 
 foreign import prim "cmm_factorialWord" cmm_factorialWord  :: Word# -> Word# 
+
+
 {-# INLINE wrapped_cmm_factorialWord #-}
 wrapped_cmm_factorialWord  (W64# n) =  W64# res 
     where 
 foreign import ccall safe "normal.c  c_doubleNum_alt" 
     c_doubleNum_safeFFI:: CULong ->CULong 
 
+foreign import ccall unsafe "normal.c c_factorialNum"
+    c_factorialNumUNSAFE ::  CULong -> CULong
+
+{-#  INLINE wrapper_c_factorial_UNSAFE #-}
+wrapper_c_factorial_UNSAFE :: Word64 -> Word64
+wrapper_c_factorial_UNSAFE   !x  = fromIntegral (c_factorialNumUNSAFE $! fromIntegral x  )
+
 foreign import prim "c4hs_Factorial" c4hs_Factorial :: Word# -> Word#
 
 {-# INLINE wrapped_C4HS_factorial #-}