diff options
Diffstat (limited to 'arm')
-rw-r--r-- | arm/CBuiltins.ml | 18 | ||||
-rw-r--r-- | arm/PrintAsm.ml | 17 |
2 files changed, 1 insertions, 34 deletions
diff --git a/arm/CBuiltins.ml b/arm/CBuiltins.ml index 6f62bedd..17aa5115 100644 --- a/arm/CBuiltins.ml +++ b/arm/CBuiltins.ml @@ -49,23 +49,7 @@ let builtins = { "__builtin_dsb", (TVoid [], [], false); "__builtin_isb", - (TVoid [], [], false); - "__builtin_ldrex", - (TInt(IUInt, []), [TPtr(TInt(IUInt, [AConst]), [])], false); - "__builtin_ldrexb", - (TInt(IUChar, []), [TPtr(TInt(IUChar, [AConst]), [])], false); - "__builtin_ldrexh", - (TInt(IUShort, []), [TPtr(TInt(IUShort, [AConst]), [])], false); - "__builtin_ldrexd", - (TInt(IULongLong, []), [TPtr(TInt(IULongLong, [AConst]), [])], false); - "__builtin_strex", - (TInt(IInt, []), [TPtr(TInt(IUInt, []), []); TInt(IUInt, [])], false); - "__builtin_strexb", - (TInt(IInt, []), [TPtr(TInt(IUChar, []), []); TInt(IUChar, [])], false); - "__builtin_strexh", - (TInt(IInt, []), [TPtr(TInt(IUShort, []), []); TInt(IUShort, [])], false); - "__builtin_strexd", - (TInt(IInt, []), [TPtr(TInt(IULongLong, []), []); TInt(IULongLong, [])], false); + (TVoid [], [], false) ] } diff --git a/arm/PrintAsm.ml b/arm/PrintAsm.ml index 01ec7165..e9b20d4c 100644 --- a/arm/PrintAsm.ml +++ b/arm/PrintAsm.ml @@ -603,23 +603,6 @@ let print_builtin_inline oc name args res = fprintf oc " dsb\n"; 1 | "__builtin_isb", [], _ -> fprintf oc " isb\n"; 1 - | "__builtin_ldrex", [IR addr], [IR dst] -> - fprintf oc " ldrex %a, [%a]\n" ireg dst ireg addr; 1 - | "__builtin_ldrexb", [IR addr], [IR dst] -> - fprintf oc " ldrexb %a, [%a]\n" ireg dst ireg addr; 1 - | "__builtin_ldrexd", [IR addr], [IR dsth; IR dstl] -> - fprintf oc " ldrexd %a, %a, [%a]\n" ireg dstl ireg dsth ireg addr; 1 - | "__builtin_ldrexh", [IR addr], [IR dst] -> - fprintf oc " ldrexh %a, [%a]\n" ireg dst ireg addr; 1 - | "__builtin_strex", [IR addr; IR src], [IR res] -> - fprintf oc " strex %a, %a, [%a]\n" ireg res ireg src ireg addr; 1 - | "__builtin_strexb", [IR addr; IR src], [IR res] -> - fprintf oc " strexb %a, %a, [%a]\n" ireg res ireg src ireg addr; 1 - | "__builtin_strexd", [IR addr; IR srch; IR srcl], [IR res] -> - fprintf oc " strexd %a, %a, %a, [%a]\n" ireg res ireg srcl ireg srch ireg addr; 1 - | "__builtin_strexh", [IR addr; IR src], [IR res] -> - fprintf oc " strexh %a, %a, [%a]\n" ireg res ireg src ireg addr; 1 - (* Vararg stuff *) | "__builtin_va_start", [IR a], _ -> |