diff options
Diffstat (limited to 'backend/XTL.ml')
-rw-r--r-- | backend/XTL.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/backend/XTL.ml b/backend/XTL.ml index a1b7f23b..f10efeed 100644 --- a/backend/XTL.ml +++ b/backend/XTL.ml @@ -133,6 +133,7 @@ let rec type_builtin_arg a ty = match a with | BA v -> set_var_type v ty | BA_splitlong(a1, a2) -> type_builtin_arg a1 Tint; type_builtin_arg a2 Tint + | BA_addptr(a1, a2) -> type_builtin_arg a1 coq_Tptr; type_builtin_arg a2 coq_Tptr | _ -> () let rec type_builtin_args al tyl = |