akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

.

This commit is contained in:
Kartik K. Agaram 2021-06-09 20:50:19 -07:00
parent 6169ec59c0
commit 0aed24e222
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
shell/evaluate.mu
View File

@ -262,7 +262,7 @@ fn evaluate _in-ah: (addr handle cell), _out-ah: (addr handle cell), env-h: (han
stream-to-array first-arg-data, tmp-ah
var first-arg-data-string/eax: (addr array byte) <- lookup *tmp-ah
var out-ah/edi: (addr handle cell) <- copy _out-ah
assign-or-create-global globals, first-arg-data-string, *out-ah, trace
var defined-index/eax: int <- assign-or-create-global globals, first-arg-data-string, *out-ah, trace
trace-higher trace
return
}

4
shell/global.mu
View File

@ -327,13 +327,12 @@ fn refresh-definition _self: (addr global-table), _index: int {
stream-to-array correct-definition-name, curr-global-name-ah
}
fn assign-or-create-global _self: (addr global-table), name: (addr array byte), value: (handle cell), trace: (addr trace) {
fn assign-or-create-global _self: (addr global-table), name: (addr array byte), value: (handle cell), trace: (addr trace) -> _/eax: int {
var self/esi: (addr global-table) <- copy _self
compare self, 0
{
break-if-!=
abort "assign global"
return
}
var curr-index/ecx: int <- find-symbol-name-in-globals self, name
{
@ -353,6 +352,7 @@ fn assign-or-create-global _self: (addr global-table), name: (addr array byte),
copy-array-object name, curr-name-ah
var curr-value-ah/eax: (addr handle cell) <- get curr, value
copy-handle value, curr-value-ah
return curr-index
}
fn lookup-symbol-in-globals _sym: (addr cell), out: (addr handle cell), _globals: (addr global-table), trace: (addr trace), screen-cell: (addr handle cell), keyboard-cell: (addr handle cell) {