Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2025-01-14 08:01:27 +01:00
Code Issues Projects Releases Packages Wiki Activity

fix coding style

Browse source
This commit is contained in:
Koichi Nakamura 2020-12-31 08:26:06 +09:00
parent 717d2e28fb
commit 70e0b9d299
1 changed files with 9 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
core.fs
View file

@ -139,8 +139,8 @@ h@l@, k1k0-h@$ kch@k1k0-+$ h@C+h!
i, 'h, '@, 'l, '@, ',, i, 'h, '@, 'l, '@, ',,
'L, k1k0-, 'h, '@, '$, 'L, k1k0-, 'h, '@, '$,
'k, 'h, '@, 'L, k1k0-, '+, '$, 'k, 'h, '@, 'L, k1k0-, '+, '$,
'h, '@, 'C, '+, 'h, '!, 'e, 'h, '@, 'C, '+, 'h, '!,
l! 'e, l!
\ '_' ( a -- ) DROP \ '_' ( a -- ) DROP
c_ i, 'd, 'C, '+, 'D, 'e, l! c_ i, 'd, 'C, '+, 'D, 'e, l!
@ -163,8 +163,7 @@ c{ i,
'R, \ ( a rsp+1 ret rsp ) extend return stack 'R, \ ( a rsp+1 ret rsp ) extend return stack
'!, \ ( a rsp+1 ) 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!
\ '}' ( R:a -- a ) FROMR \ '}' ( R:a -- a ) FROMR
\ Move value from return stack to data stack. \ Move value from return stack to data stack.
@ -174,8 +173,7 @@ c} i,
'r, 'C, '+, '#, \ ( a ret rsp+1 rsp+1 ) '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, l!
l!
\ 'o' ( a b -- a b a ) OVER \ 'o' ( a b -- a b a ) OVER
co i, 'd, 'C, '+, '@, 'e, l! co i, 'd, 'C, '+, '@, 'e, l!
@ -187,8 +185,7 @@ c~ i,
'd, 'C, '+, \ ( a b sp+1 , R:a ) 'd, 'C, '+, \ ( a b sp+1 , R:a )
'!, \ ( b , R:a ) '!, \ ( b , R:a )
'}, \ ( b a ) '}, \ ( b a )
'e, 'e, l!
l!
\ 'B' ( c -- ) C-COMMA \ 'B' ( c -- ) C-COMMA
\ Store byte 'c' to here and increment it \ Store byte 'c' to here and increment it
@ -199,8 +196,8 @@ cB i, 'h, '@, '$, 'h, 'L, k1k0-, '+, 'h, '!, 'e, l!
ca i, ca i,
'L, Ck1k0--, '+, \ ( a+CELL-1 ) 'L, Ck1k0--, '+, \ ( a+CELL-1 )
'L, k0k0-C-, \ ( a+CELL-1 ~(CELL-1) ) 'L, k0k0-C-, \ ( a+CELL-1 ~(CELL-1) )
'&, 'e, '&,
l! 'e, l!
\ 'A' ( -- ) ALIGN \ 'A' ( -- ) ALIGN
\ Round up 'here' to a multiple of CELL \ Round up 'here' to a multiple of CELL