From c4cf38773f9c92ed0d5ebc72165801e581755b2f Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sun, 6 Jun 2021 10:54:50 -0700 Subject: more space for definitions --- shell/environment.mu | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'shell/environment.mu') diff --git a/shell/environment.mu b/shell/environment.mu index 4bf90c54..a6e4b316 100644 --- a/shell/environment.mu +++ b/shell/environment.mu @@ -329,11 +329,11 @@ fn render-function-modal-menu screen: (addr screen), _self: (addr environment) { fn load-state _self: (addr environment), data-disk: (addr disk) { var self/esi: (addr environment) <- copy _self # data-disk -> stream - var s-storage: (stream byte 0x1000) # space for 8/sectors + var s-storage: (stream byte 0x2000) # space for 16/sectors var s/ebx: (addr stream byte) <- address s-storage draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, "loading sectors from data disk", 3/fg, 0/bg move-cursor-to-left-margin-of-next-line 0/screen - load-sectors data-disk, 0/lba, 8/sectors, s + load-sectors data-disk, 0/lba, 0x10/sectors, s #? draw-stream-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, s, 7/fg, 0xc5/bg=blue-bg # stream -> gap-buffer (HACK: we temporarily cannibalize the sandbox's gap-buffer) draw-text-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, "parsing", 3/fg, 0/bg @@ -413,11 +413,11 @@ fn store-state data-disk: (addr disk), sandbox: (addr sandbox), globals: (addr g break-if-!= return } - var stream-storage: (stream byte 0x1000) # space enough for 8/sectors + var stream-storage: (stream byte 0x2000) # space enough for 16/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, 8/sectors, stream + store-sectors data-disk, 0/lba, 0x10/sectors, stream } -- cgit 1.4.1-2-gfad0