suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix signature of fxbit-set?

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
LOG
View File

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

2
s/primdata.ss
View File

@ -72,7 +72,7 @@
(fxbit-count [sig [(fixnum) -> (fixnum)]] [flags arith-op cp02]) (fxbit-count [sig [(fixnum) -> (fixnum)]] [flags arith-op cp02])
(fxlength [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]) (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]) (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]) (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]) (fxcopy-bit-field [sig [(fixnum sub-ufixnum sub-ufixnum fixnum) -> (fixnum)]] [flags arith-op cp02])