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

synth_assign

Browse source
This commit is contained in:
Mylloon 2023-12-05 04:08:51 +01:00
parent 0fb9b8603b
commit f82e28cd8b
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -191,7 +191,13 @@ and synth_assign
: HopixTypes.typing_environment -> expression Position.located
-> expression Position.located -> HopixTypes.aty
=
fun tenv ref expr -> failwith "Students! This is your job! (synth_assign)"
fun tenv ref expr ->
let refty = synth_expression tenv ref in
match HopixTypes.destruct_reference_type expr.position refty with
| expected ->
let given = synth_expression tenv expr in
check_equal_types expr.position ~expected ~given;
HopixTypes.hunit
and synth_read
: HopixTypes.typing_environment -> expression Position.located -> HopixTypes.aty