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

synth_ifthenelse

Browse source
This commit is contained in:
Mylloon 2023-12-05 04:17:53 +01:00
parent 9d077bcbc1
commit 45bbd6a0dd
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
flap/src/hopix/hopixTypechecker.ml
View file

@ -216,7 +216,15 @@ and synth_ifthenelse
: HopixTypes.typing_environment -> expression Position.located
-> expression Position.located -> expression Position.located -> HopixTypes.aty
=
fun tenv ecase eif eelse -> failwith "Students! This is your job! (synth_ifthenelse)"
fun tenv ecase eif eelse ->
(* Pas testé !! *)
let ecasety = synth_expression tenv ecase in
check_equal_types ecase.position ~expected:ecasety ~given:HopixTypes.hbool;
let eifty = synth_expression tenv eif in
check_equal_types eif.position ~expected:eifty ~given:HopixTypes.hunit;
let eelsety = synth_expression tenv eelse in
check_equal_types eelse.position ~expected:eelsety ~given:HopixTypes.hunit;
HopixTypes.hunit
and synth_while
: HopixTypes.typing_environment -> expression Position.located