| version 1.4, Sun May 2 16:07:50 2010 UTC | version 1.5, Sun May 2 18:15:14 2010 UTC | ||
|---|---|---|---|
|
|
||
| 7 my-constant2 bar | 7 my-constant2 bar | ||
| : bar-compiled bar ; | : bar-compiled bar ; | ||
| bar 7 <> throw | |||
| bar-compiled 7 <> throw | |||
| code my-1+ ( n1 -- n2 ) | |||
| 8 # bx add | |||
| r14 inc | |||
| -8 bx d) jmp | |||
| end-code | |||
| : compiled-my-1+ | |||
| my-1+ ; | |||
| 7 my-1+ 8 <> throw | |||
| 8 compiled-my-1+ 9 <> throw | |||
| : funny-compiler-test | |||
| drop my-1+ 1 ; | |||
| \ 6 9 funny-compiler-test 1 <> throw 7 <> throw |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |