diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2021-04-17 09:09:32 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2021-04-17 09:09:32 -0700 |
commit | 412ec38f30517fae6230b68ddcc970994a86a65b (patch) | |
tree | d769400dc4d074657a2a37257de3d40805c328f5 /shell | |
parent | 5908943f47dd1c054b3335c963672bc652bad140 (diff) | |
download | mu-412ec38f30517fae6230b68ddcc970994a86a65b.tar.gz |
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`.
Diffstat (limited to 'shell')
-rw-r--r-- | shell/main.mu | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/shell/main.mu b/shell/main.mu index ca1392d5..96aafbf5 100644 --- a/shell/main.mu +++ b/shell/main.mu @@ -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 } |