equal
deleted
inserted
replaced
2108 2r0101 isBitSet:1 => true |
2108 2r0101 isBitSet:1 => true |
2109 2r0101 isBitSet:0 index error |
2109 2r0101 isBitSet:0 index error |
2110 " |
2110 " |
2111 ! |
2111 ! |
2112 |
2112 |
|
2113 leftShift:shiftCount |
|
2114 "return the value of the receiver shifted left by shiftCount bits; |
|
2115 leftShift if shiftCount > 0; rightShift otherwise. |
|
2116 |
|
2117 Notice: the result of bitShift: on negative receivers is not |
|
2118 defined in the language standard (since the implementation |
|
2119 is free to choose any internal representation for integers) |
|
2120 However, ST/X preserves the sign." |
|
2121 |
|
2122 ^ self bitShift:shiftCount |
|
2123 |
|
2124 " |
|
2125 16r100000000 leftShift:1 |
|
2126 16r100000000 negated leftShift:1 |
|
2127 " |
|
2128 ! |
|
2129 |
2113 lowBit |
2130 lowBit |
2114 "return the bitIndex of the lowest bit set. The returned bitIndex |
2131 "return the bitIndex of the lowest bit set. The returned bitIndex |
2115 starts at 1 for the least significant bit. |
2132 starts at 1 for the least significant bit. |
2116 Returns 0 if no bit is set." |
2133 Returns 0 if no bit is set." |
2117 |
2134 |
5040 ! ! |
5057 ! ! |
5041 |
5058 |
5042 !Integer class methodsFor:'documentation'! |
5059 !Integer class methodsFor:'documentation'! |
5043 |
5060 |
5044 version |
5061 version |
5045 ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.295 2014-02-14 16:23:00 cg Exp $' |
5062 ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.296 2014-02-18 13:41:40 cg Exp $' |
5046 ! |
5063 ! |
5047 |
5064 |
5048 version_CVS |
5065 version_CVS |
5049 ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.295 2014-02-14 16:23:00 cg Exp $' |
5066 ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.296 2014-02-18 13:41:40 cg Exp $' |
5050 ! ! |
5067 ! ! |
5051 |
5068 |
5052 |
5069 |
5053 Integer initialize! |
5070 Integer initialize! |