← Back to branch summary

~ubuntu-branches/ubuntu/precise/ghc/precise

« back to all changes in this revision

Viewing changes to libraries/ghc-prim/GHC/IntWord64.hs

  • Committer: Bazaar Package Importer
  • Author(s): Joachim Breitner
  • Date: 2011-01-17 12:49:24 UTC
  • Revision ID: james.westby@ubuntu.com-20110117124924-do1pym1jlf5o636m
Tags: upstream-7.0.1
Import upstream version 7.0.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
libraries/ghc-prim/GHC/IntWord64.hs
 
1
{-# OPTIONS_GHC -XNoImplicitPrelude #-}
 
2
{-# OPTIONS_HADDOCK hide #-}
 
3
-----------------------------------------------------------------------------
 
4
-- |
 
5
-- Module      :  GHC.IntWord64
 
6
-- Copyright   :  (c) The University of Glasgow, 1997-2008
 
7
-- License     :  see libraries/ghc-prim/LICENSE
 
8
--
 
9
-- Maintainer  :  cvs-ghc@haskell.org
 
10
-- Stability   :  internal
 
11
-- Portability :  non-portable (GHC Extensions)
 
12
--
 
13
-- Primitive operations on Int64# and Word64# on platforms where
 
14
-- WORD_SIZE_IN_BITS < 64.
 
15
--
 
16
-----------------------------------------------------------------------------
 
17
 
 
18
#include "MachDeps.h"
 
19
 
 
20
-- #hide
 
21
module GHC.IntWord64 (
 
22
#if WORD_SIZE_IN_BITS < 64
 
23
    Int64#, Word64#, module GHC.IntWord64
 
24
#endif
 
25
 ) where
 
26
 
 
27
#if WORD_SIZE_IN_BITS < 64
 
28
import GHC.Bool
 
29
import GHC.Prim
 
30
 
 
31
foreign import ccall unsafe "hs_eqWord64"    eqWord64#      :: Word64# -> Word64# -> Bool
 
32
foreign import ccall unsafe "hs_neWord64"    neWord64#      :: Word64# -> Word64# -> Bool
 
33
foreign import ccall unsafe "hs_ltWord64"    ltWord64#      :: Word64# -> Word64# -> Bool
 
34
foreign import ccall unsafe "hs_leWord64"    leWord64#      :: Word64# -> Word64# -> Bool
 
35
foreign import ccall unsafe "hs_gtWord64"    gtWord64#      :: Word64# -> Word64# -> Bool
 
36
foreign import ccall unsafe "hs_geWord64"    geWord64#      :: Word64# -> Word64# -> Bool
 
37
 
 
38
foreign import ccall unsafe "hs_eqInt64"     eqInt64#       :: Int64# -> Int64# -> Bool
 
39
foreign import ccall unsafe "hs_neInt64"     neInt64#       :: Int64# -> Int64# -> Bool
 
40
foreign import ccall unsafe "hs_ltInt64"     ltInt64#       :: Int64# -> Int64# -> Bool
 
41
foreign import ccall unsafe "hs_leInt64"     leInt64#       :: Int64# -> Int64# -> Bool
 
42
foreign import ccall unsafe "hs_gtInt64"     gtInt64#       :: Int64# -> Int64# -> Bool
 
43
foreign import ccall unsafe "hs_geInt64"     geInt64#       :: Int64# -> Int64# -> Bool
 
44
foreign import ccall unsafe "hs_quotInt64"   quotInt64#     :: Int64# -> Int64# -> Int64#
 
45
foreign import ccall unsafe "hs_remInt64"    remInt64#      :: Int64# -> Int64# -> Int64#
 
46
 
 
47
foreign import ccall unsafe "hs_plusInt64"   plusInt64#     :: Int64# -> Int64# -> Int64#
 
48
foreign import ccall unsafe "hs_minusInt64"  minusInt64#    :: Int64# -> Int64# -> Int64#
 
49
foreign import ccall unsafe "hs_timesInt64"  timesInt64#    :: Int64# -> Int64# -> Int64#
 
50
foreign import ccall unsafe "hs_negateInt64" negateInt64#   :: Int64# -> Int64#
 
51
foreign import ccall unsafe "hs_quotWord64"  quotWord64#    :: Word64# -> Word64# -> Word64#
 
52
foreign import ccall unsafe "hs_remWord64"   remWord64#     :: Word64# -> Word64# -> Word64#
 
53
 
 
54
foreign import ccall unsafe "hs_and64"       and64#         :: Word64# -> Word64# -> Word64#
 
55
foreign import ccall unsafe "hs_or64"        or64#          :: Word64# -> Word64# -> Word64#
 
56
foreign import ccall unsafe "hs_xor64"       xor64#         :: Word64# -> Word64# -> Word64#
 
57
foreign import ccall unsafe "hs_not64"       not64#         :: Word64# -> Word64#
 
58
 
 
59
foreign import ccall unsafe "hs_uncheckedShiftL64"   uncheckedShiftL64#   :: Word64# -> Int# -> Word64#
 
60
foreign import ccall unsafe "hs_uncheckedShiftRL64"  uncheckedShiftRL64#  :: Word64# -> Int# -> Word64#
 
61
foreign import ccall unsafe "hs_uncheckedIShiftL64"  uncheckedIShiftL64#  :: Int64# -> Int# -> Int64#
 
62
foreign import ccall unsafe "hs_uncheckedIShiftRA64" uncheckedIShiftRA64# :: Int64# -> Int# -> Int64#
 
63
foreign import ccall unsafe "hs_uncheckedIShiftRL64" uncheckedIShiftRL64# :: Int64# -> Int# -> Int64#
 
64
 
 
65
foreign import ccall unsafe "hs_int64ToWord64"   int64ToWord64#   :: Int64# -> Word64#
 
66
foreign import ccall unsafe "hs_word64ToInt64"   word64ToInt64#   :: Word64# -> Int64#
 
67
foreign import ccall unsafe "hs_intToInt64"      intToInt64#      :: Int# -> Int64#
 
68
foreign import ccall unsafe "hs_int64ToInt"      int64ToInt#      :: Int64# -> Int#
 
69
foreign import ccall unsafe "hs_wordToWord64"    wordToWord64#    :: Word# -> Word64#
 
70
foreign import ccall unsafe "hs_word64ToWord"    word64ToWord#    :: Word64# -> Word#
 
71
 
 
72
#endif
 
73