Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-25 21:58:22 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add comments to bitscan-forward

Browse source
This commit is contained in:
Koichi Nakamura 2021-05-05 23:09:26 +09:00
parent b67d488a58
commit d07e23eb00
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/bitscan.fs
View file

@ -32,7 +32,9 @@ create bsf-modulo-131-table
\ Find the index of the least significant 1 bit
\ If u == 0, returns -1
: bitscan-forward ( u -- u )
dup negate and 131 mod cells bsf-modulo-131-table + @
dup negate and \ LS1B isolation
131 mod \ perfect hashing
cells bsf-modulo-131-table + @
; export
create msb-index-table