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

add printFromeSpace

Browse source
This commit is contained in:
danyaberezun 2019-04-24 16:02:29 +03:00
parent 638c03d660
commit 7fe035d494
13 changed files with 1148 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/.depend Normal file
View file

@ -0,0 +1,8 @@
Driver.cmo : X86.cmo SM.cmo Language.cmo
Driver.cmx : X86.cmx SM.cmx Language.cmx
Language.cmo :
Language.cmx :
SM.cmo : Language.cmo
SM.cmx : Language.cmx
X86.cmo : SM.cmo Language.cmo
X86.cmx : SM.cmx Language.cmx

8
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)]
| Expr.Assign (x, e) -> let lassn, env = env#get_label in
(*(match x with
| 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]
(* (match x with
* | 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]) *)
| Expr.Skip -> env, false, []

BIN
src/rc.opt Executable file
View file

Binary file not shown.