fix signature of fxbit-set?

primdata.ss

original commit: 517ee9d86e974abba5a5a25945b677b4f5b35469
This commit is contained in:
Gustavo Massaccesi 2017-06-06 18:25:22 -03:00
parent a5183d3214
commit db9248a73e
2 changed files with 3 additions and 1 deletions

2
LOG
View File

@ -477,3 +477,5 @@
- fix strip-fasl-file for immutable strings and vectors,
fix an $oops call, and fix a vector-index increment in hashing
strip.ss, 7.ss, newhash.ss, misc.ms
- fix signature of fxbit-set?
primdata.ss

View File

@ -72,7 +72,7 @@
(fxbit-count [sig [(fixnum) -> (fixnum)]] [flags arith-op cp02])
(fxlength [sig [(fixnum) -> (fixnum)]] [flags arith-op cp02])
(fxfirst-bit-set [sig [(fixnum) -> (fixnum)]] [flags arith-op cp02])
(fxbit-set? [sig [(fixnum sub-ufixnum) -> (fixnum)]] [flags pure cp02])
(fxbit-set? [sig [(fixnum sub-ufixnum) -> (boolean)]] [flags pure cp02])
(fxcopy-bit [sig [(fixnum sub-ufixnum bit) -> (fixnum)]] [flags arith-op cp02])
(fxbit-field [sig [(fixnum sub-ufixnum sub-ufixnum) -> (fixnum)]] [flags arith-op cp02 cp03])
(fxcopy-bit-field [sig [(fixnum sub-ufixnum sub-ufixnum fixnum) -> (fixnum)]] [flags arith-op cp02])