hyung-hwan/moo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

filled stix_bitatint() a bit

Browse Source
This commit is contained in:
hyunghwan.chung
2015-12-26 01:37:33 +00:00
parent 27e0186d43
commit 60b90de172
5 changed files with 21 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
stix/kernel/Stix.st
View File

@ -116,7 +116,8 @@
#method bitAt: index
{
"## index 1 - least significant bit"
"## index is 1-based"
<primitive: #_integer_bitat>
^(self bitShift: (index - 1) negated) bitAnd: 1.
}

2
stix/kernel/test-005.st
View File

@ -378,7 +378,7 @@ PROCESS TESTING
((-2r1000000000000000000000000000100000000000000000000000000000000000000000000000 bitShift: 13) printStringRadix: 2) dump.
((2r1000000000000000000000000000100000000000000000000000000000000000000000000000 bitShift: 13) printStringRadix: 2) dump.
((-2r1111 bitAt: 6) printStringRadix: 2) dump.
((-2r10 bitAt: 1) printStringRadix: 2) dump.
"
FFI isNil dump.