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

Initial commit of fcf

Browse source
This commit is contained in:
Dmitry Boulytchev 2019-09-19 00:15:02 +03:00
parent d130d197b3
commit 1cfd3123be
6 changed files with 84 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/SM.ml
View file

@ -333,11 +333,16 @@ let compile (defs, p) =
in
env, true, se @ (if fe then [LABEL lexp] else []) @ [DUP] @ (List.flatten @@ List.rev code) @ [JMP l]
in
let compile_def env (name, (args, locals, stmt)) =
let compile_def env (name, def) =
let args, stmt =
match def with
| `Fun (args, stmt) -> args, stmt
| _ -> invalid_arg "local definition"
in
let lend, env = env#get_label in
let env, flag, code = compile_expr lend env stmt in
env,
[LABEL name; BEGIN (name, args, locals)] @
[LABEL name; BEGIN (name, args, [])] @
code @
(if flag then [LABEL lend] else []) @
[END]