akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

heh, the current state actually overflows 2KB 

It only works because the part that's truncated is cleanly the sandbox.

I need better error-checking in `read`.
This commit is contained in:
Kartik K. Agaram 2021-04-17 09:09:32 -07:00
parent 5908943f47
commit 412ec38f30
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
shell/main.mu
View File

@ -30,9 +30,9 @@ fn load-state data-disk: (addr disk), _sandbox: (addr sandbox), globals: (addr g
var _data/eax: (addr gap-buffer) <- lookup *data-ah
var data/esi: (addr gap-buffer) <- copy _data
# data-disk -> stream
var s-storage: (stream byte 0x800) # space for 4/sectors
var s-storage: (stream byte 0x1000) # space for 8/sectors
var s/ebx: (addr stream byte) <- address s-storage
load-sectors data-disk, 0/lba, 4/sectors, s
load-sectors data-disk, 0/lba, 8/sectors, s
#? draw-stream-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, s, 7/fg, 0/bg
# stream -> gap-buffer
load-gap-buffer-from-stream data, s
@ -94,11 +94,11 @@ fn store-state data-disk: (addr disk), sandbox: (addr sandbox), globals: (addr g
break-if-!=
return
}
var stream-storage: (stream byte 0x800) # space enough for 4/sectors
var stream-storage: (stream byte 0x1000) # space enough for 8/sectors
var stream/edi: (addr stream byte) <- address stream-storage
write stream, "(\n"
write-globals stream, globals
write-sandbox stream, sandbox
write stream, ")\n"
store-sectors data-disk, 0/lba, 4/sectors, stream
store-sectors data-disk, 0/lba, 8/sectors, stream
}