This commit is contained in:
parent
1c7799486d
commit
c11ea74442
|
@ -139,7 +139,7 @@ fn allocate-screen _out: (addr handle cell) {
|
|||
copy-to *type, 5/screen
|
||||
}
|
||||
|
||||
fn new-screen _out: (addr handle cell), width: int, height: int {
|
||||
fn new-fake-screen _out: (addr handle cell), width: int, height: int {
|
||||
var out/eax: (addr handle cell) <- copy _out
|
||||
allocate-screen out
|
||||
var out-addr/eax: (addr cell) <- lookup *out
|
||||
|
@ -171,7 +171,7 @@ fn allocate-keyboard _out: (addr handle cell) {
|
|||
copy-to *type, 6/keyboard
|
||||
}
|
||||
|
||||
fn new-keyboard _out: (addr handle cell), capacity: int {
|
||||
fn new-fake-keyboard _out: (addr handle cell), capacity: int {
|
||||
var out/eax: (addr handle cell) <- copy _out
|
||||
allocate-keyboard out
|
||||
var out-addr/eax: (addr cell) <- lookup *out
|
||||
|
|
|
@ -9,7 +9,7 @@ type sandbox {
|
|||
cursor-in-trace?: boolean
|
||||
}
|
||||
|
||||
fn initialize-sandbox _self: (addr sandbox), screen-and-keyboard?: boolean {
|
||||
fn initialize-sandbox _self: (addr sandbox), fake-screen-and-keyboard?: boolean {
|
||||
var self/esi: (addr sandbox) <- copy _self
|
||||
var data-ah/eax: (addr handle gap-buffer) <- get self, data
|
||||
allocate data-ah
|
||||
|
@ -20,12 +20,12 @@ fn initialize-sandbox _self: (addr sandbox), screen-and-keyboard?: boolean {
|
|||
populate-stream value-ah, 0x1000/4KB
|
||||
#
|
||||
{
|
||||
compare screen-and-keyboard?, 0/false
|
||||
compare fake-screen-and-keyboard?, 0/false
|
||||
break-if-=
|
||||
var screen-ah/eax: (addr handle cell) <- get self, screen-var
|
||||
new-screen screen-ah, 5/width, 4/height
|
||||
new-fake-screen screen-ah, 5/width, 4/height
|
||||
var keyboard-ah/eax: (addr handle cell) <- get self, keyboard-var
|
||||
new-keyboard keyboard-ah, 0x10/keyboard-capacity
|
||||
new-fake-keyboard keyboard-ah, 0x10/keyboard-capacity
|
||||
}
|
||||
#
|
||||
var trace-ah/eax: (addr handle trace) <- get self, trace
|
||||
|
|
Loading…
Reference in New Issue