diff options
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 = |