diff options
author | Alberto Ruiz <aruiz@um.es> | 2015-06-06 19:52:55 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2015-06-06 19:52:55 +0200 |
commit | dd7919095dc76f67ba2bf8aec506e13a55b8847d (patch) | |
tree | 2739a3333843ac787ede16c22dcf3d306b329941 /packages/base/src/Internal/Vectorized.hs | |
parent | c680fbb7a743b2fc519987a4d5f24bb9b675655f (diff) |
fromZ, toZ
Diffstat (limited to 'packages/base/src/Internal/Vectorized.hs')
-rw-r--r-- | packages/base/src/Internal/Vectorized.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/packages/base/src/Internal/Vectorized.hs b/packages/base/src/Internal/Vectorized.hs index b1ad424..ff51494 100644 --- a/packages/base/src/Internal/Vectorized.hs +++ b/packages/base/src/Internal/Vectorized.hs | |||
@@ -408,6 +408,13 @@ double2IntV = tog c_double2int | |||
408 | int2DoubleV :: Vector CInt -> Vector Double | 408 | int2DoubleV :: Vector CInt -> Vector Double |
409 | int2DoubleV = tog c_int2double | 409 | int2DoubleV = tog c_int2double |
410 | 410 | ||
411 | double2longV :: Vector Double -> Vector Z | ||
412 | double2longV = tog c_double2long | ||
413 | |||
414 | long2DoubleV :: Vector Z -> Vector Double | ||
415 | long2DoubleV = tog c_long2double | ||
416 | |||
417 | |||
411 | float2IntV :: Vector Float -> Vector CInt | 418 | float2IntV :: Vector Float -> Vector CInt |
412 | float2IntV = tog c_float2int | 419 | float2IntV = tog c_float2int |
413 | 420 | ||
@@ -430,6 +437,8 @@ foreign import ccall unsafe "float2double" c_float2double :: Float :> Double :> | |||
430 | foreign import ccall unsafe "double2float" c_double2float :: Double :> Float :> Ok | 437 | foreign import ccall unsafe "double2float" c_double2float :: Double :> Float :> Ok |
431 | foreign import ccall unsafe "int2double" c_int2double :: CInt :> Double :> Ok | 438 | foreign import ccall unsafe "int2double" c_int2double :: CInt :> Double :> Ok |
432 | foreign import ccall unsafe "double2int" c_double2int :: Double :> CInt :> Ok | 439 | foreign import ccall unsafe "double2int" c_double2int :: Double :> CInt :> Ok |
440 | foreign import ccall unsafe "long2double" c_long2double :: Z :> Double :> Ok | ||
441 | foreign import ccall unsafe "double2long" c_double2long :: Double :> Z :> Ok | ||
433 | foreign import ccall unsafe "int2float" c_int2float :: CInt :> Float :> Ok | 442 | foreign import ccall unsafe "int2float" c_int2float :: CInt :> Float :> Ok |
434 | foreign import ccall unsafe "float2int" c_float2int :: Float :> CInt :> Ok | 443 | foreign import ccall unsafe "float2int" c_float2int :: Float :> CInt :> Ok |
435 | foreign import ccall unsafe "int2long" c_int2long :: I :> Z :> Ok | 444 | foreign import ccall unsafe "int2long" c_int2long :: I :> Z :> Ok |