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

Extended pattern-matching

Browse source
This commit is contained in:
Dmitry Boulytchev 2018-11-06 00:21:38 +03:00 • committed by danyaberezun
parent 9569598775
commit 155ad46ec2
10 changed files with 253 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

21
src/X86.ml
View file

@ -326,8 +326,25 @@ let compile env code =
let s1, env = env#allocate in
let s2, env = env#allocate in
let env, code = call env ".tag" 3 false in
env, [Mov (L env#hash t, s1); Mov (L n, s2)] @ code
env, [Mov (L env#hash t, s1); Mov (L n, s2)] @ code
| ARRAY n ->
let s, env = env#allocate in
let env, code = call env ".array_patt" 2 false in
env, [Mov (L n, s)] @ code
| PATT StrCmp -> call env ".string_patt" 2 false
| PATT patt ->
call env
(match patt with
| Boxed -> ".boxed_patt"
| UnBoxed -> ".unboxed_patt"
| Array -> ".array_tag_patt"
| String -> ".string_tag_patt"
| Sexp -> ".sexp_tag_patt"
) 1 false
| ENTER xs ->
let env, code =
List.fold_left