| version 1.3, Sun Apr 25 18:27:09 2010 UTC | version 1.4, Sun May 2 16:07:50 2010 UTC | ||
|---|---|---|---|
|
|
||
| foo 5 <> throw | foo 5 <> throw | ||
| foo-compiled 5 <> throw | foo-compiled 5 <> throw | ||
| : my-constant2 ( w "name" -- ) | |||
| create , | |||
| ;code ( -- w ) | |||
| \ sp=r15, tos=r14, ip=bx | |||
| 8 # bx add | |||
| r14 r15 ) mov | |||
| $10 r9 d) r14 mov | |||
| 8 # r15 sub | |||
| -8 bx d) jmp | |||
| end-code | |||
| 7 my-constant2 bar | |||
| : bar-compiled bar ; |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |