izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-24 03:38:05 +11:00
Code Issues Releases Wiki Activity

core: fix MOVE so it copies the right number of bytes

Browse Source 
It copied one too much.
This commit is contained in:
Virgil Dupras 2020-04-06 16:54:56 -04:00
parent 058b85686f
commit 7cd9d29cd8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
forth/core.fs
View File

@ -122,8 +122,8 @@
( a1 a2 u -- ) ( a1 a2 u -- )
: MOVE : MOVE
( u ) 0 DO ( u ) 0 DO
SWAP DUP I + @ ( a2 a1 x ) SWAP DUP I + C@ ( a2 a1 x )
ROT SWAP OVER I + ( a1 a2 x a2 ) ROT SWAP OVER I + ( a1 a2 x a2 )
! ( a1 a2 ) C! ( a1 a2 )
LOOP LOOP
; ;