Return to abi-code-test.fs CVS log

Up to [gforth] / gforth

Annotation of gforth/abi-code-test.fs, revision 1.2

1.1       dvdkhlng    1: abi-code my+  ( n1 n2 -- n3 )
1.2     ! anton       2: \ ABI: SP passed in di, returned in ax,  address of FP passed in si
        !             3: \ Caller-saved: ax,cx,dx,si,di,r8-r11,xmm0-xmm15
        !             4: 8 di d) ax lea        \ compute new sp in result reg
        !             5: di )    dx mov        \ get old tos
        !             6: dx    ax ) add        \ add to new tos
        !             7: ret
1.1       dvdkhlng    8: end-code
                      9: 
                     10: : my+-compiled   ( n1 n2 -- n3 ) my+ ;
                     11: 
1.2     ! anton      12: 12 34 my+  46 <> throw
        !            13: 12 34 my+-compiled  46 <> throw