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

.

Browse Source
This commit is contained in:
Kartik K. Agaram 2021-06-05 20:50:06 -07:00
parent 0b3d456f2c
commit 6d67e1bf14
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
shell/parse.mu
View File

@ -220,6 +220,11 @@ fn parse-atom _curr-token: (addr cell), _out: (addr handle cell), trace: (addr t
var dest/edi: (addr float) <- get out-addr, number-data var dest/edi: (addr float) <- get out-addr, number-data
copy-to *dest, val-float copy-to *dest, val-float
{ {
{
var should-trace?/eax: boolean <- should-trace? trace
compare should-trace?, 0/false
}
break-if-=
var stream-storage: (stream byte 0x400) var stream-storage: (stream byte 0x400)
var stream/ecx: (addr stream byte) <- address stream-storage var stream/ecx: (addr stream byte) <- address stream-storage
write stream, "=> number " write stream, "=> number "
@ -251,6 +256,11 @@ fn parse-atom _curr-token: (addr cell), _out: (addr handle cell), trace: (addr t
var dest-ah/edx: (addr handle stream byte) <- get out-addr, text-data var dest-ah/edx: (addr handle stream byte) <- get out-addr, text-data
copy-object curr-token-data-ah, dest-ah copy-object curr-token-data-ah, dest-ah
{ {
{
var should-trace?/eax: boolean <- should-trace? trace
compare should-trace?, 0/false
}
break-if-=
var stream-storage: (stream byte 0x400) var stream-storage: (stream byte 0x400)
var stream/ecx: (addr stream byte) <- address stream-storage var stream/ecx: (addr stream byte) <- address stream-storage
write stream, "=> symbol " write stream, "=> symbol "