st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2026-01-05 21:48:14 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Sync

Browse source
This commit is contained in:
Dmitry Boulytchev 2018-03-08 01:00:01 +03:00
parent 0561c22217
commit 653ab9e0df
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/X86.ml
View file

@ -103,9 +103,12 @@ let compile env code =
| WRITE -> | WRITE ->
let s, env' = env#pop in let s, env' = env#pop in
(env', [Push s; Call "Lwrite"; Pop eax]) (env', [Push s; Call "Lwrite"; Pop eax])
| CONST n -> | CONST n ->
env#push (L n), []
(*
let s, env' = env#allocate in let s, env' = env#allocate in
(env', [Mov (L n, s)]) (env', [Mov (L n, s)])
*)
| LD x -> | LD x ->
let s, env' = (env#global x)#allocate in let s, env' = (env#global x)#allocate in
env', env',