diff options
Diffstat (limited to 'backend/RTLtypingaux.ml')
-rw-r--r-- | backend/RTLtypingaux.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/backend/RTLtypingaux.ml b/backend/RTLtypingaux.ml index cc7edf49..406ca07a 100644 --- a/backend/RTLtypingaux.ml +++ b/backend/RTLtypingaux.ml @@ -87,6 +87,8 @@ let type_instr retty (Coq_pair(pc, i)) = end | Icond(cond, args, _, _) -> set_types args (type_of_condition cond) + | Ijumptable(arg, _) -> + set_type arg Tint | Ireturn(optres) -> begin match optres, retty with | None, None -> () |