equal
deleted
inserted
replaced
547 /* |
547 /* |
548 * the most common case: a static compiled block, with home on the stack ... |
548 * the most common case: a static compiled block, with home on the stack ... |
549 */ |
549 */ |
550 REGISTER OBJFUNC codeVal; |
550 REGISTER OBJFUNC codeVal; |
551 |
551 |
552 if ((codeVal = __BlockInstPtr(aBlock)->b_code) != (OBJFUNC)nil) { |
552 if (((codeVal = __BlockInstPtr(aBlock)->b_code) != (OBJFUNC)nil) |
|
553 && (! ((INT)(__BlockInstPtr(aBlock)->b_flags) & __MASKSMALLINT(F_DYNAMIC)))) { |
|
554 |
553 #ifdef NEW_BLOCK_CALL |
555 #ifdef NEW_BLOCK_CALL |
554 # define BLOCK_ARG aBlock |
556 # define BLOCK_ARG aBlock |
555 #else |
557 #else |
556 # define BLOCK_ARG rHome |
558 # define BLOCK_ARG rHome |
557 REGISTER OBJ rHome; |
559 REGISTER OBJ rHome; |
742 /* |
744 /* |
743 * the most common case: a static compiled block, with home on the stack ... |
745 * the most common case: a static compiled block, with home on the stack ... |
744 */ |
746 */ |
745 REGISTER OBJFUNC codeVal; |
747 REGISTER OBJFUNC codeVal; |
746 |
748 |
747 if ((codeVal = __BlockInstPtr(aBlock)->b_code) != (OBJFUNC)nil) { |
749 if (((codeVal = __BlockInstPtr(aBlock)->b_code) != (OBJFUNC)nil) |
|
750 && (! ((INT)(__BlockInstPtr(aBlock)->b_flags) & __MASKSMALLINT(F_DYNAMIC)))) { |
|
751 |
748 #ifdef NEW_BLOCK_CALL |
752 #ifdef NEW_BLOCK_CALL |
749 # define BLOCK_ARG aBlock |
753 # define BLOCK_ARG aBlock |
750 #else |
754 #else |
751 # define BLOCK_ARG rHome |
755 # define BLOCK_ARG rHome |
752 REGISTER OBJ rHome; |
756 REGISTER OBJ rHome; |
1024 /* |
1028 /* |
1025 * the most common case: a static compiled block, with home on the stack ... |
1029 * the most common case: a static compiled block, with home on the stack ... |
1026 */ |
1030 */ |
1027 REGISTER OBJFUNC codeVal; |
1031 REGISTER OBJFUNC codeVal; |
1028 |
1032 |
1029 if ((codeVal = __BlockInstPtr(aBlock)->b_code) != (OBJFUNC)nil) { |
1033 if (((codeVal = __BlockInstPtr(aBlock)->b_code) != (OBJFUNC)nil) |
|
1034 && (! ((INT)(__BlockInstPtr(aBlock)->b_flags) & __MASKSMALLINT(F_DYNAMIC)))) { |
|
1035 |
1030 #ifdef NEW_BLOCK_CALL |
1036 #ifdef NEW_BLOCK_CALL |
1031 # define BLOCK_ARG aBlock |
1037 # define BLOCK_ARG aBlock |
1032 #else |
1038 #else |
1033 # define BLOCK_ARG rHome |
1039 # define BLOCK_ARG rHome |
1034 REGISTER OBJ rHome; |
1040 REGISTER OBJ rHome; |
2155 ! ! |
2161 ! ! |
2156 |
2162 |
2157 !Array class methodsFor:'documentation'! |
2163 !Array class methodsFor:'documentation'! |
2158 |
2164 |
2159 version |
2165 version |
2160 ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.85 1997-01-21 15:07:08 cg Exp $' |
2166 ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.86 1997-01-24 16:23:03 cg Exp $' |
2161 ! ! |
2167 ! ! |