equal
deleted
inserted
replaced
19 |
19 |
20 SmallInteger comment:' |
20 SmallInteger comment:' |
21 COPYRIGHT (c) 1988 by Claus Gittinger |
21 COPYRIGHT (c) 1988 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.16 1994-08-22 12:14:03 claus Exp $ |
24 $Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.17 1994-10-10 00:28:25 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !SmallInteger class methodsFor:'documentation'! |
27 !SmallInteger class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.16 1994-08-22 12:14:03 claus Exp $ |
45 $Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.17 1994-10-10 00:28:25 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
1405 REGISTER OBJ rHome; |
1405 REGISTER OBJ rHome; |
1406 |
1406 |
1407 if (_isSmallInteger(stop)) { |
1407 if (_isSmallInteger(stop)) { |
1408 tmp = _intVal(self); |
1408 tmp = _intVal(self); |
1409 final = _intVal(stop); |
1409 final = _intVal(stop); |
|
1410 #ifdef OLD |
1410 if (__isBlock(aBlock) |
1411 if (__isBlock(aBlock) |
|
1412 #else |
|
1413 if (__isBlockLike(aBlock) |
|
1414 #endif |
1411 && ((code = _BlockInstPtr(aBlock)->b_code) != (OBJFUNC)nil) |
1415 && ((code = _BlockInstPtr(aBlock)->b_code) != (OBJFUNC)nil) |
1412 && (_BlockInstPtr(aBlock)->b_nargs == _MKSMALLINT(1))) { |
1416 && (_BlockInstPtr(aBlock)->b_nargs == _MKSMALLINT(1))) { |
1413 #ifdef NEW_BLOCK_CALL |
1417 #ifdef NEW_BLOCK_CALL |
1414 while (tmp <= final) { |
1418 while (tmp <= final) { |
1415 if (InterruptPending != nil) interrupt(CONARG); |
1419 if (InterruptPending != nil) interrupt(CONARG); |
1478 if (_isSmallInteger(incr) |
1482 if (_isSmallInteger(incr) |
1479 && _isSmallInteger(stop)) { |
1483 && _isSmallInteger(stop)) { |
1480 tmp = _intVal(self); |
1484 tmp = _intVal(self); |
1481 final = _intVal(stop); |
1485 final = _intVal(stop); |
1482 step = _intVal(incr); |
1486 step = _intVal(incr); |
|
1487 #ifdef OLD |
1483 if (__isBlock(aBlock) |
1488 if (__isBlock(aBlock) |
|
1489 #else |
|
1490 if (__isBlockLike(aBlock) |
|
1491 #endif |
1484 && ((code = _BlockInstPtr(aBlock)->b_code) != (OBJFUNC)nil) |
1492 && ((code = _BlockInstPtr(aBlock)->b_code) != (OBJFUNC)nil) |
1485 && (_BlockInstPtr(aBlock)->b_nargs == _MKSMALLINT(1))) { |
1493 && (_BlockInstPtr(aBlock)->b_nargs == _MKSMALLINT(1))) { |
1486 #ifdef NEW_BLOCK_CALL |
1494 #ifdef NEW_BLOCK_CALL |
1487 if (step < 0) { |
1495 if (step < 0) { |
1488 while (tmp >= final) { |
1496 while (tmp >= final) { |