equal
deleted
inserted
replaced
302 /* |
302 /* |
303 * the most common case: a static compiled block, with home on the stack ... |
303 * the most common case: a static compiled block, with home on the stack ... |
304 */ |
304 */ |
305 REGISTER OBJFUNC codeVal; |
305 REGISTER OBJFUNC codeVal; |
306 |
306 |
307 if ((codeVal = __BlockInstPtr(aBlock)->b_code) != (OBJFUNC)nil) { |
307 if (((codeVal = __BlockInstPtr(aBlock)->b_code) != (OBJFUNC)nil) |
|
308 && (! ((INT)(__BlockInstPtr(aBlock)->b_flags) & __MASKSMALLINT(F_DYNAMIC)))) { |
|
309 |
308 #ifdef NEW_BLOCK_CALL |
310 #ifdef NEW_BLOCK_CALL |
309 # define BLOCK_ARG aBlock |
311 # define BLOCK_ARG aBlock |
310 #else |
312 #else |
311 # define BLOCK_ARG rHome |
313 # define BLOCK_ARG rHome |
312 REGISTER OBJ rHome; |
314 REGISTER OBJ rHome; |
449 /* |
451 /* |
450 * the most common case: a static compiled block, with home on the stack ... |
452 * the most common case: a static compiled block, with home on the stack ... |
451 */ |
453 */ |
452 REGISTER OBJFUNC codeVal; |
454 REGISTER OBJFUNC codeVal; |
453 |
455 |
454 if ((codeVal = __BlockInstPtr(aBlock)->b_code) != (OBJFUNC)nil) { |
456 if (((codeVal = __BlockInstPtr(aBlock)->b_code) != (OBJFUNC)nil) |
|
457 && (! ((INT)(__BlockInstPtr(aBlock)->b_flags) & __MASKSMALLINT(F_DYNAMIC)))) { |
|
458 |
455 #ifdef NEW_BLOCK_CALL |
459 #ifdef NEW_BLOCK_CALL |
456 # define BLOCK_ARG aBlock |
460 # define BLOCK_ARG aBlock |
457 #else |
461 #else |
458 # define BLOCK_ARG rHome |
462 # define BLOCK_ARG rHome |
459 REGISTER OBJ rHome; |
463 REGISTER OBJ rHome; |
578 /* |
582 /* |
579 * the most common case: a static compiled block, with home on the stack ... |
583 * the most common case: a static compiled block, with home on the stack ... |
580 */ |
584 */ |
581 REGISTER OBJFUNC codeVal; |
585 REGISTER OBJFUNC codeVal; |
582 |
586 |
583 if ((codeVal = __BlockInstPtr(aBlock)->b_code) != (OBJFUNC)nil) { |
587 if (((codeVal = __BlockInstPtr(aBlock)->b_code) != (OBJFUNC)nil) |
|
588 && (! ((INT)(__BlockInstPtr(aBlock)->b_flags) & __MASKSMALLINT(F_DYNAMIC)))) { |
|
589 |
584 #ifdef NEW_BLOCK_CALL |
590 #ifdef NEW_BLOCK_CALL |
585 # define BLOCK_ARG aBlock |
591 # define BLOCK_ARG aBlock |
586 #else |
592 #else |
587 # define BLOCK_ARG rHome |
593 # define BLOCK_ARG rHome |
588 REGISTER OBJ rHome; |
594 REGISTER OBJ rHome; |
706 ! ! |
712 ! ! |
707 |
713 |
708 !WeakArray class methodsFor:'documentation'! |
714 !WeakArray class methodsFor:'documentation'! |
709 |
715 |
710 version |
716 version |
711 ^ '$Header: /cvs/stx/stx/libbasic/WeakArray.st,v 1.44 1997-01-22 02:18:33 cg Exp $' |
717 ^ '$Header: /cvs/stx/stx/libbasic/WeakArray.st,v 1.45 1997-01-24 16:24:04 cg Exp $' |
712 ! ! |
718 ! ! |
713 WeakArray initialize! |
719 WeakArray initialize! |