st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2026-01-03 04:28:19 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Stdlib: initial version

Browse source
This commit is contained in:
Dmitry Boulytchev 2019-12-26 00:17:34 +03:00
parent ad920df098
commit 59a7d48568
5 changed files with 166 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/X86.ml
View file

@ -463,8 +463,8 @@ let compile cmd env code =
| Closure -> ".closure_tag_patt"
) 1
| FAIL (line, col) ->
let v, env = env#pop in
| FAIL ((line, col), value) ->
let v, env = if value then env#peek, env else env#pop in
let s, env = env#string cmd#get_infile in
env, [Push (L col); Push (L line); Push (M ("$" ^ s)); Push v; Call "Bmatch_failure"; Binop ("+", L (3 * word_size), esp)]