diff options
Diffstat (limited to 'backend/RTLtyping.v')
-rw-r--r-- | backend/RTLtyping.v | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/backend/RTLtyping.v b/backend/RTLtyping.v index 9992ab79..fef74706 100644 --- a/backend/RTLtyping.v +++ b/backend/RTLtyping.v @@ -77,6 +77,7 @@ Definition type_of_builtin_arg (a: builtin_arg reg) : typ := | BA_loadglobal chunk id ofs => type_of_chunk chunk | BA_addrglobal id ofs => Tptr | BA_splitlong hi lo => Tlong + | BA_addptr a1 a2 => Tptr end. Definition type_of_builtin_res (r: builtin_res reg) : typ := @@ -249,6 +250,7 @@ Definition type_builtin_arg (e: S.typenv) (a: builtin_arg reg) (ty: typ) : res S | BA_loadglobal chunk id ofs => type_expect e ty (type_of_chunk chunk) | BA_addrglobal id ofs => type_expect e ty Tptr | BA_splitlong hi lo => type_expect e ty Tlong + | BA_addptr a1 a2 => type_expect e ty Tptr end. Fixpoint type_builtin_args (e: S.typenv) (al: list (builtin_arg reg)) (tyl: list typ) : res S.typenv := |