Pārlūkot izejas kodu

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

pull/116/head
Virgil Dupras pirms 4 gadiem
vecāks
revīzija
a405f77185
1 mainītis faili ar 2 papildinājumiem un 4 dzēšanām
  1. +2
    -4
      blk/111

+ 2
- 4
blk/111 Parādīt failu

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

Notiek ielāde…
Atcelt
Saglabāt