mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-18 19:03:45 +00:00
a52b094e25
library/uint8.m:
library/uint16.m:
library/uint64.m:
Add functions for setting, clearing, flipping and testing
the individual bits of a uint8, uint16 and uint64 values.
NEWS:
Announce the new functions.
tests/hard_coded/Mmakefile:
tests/hard_coded/bit_access_uint{8,16,64}.{m,exp}:
Add a test case.
124 lines
5.1 KiB
Plaintext
124 lines
5.1 KiB
Plaintext
*** Test operation 'set_bit' ***
|
|
|
|
set_bit(0000000000000000, 0 ) = 0000000000000001
|
|
set_bit(0000000000000000, 1 ) = 0000000000000010
|
|
set_bit(0000000000000000, 2 ) = 0000000000000100
|
|
set_bit(0000000000000000, 7 ) = 0000000010000000
|
|
set_bit(0000000000000000, 15) = 1000000000000000
|
|
set_bit(0000000000000000, 16) = <<exception>>
|
|
set_bit(1111111111111111, 0 ) = 1111111111111111
|
|
set_bit(1111111111111111, 1 ) = 1111111111111111
|
|
set_bit(1111111111111111, 2 ) = 1111111111111111
|
|
set_bit(1111111111111111, 7 ) = 1111111111111111
|
|
set_bit(1111111111111111, 15) = 1111111111111111
|
|
set_bit(1111111111111111, 16) = <<exception>>
|
|
|
|
*** Test operation 'clear_bit' ***
|
|
|
|
clear_bit(0000000000000000, 0 ) = 0000000000000000
|
|
clear_bit(0000000000000000, 1 ) = 0000000000000000
|
|
clear_bit(0000000000000000, 2 ) = 0000000000000000
|
|
clear_bit(0000000000000000, 7 ) = 0000000000000000
|
|
clear_bit(0000000000000000, 15) = 0000000000000000
|
|
clear_bit(0000000000000000, 16) = <<exception>>
|
|
clear_bit(1111111111111111, 0 ) = 1111111111111110
|
|
clear_bit(1111111111111111, 1 ) = 1111111111111101
|
|
clear_bit(1111111111111111, 2 ) = 1111111111111011
|
|
clear_bit(1111111111111111, 7 ) = 1111111101111111
|
|
clear_bit(1111111111111111, 15) = 0111111111111111
|
|
clear_bit(1111111111111111, 16) = <<exception>>
|
|
|
|
*** Test operation 'flip_bit' ***
|
|
|
|
flip_bit(0000000000000000, 0 ) = 0000000000000001
|
|
flip_bit(0000000000000000, 1 ) = 0000000000000010
|
|
flip_bit(0000000000000000, 2 ) = 0000000000000100
|
|
flip_bit(0000000000000000, 7 ) = 0000000010000000
|
|
flip_bit(0000000000000000, 15) = 1000000000000000
|
|
flip_bit(0000000000000000, 16) = <<exception>>
|
|
flip_bit(1111111111111111, 0 ) = 1111111111111110
|
|
flip_bit(1111111111111111, 1 ) = 1111111111111101
|
|
flip_bit(1111111111111111, 2 ) = 1111111111111011
|
|
flip_bit(1111111111111111, 7 ) = 1111111101111111
|
|
flip_bit(1111111111111111, 15) = 0111111111111111
|
|
flip_bit(1111111111111111, 16) = <<exception>>
|
|
|
|
*** Test operation 'bit_is_set' ***
|
|
|
|
bit_is_set(0000000000000000, 0 ) ==> false
|
|
bit_is_set(0000000000000000, 1 ) ==> false
|
|
bit_is_set(0000000000000000, 2 ) ==> false
|
|
bit_is_set(0000000000000000, 7 ) ==> false
|
|
bit_is_set(0000000000000000, 15) ==> false
|
|
bit_is_set(0000000000000000, 16) ==> <<exception>>
|
|
bit_is_set(0000000000000001, 0 ) ==> true
|
|
bit_is_set(0000000000000001, 1 ) ==> false
|
|
bit_is_set(0000000000000001, 2 ) ==> false
|
|
bit_is_set(0000000000000001, 7 ) ==> false
|
|
bit_is_set(0000000000000001, 15) ==> false
|
|
bit_is_set(0000000000000001, 16) ==> <<exception>>
|
|
bit_is_set(0000000000000010, 0 ) ==> false
|
|
bit_is_set(0000000000000010, 1 ) ==> true
|
|
bit_is_set(0000000000000010, 2 ) ==> false
|
|
bit_is_set(0000000000000010, 7 ) ==> false
|
|
bit_is_set(0000000000000010, 15) ==> false
|
|
bit_is_set(0000000000000010, 16) ==> <<exception>>
|
|
bit_is_set(0000000011111111, 0 ) ==> true
|
|
bit_is_set(0000000011111111, 1 ) ==> true
|
|
bit_is_set(0000000011111111, 2 ) ==> true
|
|
bit_is_set(0000000011111111, 7 ) ==> true
|
|
bit_is_set(0000000011111111, 15) ==> false
|
|
bit_is_set(0000000011111111, 16) ==> <<exception>>
|
|
bit_is_set(0111111111111111, 0 ) ==> true
|
|
bit_is_set(0111111111111111, 1 ) ==> true
|
|
bit_is_set(0111111111111111, 2 ) ==> true
|
|
bit_is_set(0111111111111111, 7 ) ==> true
|
|
bit_is_set(0111111111111111, 15) ==> false
|
|
bit_is_set(0111111111111111, 16) ==> <<exception>>
|
|
bit_is_set(1111111111111111, 0 ) ==> true
|
|
bit_is_set(1111111111111111, 1 ) ==> true
|
|
bit_is_set(1111111111111111, 2 ) ==> true
|
|
bit_is_set(1111111111111111, 7 ) ==> true
|
|
bit_is_set(1111111111111111, 15) ==> true
|
|
bit_is_set(1111111111111111, 16) ==> <<exception>>
|
|
|
|
*** Test operation 'bit_is_clear' ***
|
|
|
|
bit_is_clear(0000000000000000, 0 ) ==> true
|
|
bit_is_clear(0000000000000000, 1 ) ==> true
|
|
bit_is_clear(0000000000000000, 2 ) ==> true
|
|
bit_is_clear(0000000000000000, 7 ) ==> true
|
|
bit_is_clear(0000000000000000, 15) ==> true
|
|
bit_is_clear(0000000000000000, 16) ==> <<exception>>
|
|
bit_is_clear(0000000000000001, 0 ) ==> false
|
|
bit_is_clear(0000000000000001, 1 ) ==> true
|
|
bit_is_clear(0000000000000001, 2 ) ==> true
|
|
bit_is_clear(0000000000000001, 7 ) ==> true
|
|
bit_is_clear(0000000000000001, 15) ==> true
|
|
bit_is_clear(0000000000000001, 16) ==> <<exception>>
|
|
bit_is_clear(0000000000000010, 0 ) ==> true
|
|
bit_is_clear(0000000000000010, 1 ) ==> false
|
|
bit_is_clear(0000000000000010, 2 ) ==> true
|
|
bit_is_clear(0000000000000010, 7 ) ==> true
|
|
bit_is_clear(0000000000000010, 15) ==> true
|
|
bit_is_clear(0000000000000010, 16) ==> <<exception>>
|
|
bit_is_clear(0000000011111111, 0 ) ==> false
|
|
bit_is_clear(0000000011111111, 1 ) ==> false
|
|
bit_is_clear(0000000011111111, 2 ) ==> false
|
|
bit_is_clear(0000000011111111, 7 ) ==> false
|
|
bit_is_clear(0000000011111111, 15) ==> true
|
|
bit_is_clear(0000000011111111, 16) ==> <<exception>>
|
|
bit_is_clear(0111111111111111, 0 ) ==> false
|
|
bit_is_clear(0111111111111111, 1 ) ==> false
|
|
bit_is_clear(0111111111111111, 2 ) ==> false
|
|
bit_is_clear(0111111111111111, 7 ) ==> false
|
|
bit_is_clear(0111111111111111, 15) ==> true
|
|
bit_is_clear(0111111111111111, 16) ==> <<exception>>
|
|
bit_is_clear(1111111111111111, 0 ) ==> false
|
|
bit_is_clear(1111111111111111, 1 ) ==> false
|
|
bit_is_clear(1111111111111111, 2 ) ==> false
|
|
bit_is_clear(1111111111111111, 7 ) ==> false
|
|
bit_is_clear(1111111111111111, 15) ==> false
|
|
bit_is_clear(1111111111111111, 16) ==> <<exception>>
|
|
|