Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-26 21:58:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix comment

Browse source
This commit is contained in:
Koichi Nakamura 2020-12-31 06:36:20 +09:00
parent bb9b440337
commit 44d84b7051
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
core.fs
View file

@ -159,9 +159,9 @@ c# i, 'd, '@, 'e, l!
\ Move value from data stack to return stack. \ Move value from data stack to return stack.
c{ i, c{ i,
'r, 'r, '@, \ ( a rsp ret ) 'r, 'r, '@, \ ( a rsp ret )
'r, 'C, '-, '#, \ ( a rsp ret rsp-CELL rsp-CELL ) 'r, 'C, '-, '#, \ ( a rsp ret rsp-1 rsp-1 )
'R, \ ( a rsp+CELL ret rsp ) extend return stack 'R, \ ( a rsp+1 ret rsp ) extend return stack
'!, \ ( a rsp+CELL ) store return address to the top '!, \ ( a rsp+1 ) store return address to the top
'!, \ store a to the 2nd '!, \ store a to the 2nd
'e, 'e,
l! l!
@ -171,7 +171,7 @@ l!
c} i, c} i,
'r, 'C, '+, '@, \ ( a ) load 2nd value 'r, 'C, '+, '@, \ ( a ) load 2nd value
'r, '@, \ ( a ret ) load return addr 'r, '@, \ ( a ret ) load return addr
'r, 'C, '+, '#, \ ( a ret rsp+CELL rsp+CELL ) 'r, 'C, '+, '#, \ ( a ret rsp+1 rsp+1 )
'R, \ ( a ret rsp ) reduce return stack 'R, \ ( a ret rsp ) reduce return stack
'!, \ ( a , R:ret ) store return addr to top of return stack '!, \ ( a , R:ret ) store return addr to top of return stack
'e, 'e,