diff options
| author | John Ericson <git@JohnEricson.me> | 2019-06-03 23:47:10 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-12-10 19:57:39 -0500 |
| commit | 7a823b0ffcbd5b5c4c03334e72c8a36460b62ff7 (patch) | |
| tree | 308496f45d43af45418bf856130104e1cae1fdf3 | |
| parent | 8f1ceb67331cfbe075c484c8d1d6b6c9f6fc1e92 (diff) | |
| download | haskell-7a823b0ffcbd5b5c4c03334e72c8a36460b62ff7.tar.gz | |
Move Int64# and Word64# sections of primops.txt.pp
This way it is next to the other fixed-sized ones.
| -rw-r--r-- | compiler/prelude/primops.txt.pp | 43 |
1 files changed, 21 insertions, 22 deletions
diff --git a/compiler/prelude/primops.txt.pp b/compiler/prelude/primops.txt.pp index 512a15e3b2..f22a94614c 100644 --- a/compiler/prelude/primops.txt.pp +++ b/compiler/prelude/primops.txt.pp @@ -394,6 +394,27 @@ primop Word16LeOp "leWord16#" Compare Word16# -> Word16# -> Int# primop Word16LtOp "ltWord16#" Compare Word16# -> Word16# -> Int# primop Word16NeOp "neWord16#" Compare Word16# -> Word16# -> Int# +#if WORD_SIZE_IN_BITS < 64 +------------------------------------------------------------------------ +section "Int64#" + {Operations on 64-bit unsigned words. This type is only used + if plain {\tt Int\#} has less than 64 bits. In any case, the operations + are not primops; they are implemented (if needed) as ccalls instead.} +------------------------------------------------------------------------ + +primtype Int64# + +------------------------------------------------------------------------ +section "Word64#" + {Operations on 64-bit unsigned words. This type is only used + if plain {\tt Word\#} has less than 64 bits. In any case, the operations + are not primops; they are implemented (if needed) as ccalls instead.} +------------------------------------------------------------------------ + +primtype Word64# + +#endif + ------------------------------------------------------------------------ section "Int#" {Operations on native-size integers (32+ bits).} @@ -718,28 +739,6 @@ primop Narrow8WordOp "narrow8Word#" Monadic Word# -> Word# primop Narrow16WordOp "narrow16Word#" Monadic Word# -> Word# primop Narrow32WordOp "narrow32Word#" Monadic Word# -> Word# - -#if WORD_SIZE_IN_BITS < 64 ------------------------------------------------------------------------- -section "Int64#" - {Operations on 64-bit unsigned words. This type is only used - if plain {\tt Int\#} has less than 64 bits. In any case, the operations - are not primops; they are implemented (if needed) as ccalls instead.} ------------------------------------------------------------------------- - -primtype Int64# - ------------------------------------------------------------------------- -section "Word64#" - {Operations on 64-bit unsigned words. This type is only used - if plain {\tt Word\#} has less than 64 bits. In any case, the operations - are not primops; they are implemented (if needed) as ccalls instead.} ------------------------------------------------------------------------- - -primtype Word64# - -#endif - ------------------------------------------------------------------------ section "Double#" {Operations on double-precision (64 bit) floating-point numbers.} |