Miroirs/waforth
1
0
Fork 0
mirror of https://github.com/remko/waforth synced 2024-12-26 09:59:09 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

BUFFER:

Browse source
This commit is contained in:
Remko Tronçon 2022-06-03 20:40:18 +02:00
parent 10c5fd6b53
commit e5c1124e21
2 changed files with 231 additions and 223 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

442
src/waforth.wat
View file

File diff suppressed because it is too large Load diff

12
src/web/tests/forth2012-test-suite/coreexttest.fth
View file

@ -394,13 +394,13 @@ T{ -1 2 0 QD6 -> 2 2 2 2 2 2 6 }T
T{ -1 2 1 QD6 -> 2 3 4 5 6 7 6 }T
T{ 2 -1 1 QD6 -> -1 0 1 3 }T
\ \ -----------------------------------------------------------------------------
\ TESTING BUFFER:
\ -----------------------------------------------------------------------------
TESTING BUFFER:
\ T{ 8 BUFFER: BUF:TEST -> }T
\ T{ BUF:TEST DUP ALIGNED = -> TRUE }T
\ T{ 111 BUF:TEST ! 222 BUF:TEST CELL+ ! -> }T
\ T{ BUF:TEST @ BUF:TEST CELL+ @ -> 111 222 }T
T{ 8 BUFFER: BUF:TEST -> }T
T{ BUF:TEST DUP ALIGNED = -> TRUE }T
T{ 111 BUF:TEST ! 222 BUF:TEST CELL+ ! -> }T
T{ BUF:TEST @ BUF:TEST CELL+ @ -> 111 222 }T
\ -----------------------------------------------------------------------------
TESTING VALUE TO