equal
deleted
inserted
replaced
20 SmallInteger comment:' |
20 SmallInteger comment:' |
21 |
21 |
22 COPYRIGHT (c) 1988 by Claus Gittinger |
22 COPYRIGHT (c) 1988 by Claus Gittinger |
23 All Rights Reserved |
23 All Rights Reserved |
24 |
24 |
25 $Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.8 1994-01-16 03:46:48 claus Exp $ |
25 $Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.9 1994-02-05 12:24:25 claus Exp $ |
26 |
26 |
27 SmallIntegers are Integers in the range of +/- 2^30 (i.e. 31 bits). |
27 SmallIntegers are Integers in the range of +/- 2^30 (i.e. 31 bits). |
28 These are no real objects - they have no instances (not even storage !!) |
28 These are no real objects - they have no instances (not even storage !!) |
29 and cannot be subclassed. |
29 and cannot be subclassed. |
30 The reason is to save both storage and runtime by not collecting |
30 The reason is to save both storage and runtime by not collecting |
96 |
96 |
97 isBuiltInClass |
97 isBuiltInClass |
98 "this class is known by the run-time-system" |
98 "this class is known by the run-time-system" |
99 |
99 |
100 ^ true |
100 ^ true |
|
101 ! |
|
102 |
|
103 canBeSubclassed |
|
104 "return true, if its allowed to create subclasses of the receiver. |
|
105 Return nil here - since it is NOT possible for UndefinedObject" |
|
106 |
|
107 ^ false |
101 ! ! |
108 ! ! |
102 |
109 |
103 !SmallInteger methodsFor:'error catching'! |
110 !SmallInteger methodsFor:'error catching'! |
104 |
111 |
105 at:index |
112 at:index |