This commit is contained in:
parent
aad64de236
commit
834377d6e3
|
@ -49,7 +49,6 @@ fn gap-buffer-capacity _gap: (addr gap-buffer) -> _/edx: int {
|
|||
return result
|
||||
}
|
||||
|
||||
# just for tests
|
||||
fn initialize-gap-buffer-with self: (addr gap-buffer), keys: (addr array byte) {
|
||||
initialize-gap-buffer self, 0x40/capacity
|
||||
var input-stream-storage: (stream byte 0x40/capacity)
|
||||
|
|
|
@ -6,7 +6,7 @@ fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk)
|
|||
var env/esi: (addr environment) <- address env-storage
|
||||
initialize-environment env, 0x20/fake-screen-width, 8/fake-screen-height
|
||||
load-state env, data-disk
|
||||
$main:loop: {
|
||||
{
|
||||
render-environment screen, env
|
||||
# no way to quit right now; just reboot
|
||||
{
|
||||
|
|
Loading…
Reference in New Issue