Sfoglia il codice sorgente

Fix bugs in ed's U and VE's O/o

U didn't properly handle inserting on the last line and O's bounds
checks didn't make sense.
master
Virgil Dupras 4 anni fa
parent
commit
74e211eeda
2 ha cambiato i file con 5 aggiunte e 5 eliminazioni
  1. +3
    -2
      blk/109
  2. +2
    -3
      blk/130

+ 3
- 2
blk/109 Vedi File

@@ -1,5 +1,6 @@
: _U ( U without P, used in VE )
15 EDPOS @ 64 / - 0 DO
15 EDPOS @ 64 / - ?DUP IF
0 DO
14 I - _mvln+
LOOP ;
LOOP THEN ;
: U _U P ;

+ 2
- 3
blk/130 Vedi File

@@ -8,9 +8,8 @@
DUP 0x20 >= IF
DUP EMIT EDPOS @ _cpos C! 1 EDPOS +! BLK!! 0
THEN UNTIL mode! SPC contents ;
: $O EDPOS @ 0x3c0 ( 15 * 64 ) >= IF EXIT THEN
_U EDPOS @ 0x3c0 AND DUP pos! _cpos _zbuf BLK!! contents ;
: $o EDPOS @ 64 < IF EXIT THEN EDPOS @ 64 + EDPOS ! $O ;
: $O _U EDPOS @ 0x3c0 AND DUP pos! _cpos _zbuf BLK!! contents ;
: $o EDPOS @ 0x3c0 < IF EDPOS @ 64 + EDPOS ! $O THEN ;
: $D $H 64 icpy
acc@ 0 DO 16 EDPOS @ 64 / DO I _mvln- LOOP LOOP
BLK!! contents ;

Loading…
Annulla
Salva