gforth/abi-code-test.fs - diff

Return to abi-code-test.fs CVS log

Up to [gforth] / gforth

-version 1.3, 2010/04/25 18:27:09
+version 1.4, 2010/05/02 16:07:50
  Line 42  end-code
  foo 5 <> throw
  foo-compiled 5 <> throw
+ : my-constant2 ( w "name" -- )
+     create ,
+     ;code ( -- w )
+     \ sp=r15, tos=r14, ip=bx
+#        bx add
+     r14     r15 ) mov
+     $10 r9 d) r14 mov
+#       r15 sub
+     -8 bx d)   jmp
+ end-code
+my-constant2 bar
+ : bar-compiled bar ;