diff options
| author | Maxime Dénès | 2018-09-26 15:53:47 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2018-09-26 15:53:47 +0200 |
| commit | ef231c674c11f2f7f6d87bc45f6b909aca26f0c2 (patch) | |
| tree | 5e13fc34552b81659eef515719a943ed49a74186 /checker/validate.ml | |
| parent | db29b49361689d9cbc5c4dc61e829d3e40bcb425 (diff) | |
| parent | 8e88da289d5c96506a9540890ccbd7c22570049c (diff) | |
Merge PR #8102: Fix #8043: Unsafe assignment in checker.
Diffstat (limited to 'checker/validate.ml')
| -rw-r--r-- | checker/validate.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/checker/validate.ml b/checker/validate.ml index f831875dd4..c214409a2c 100644 --- a/checker/validate.ml +++ b/checker/validate.ml @@ -85,6 +85,7 @@ let rec val_gen v ctx o = match v with | Fail s -> fail ctx o ("unexpected object " ^ s) | Annot (s,v) -> val_gen v (ctx/CtxAnnot s) o | Dyn -> val_dyn ctx o + | Proxy { contents = v } -> val_gen v ctx o (* Check that an object is a tuple (or a record). vs is an array of value representation for each field. Its size corresponds to the |