gforth/abi-code-test.fs - diff

Return to abi-code-test.fs CVS log

Up to [gforth] / gforth

-version 1.1, 2010/04/05 22:17:56
+version 1.2, 2010/04/18 16:39:55
  Line 1
  abi-code my+  ( n1 n2 -- n3 )
-    di ax mov            \ ABI: sp passed in di, returned in ax
+ \ ABI: SP passed in di, returned in ax,  address of FP passed in si
-    si dx mov            \ ABI: fp passed in si, returned in dx
+ \ Caller-saved: ax,cx,dx,si,di,r8-r11,xmm0-xmm15
-    ax ) r8  mov         \ load sp[0]
+di d) ax lea        \ compute new sp in result reg
-ax d) r8 add       \ add sp[1]
+ di )    dx mov        \ get old tos
-# ax  add          \ store result to *++sp
+ dx    ax ) add        \ add to new tos
-    r8  ax ) mov
+ ret
-    ret                  \ return to caller
  end-code
  : my+-compiled   ( n1 n2 -- n3 ) my+ ;
- assert0( 12 34 my+  46 = )
+34 my+  46 <> throw
- assert0( 12 34 my+-compiled  46 = )
+34 my+-compiled  46 <> throw