st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-24 15:48:47 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix for https://github.com/JetBrains-Research/Lama/issues/16

Browse source
This commit is contained in:
Dmitry Boulytchev 2020-11-24 23:11:17 +03:00
parent 8f01e5eb5b
commit 66dc5c3063
8 changed files with 54 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Language.ml
View file

@ -81,6 +81,8 @@ module Value =
| Builtin of string
with show, html
let is_int = function Int _ -> true | _ -> false
let to_int = function
| Int n -> n
| x -> failwith (Printf.sprintf "int value expected (%s)\n" (show(t) (fun _ -> "<not supported>") (fun _ -> "<not supported>") x))

18
src/SM.ml
View file

@ -147,9 +147,14 @@ let rec eval env (((cstack, stack, glob, loc, i, o) as conf) : config) = functio
| STI -> let z::(Value.Var r)::stack' = stack in
eval env (cstack, z::stack', update glob loc z r, loc, i, o) prg'
| STA -> let v::j::x::stack' = stack in
Value.update_elem x (Value.to_int j) v;
eval env (cstack, v::stack', glob, loc, i, o) prg'
| STA -> let z::j::stack' = stack in
(match j with
| Value.Var r -> eval env (cstack, z::stack', update glob loc z r, loc, i, o) prg'
| Value.Int _ ->
let x :: stack' = stack' in
Value.update_elem x (Value.to_int j) z;
eval env (cstack, z::stack', glob, loc, i, o) prg'
)
| SLABEL _ | LABEL _ | FLABEL _ -> eval env conf prg'
@ -826,9 +831,14 @@ let compile cmd ((imports, infixes), p) =
| Expr.StringVal e -> let lsv, env = env#get_label in
add_code (compile_expr false lsv env e) lsv false [CALL (".stringval", 1, tail)]
| Expr.Assign (Expr.Ref x, e) -> let lassn, env = env#get_label in
let env , line = env#gen_line x in
let env , acc = env#lookup x in
add_code (compile_expr false lassn env e) lassn false (line @ [ST acc])
| Expr.Assign (x, e) -> let lassn, env = env#get_label in
add_code (compile_list false lassn env [x; e]) lassn false [match x with Expr.ElemRef _ -> STA | _ -> STI]
add_code (compile_list false lassn env [x; e]) lassn false [match x with Expr.Ref _ -> STI | _ -> STA] (*Expr.ElemRef _ -> STA | _ -> STI]*)
| Expr.Skip -> env, false, []

10
src/X86.ml
View file

@ -272,12 +272,10 @@ let compile cmd env imports code =
(env, Mov (M ("$" ^ s), l) :: call)
| LDA x ->
let s, env' = (env#variable x)#allocate in
env',
(match s with
| S _ | M _ -> [Lea (env'#loc x, eax); Mov (eax, s)]
| _ -> [Lea (env'#loc x, s)]
)
let s, env' = (env #variable x)#allocate in
let s', env''= env'#allocate in
env'',
[Lea (env'#loc x, eax); Mov (eax, s); Mov (eax, s')]
| LD x ->
let s, env' = (env#variable x)#allocate in

2
src/version.ml
View file

@ -1 +1 @@
let version = "Version 1.00, 1849c7029, Mon Nov 16 20:49:07 2020 +0300"
let version = "Version 1.00, 8f01e5eb5, Tue Nov 24 01:51:11 2020 +0300"