equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1988 by Claus Gittinger |
2 COPYRIGHT (c) 1988 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
14 "{ Package: 'stx:libbasic' }" |
12 "{ Package: 'stx:libbasic' }" |
15 |
13 |
16 "{ NameSpace: Smalltalk }" |
14 "{ NameSpace: Smalltalk }" |
17 |
15 |
18 Integer subclass:#SmallInteger |
16 Integer subclass:#SmallInteger |
19 instanceVariableNames:'' |
17 instanceVariableNames:'' |
20 classVariableNames:'ZeroString' |
18 classVariableNames:'ZeroString' |
21 poolDictionaries:'' |
19 poolDictionaries:'' |
22 category:'Magnitude-Numbers' |
20 category:'Magnitude-Numbers' |
23 ! |
21 ! |
24 |
22 |
25 !SmallInteger primitiveDefinitions! |
23 !SmallInteger primitiveDefinitions! |
26 %{ |
24 %{ |
27 #include <stdio.h> |
25 #include <stdio.h> |
3805 |
3803 |
3806 if (0) { |
3804 if (0) { |
3807 /* |
3805 /* |
3808 * no discussion about those gotos ... |
3806 * no discussion about those gotos ... |
3809 * ... its better for your CPU's pipelines |
3807 * ... its better for your CPU's pipelines |
3810 * (if you dont understand why, just dont argue). |
3808 * (if you don't understand why, just don't argue). |
3811 */ |
3809 */ |
3812 interrupted7: |
3810 interrupted7: |
3813 __interruptL(@line); goto continue7; |
3811 __interruptL(@line); goto continue7; |
3814 interrupted6: |
3812 interrupted6: |
3815 __interruptL(@line); goto continue6; |
3813 __interruptL(@line); goto continue6; |