Annotation of gforth/abi-code-test.fs, revision 1.1
1.1 ! dvdkhlng 1:
! 2: abi-code my+ ( n1 n2 -- n3 )
! 3: di ax mov \ ABI: sp passed in di, returned in ax
! 4: si dx mov \ ABI: fp passed in si, returned in dx
! 5: ax ) r8 mov \ load sp[0]
! 6: 8 ax d) r8 add \ add sp[1]
! 7: 8 # ax add \ store result to *++sp
! 8: r8 ax ) mov
! 9: ret \ return to caller
! 10: end-code
! 11:
! 12: : my+-compiled ( n1 n2 -- n3 ) my+ ;
! 13:
! 14: assert0( 12 34 my+ 46 = )
! 15: assert0( 12 34 my+-compiled 46 = )
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>