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
|
return result
|
||||||
}
|
}
|
||||||
|
|
||||||
# just for tests
|
|
||||||
fn initialize-gap-buffer-with self: (addr gap-buffer), keys: (addr array byte) {
|
fn initialize-gap-buffer-with self: (addr gap-buffer), keys: (addr array byte) {
|
||||||
initialize-gap-buffer self, 0x40/capacity
|
initialize-gap-buffer self, 0x40/capacity
|
||||||
var input-stream-storage: (stream byte 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
|
var env/esi: (addr environment) <- address env-storage
|
||||||
initialize-environment env, 0x20/fake-screen-width, 8/fake-screen-height
|
initialize-environment env, 0x20/fake-screen-width, 8/fake-screen-height
|
||||||
load-state env, data-disk
|
load-state env, data-disk
|
||||||
$main:loop: {
|
{
|
||||||
render-environment screen, env
|
render-environment screen, env
|
||||||
# no way to quit right now; just reboot
|
# no way to quit right now; just reboot
|
||||||
{
|
{
|
||||||
|
|
Loading…
Reference in New Issue