izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 14:58:06 +11:00
Code Issues Releases Wiki Activity

Make BLK@ FLUSH only if loading a different block

Browse Source 
Otherwise, when editing a file with VE, we would constantly write
to disk, which is a bit inefficient.
This commit is contained in:
Virgil Dupras 2020-06-11 21:42:52 -04:00
parent e317e9cc78
commit 838c88459b
4 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
blk/127
View File

@ -14,4 +14,3 @@

2
blk/157
View File

@ -1,7 +1,7 @@
: WIPE BLK( 1024 0 FILL BLK!! ; : WIPE BLK( 1024 0 FILL BLK!! ;
( src dst -- ) ( src dst -- )
: COPY SWAP BLK@ BLK> ! BLK! ; : COPY FLUSH SWAP BLK@ BLK> ! BLK! ;

4
blk/378
View File

@ -4,10 +4,8 @@
; ;
: FLUSH BLKDTY @ IF BLK! THEN ; : FLUSH BLKDTY @ IF BLK! THEN ;
: BLK@ ( n -- ) : BLK@ ( n -- )
FLUSH
DUP BLK> @ = IF DROP EXIT THEN DUP BLK> @ = IF DROP EXIT THEN
DUP BLK> ! BLK@* @ EXECUTE FLUSH DUP BLK> ! BLK@* @ EXECUTE ;
;
: BLK!! 1 BLKDTY ! ; : BLK!! 1 BLKDTY ! ;

BIN
emul/forth.bin
View File

Binary file not shown.