equal
deleted
inserted
replaced
662 goto continue6; |
662 goto continue6; |
663 interrupt7: |
663 interrupt7: |
664 __interruptL(@line); |
664 __interruptL(@line); |
665 el = __InstPtr(self)->i_instvars[index+7]; |
665 el = __InstPtr(self)->i_instvars[index+7]; |
666 goto continue7; |
666 goto continue7; |
|
667 #endif /* UNROLL_LOOPS */ |
667 interruptX: |
668 interruptX: |
668 __interruptL(@line); |
669 __interruptL(@line); |
669 el = __InstPtr(self)->i_instvars[index]; |
670 el = __InstPtr(self)->i_instvars[index]; |
670 goto continueX; |
671 goto continueX; |
671 |
672 } |
672 #endif /* UNROLL_LOOPS */ |
|
673 } |
|
674 } |
673 } |
675 } |
674 } |
676 |
675 |
677 /* |
676 /* |
678 * sorry, must check code-pointer in the loop |
677 * sorry, must check code-pointer in the loop |
881 n -= 2; |
880 n -= 2; |
882 index += 2; |
881 index += 2; |
883 } |
882 } |
884 # endif /* UNROLL_LOOPS2 */ |
883 # endif /* UNROLL_LOOPS2 */ |
885 } |
884 } |
|
885 #endif /* UNROLL_LOOPS */ |
886 while (n > 0) { |
886 while (n > 0) { |
887 el = __InstPtr(self)->i_instvars[index]; |
887 el = __InstPtr(self)->i_instvars[index]; |
888 if (InterruptPending != nil) goto interruptX; |
888 if (InterruptPending != nil) goto interruptX; |
889 continueX: |
889 continueX: |
890 (*codeVal)(BLOCK_ARG, el); |
890 (*codeVal)(BLOCK_ARG, el); |
891 n--; |
891 n--; |
892 index++; |
892 index++; |
893 } |
893 } |
894 RETURN (self); |
894 RETURN (self); |
895 #endif /* UNROLL_LOOPS */ |
|
896 |
895 |
897 #if defined(UNROLL_LOOPS) |
896 #if defined(UNROLL_LOOPS) |
898 interrupt0: |
897 interrupt0: |
899 __interruptL(@line); el = __InstPtr(self)->i_instvars[index]; |
898 __interruptL(@line); el = __InstPtr(self)->i_instvars[index]; |
900 goto continue0; |
899 goto continue0; |
2309 ! ! |
2308 ! ! |
2310 |
2309 |
2311 !Array class methodsFor:'documentation'! |
2310 !Array class methodsFor:'documentation'! |
2312 |
2311 |
2313 version |
2312 version |
2314 ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.108 1998-05-25 15:31:14 cg Exp $' |
2313 ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.109 1998-06-04 01:18:28 cg Exp $' |
2315 ! ! |
2314 ! ! |