diff options
| author | Alasdair Armstrong | 2018-12-11 19:54:14 +0000 |
|---|---|---|
| committer | Alasdair Armstrong | 2018-12-11 19:54:57 +0000 |
| commit | ab4b9ca4f7cab45b6a2a13d0ef125dcf9c276a06 (patch) | |
| tree | 509443d368b072e31c2fe3472641282750629e28 /src/bytecode_util.ml | |
| parent | c0500a16891e57b2856e47a3c233cd0c1d247a70 (diff) | |
Fix all tests with type checking changes
Diffstat (limited to 'src/bytecode_util.ml')
| -rw-r--r-- | src/bytecode_util.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/bytecode_util.ml b/src/bytecode_util.ml index c7fdc62d..3ced48b6 100644 --- a/src/bytecode_util.ml +++ b/src/bytecode_util.ml @@ -67,6 +67,9 @@ let instr_number () = let idecl ?loc:(l=Parse_ast.Unknown) ctyp id = I_aux (I_decl (ctyp, id), (instr_number (), l)) +let ireset ?loc:(l=Parse_ast.Unknown) ctyp id = + I_aux (I_reset (ctyp, id), (instr_number (), l)) + let iinit ?loc:(l=Parse_ast.Unknown) ctyp id cval = I_aux (I_init (ctyp, id, cval), (instr_number (), l)) |