diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2017-06-15 15:11:26 +0200 |
---|---|---|
committer | Bernhard Schommer <bschommer@users.noreply.github.com> | 2017-07-06 15:41:51 +0200 |
commit | dff22ef6d855973e0e0f05c7203a6bfa9a4cf01a (patch) | |
tree | 82c09b8cff023557084d6257acdef84b1311dd35 /backend/XTL.ml | |
parent | 92fc8a425034abc1247203a4c0d471e8b6d0e941 (diff) | |
download | compcert-kvx-dff22ef6d855973e0e0f05c7203a6bfa9a4cf01a.tar.gz compcert-kvx-dff22ef6d855973e0e0f05c7203a6bfa9a4cf01a.zip |
Extend builtin arguments with a pointer addition operator
This extension enables more addressing modes to be encoded as builtin arguments and used in conjunction with volatile memory accesses.
Current status: x86 port only, the only new addressing mode handled is reg + offset.
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 = |