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

ed: don't crash when inserting in 64th char of the line

Browse Source
This commit is contained in:
Virgil Dupras 2020-06-10 20:56:19 -04:00
parent 7cad9ffe40
commit a405f77185
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
blk/111
View File

@ -7,9 +7,7 @@
_rbufsz IBUF _blen 2DUP > IF _rbufsz IBUF _blen 2DUP > IF
TUCK - ( ilen chars-to-move ) TUCK - ( ilen chars-to-move )
SWAP EDPOS @ _cpos 2DUP + ( ctm ilen a a+ilen ) SWAP EDPOS @ _cpos 2DUP + ( ctm ilen a a+ilen )
3 PICK MOVE- ( ctm ilen ) 3 PICK MOVE- ( ctm ilen ) NIP ( ilen )
NIP ( ilen ) ELSE DROP 1+ ( ilen becomes rbuffsize+1 ) THEN
ELSE DROP ( ilen becomes rbuffsize )
THEN
DUP IBUF EDPOS @ _cpos ROT MOVE ( ilen ) EDPOS +! BLK!! ; DUP IBUF EDPOS @ _cpos ROT MOVE ( ilen ) EDPOS +! BLK!! ;
: I IBUF _type _I EDPOS @ 64 / _pln ; : I IBUF _type _I EDPOS @ 64 / _pln ;