diff options
| author | Alasdair | 2021-03-05 16:52:35 +0000 |
|---|---|---|
| committer | Alasdair | 2021-03-05 17:13:07 +0000 |
| commit | 212b16bd15ea39ae3b35efdce7cef549fe4f1657 (patch) | |
| tree | 94a9bd3904ef46a5fb98df9f024ed5aebce141c4 /src/jib/jib_util.ml | |
| parent | ace7b32fe420234575ad7564f64c76309e3a74b3 (diff) | |
Add more location information to IR
Diffstat (limited to 'src/jib/jib_util.ml')
| -rw-r--r-- | src/jib/jib_util.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/jib/jib_util.ml b/src/jib/jib_util.ml index 88f09bcf..179826ed 100644 --- a/src/jib/jib_util.ml +++ b/src/jib/jib_util.ml @@ -74,19 +74,19 @@ let instr_number () = incr instr_counter; n -let idecl ?loc:(l=Parse_ast.Unknown) ctyp id = +let idecl l 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 = +let iinit l ctyp id cval = I_aux (I_init (ctyp, id, cval), (instr_number (), l)) let iif l cval then_instrs else_instrs ctyp = I_aux (I_if (cval, then_instrs, else_instrs, ctyp), (instr_number (), l)) -let ifuncall ?loc:(l=Parse_ast.Unknown) clexp id cvals = +let ifuncall l clexp id cvals = I_aux (I_funcall (clexp, false, id, cvals), (instr_number (), l)) let iextern ?loc:(l=Parse_ast.Unknown) clexp id cvals = |