Paris7/compilation
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Activity

fmt

Browse source
This commit is contained in:
Mylloon 2023-11-05 00:52:33 +01:00
parent 7842d4dc14
commit c74809cc73
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
flap/src/hopix/hopixInterpreter.ml
View file

@ -381,10 +381,12 @@ and expression _pos environment _memory = function
| Field _ ->
(* TODO *)
failwith "Students! This is your job (Field)!"
| Tuple([]) -> (* Cas pour le Tuple vide *)
VUnit (* Un tuple vide ne contient rien (logique), donc on utilise un VUnit*)
| Tuple(list_exp) ->
VTuple(List.map (expression' environment _memory) list_exp)
| Tuple [] ->
(* Cas pour le Tuple vide *)
VUnit
| Tuple list_exp ->
(* Un tuple vide ne contient rien (logique), donc on utilise un VUnit*)
VTuple (List.map (expression' environment _memory) list_exp)
| Sequence _ ->
(* TODO *)
failwith "Students! This is your job (Sequence)!"
@ -399,7 +401,7 @@ and expression _pos environment _memory = function
failwith "Students! This is your job (Apply)!"
| Ref ref ->
let dref = expression' environment _memory ref in
VLocation(Memory.allocate _memory Mint.one dref)
VLocation (Memory.allocate _memory Mint.one dref)
| Assign _ ->
(* TODO *)
failwith "Students! This is your job (Assign)!"