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

Buggy

Browse source
This commit is contained in:
Dmitry Boulytchev 2019-04-13 22:43:40 +03:00
parent 9e78762a3a
commit 638c03d660
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/SM.ml
View file

@ -263,10 +263,10 @@ let compile (defs, p) =
add_code (compile_expr lsv env e) lsv false [CALL (".stringval", 1)] add_code (compile_expr lsv env e) lsv false [CALL (".stringval", 1)]
| Expr.Assign (x, e) -> let lassn, env = env#get_label in | Expr.Assign (x, e) -> let lassn, env = env#get_label in
(match x with (*(match x with
| Expr.Ref x -> add_code (compile_expr lassn env e) lassn false [ST x] | Expr.Ref x -> add_code (compile_expr lassn env e) lassn false [ST x]
| _ -> add_code (compile_list lassn env [x; e]) lassn false [match x with Expr.ElemRef _ -> STA | _ -> STI] | _ ->*) add_code (compile_list lassn env [x; e]) lassn false [match x with Expr.ElemRef _ -> STA | _ -> STI]
) (*--) *)
| Expr.Skip -> env, false, [] | Expr.Skip -> env, false, []