equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1988 by Claus Gittinger |
2 COPYRIGHT (c) 1988 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
959 |
957 |
960 7 // (-4/3) |
958 7 // (-4/3) |
961 7 quo: (-4/3) |
959 7 quo: (-4/3) |
962 " |
960 " |
963 ! ! |
961 ! ! |
964 |
|
965 |
962 |
966 |
963 |
967 !SmallInteger methodsFor:'bit operators'! |
964 !SmallInteger methodsFor:'bit operators'! |
968 |
965 |
969 bitAnd:anInteger |
966 bitAnd:anInteger |
2560 |
2557 |
2561 ^ self |
2558 ^ self |
2562 ! |
2559 ! |
2563 |
2560 |
2564 coerce:aNumber |
2561 coerce:aNumber |
2565 "convert the argument aNumber into an instance of the receivers class and return it." |
2562 "convert the argument aNumber into an instance of the receiver's class and return it." |
2566 |
2563 |
2567 ^ aNumber asInteger |
2564 ^ aNumber asInteger |
2568 ! |
2565 ! |
2569 |
2566 |
2570 generality |
2567 generality |