diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-04-20 17:46:58 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-04-20 17:46:58 +0000 |
| commit | 468f0c4407895557ca8089430f894a85f06afe97 (patch) | |
| tree | 76d4d5bb302da822797ccbbecd8f4cfd935bf938 /arm/CBuiltins.ml | |
| parent | 600e5f3be65eeffc80d5c4cad800121fe521a1aa (diff) | |
| download | compcert-kvx-468f0c4407895557ca8089430f894a85f06afe97.tar.gz compcert-kvx-468f0c4407895557ca8089430f894a85f06afe97.zip | |
Add __builtin_bswap16 and __builtin_bswap32 to all ports.
Remove __builtin_{read,write}_reversed from IA32 and ARM ports.
Machregs: tighten destroyed_by_builtin
Packedstructs: use bswap if read/write-reversed not available.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2208 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'arm/CBuiltins.ml')
| -rw-r--r-- | arm/CBuiltins.ml | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/arm/CBuiltins.ml b/arm/CBuiltins.ml index 3be32e48..771243f8 100644 --- a/arm/CBuiltins.ml +++ b/arm/CBuiltins.ml @@ -23,20 +23,15 @@ let builtins = { (* Integer arithmetic *) "__builtin_bswap", (TInt(IUInt, []), [TInt(IUInt, [])], false); + "__builtin_bswap32", + (TInt(IUInt, []), [TInt(IUInt, [])], false); + "__builtin_bswap16", + (TInt(IUShort, []), [TInt(IUShort, [])], false); "__builtin_cntlz", (TInt(IUInt, []), [TInt(IUInt, [])], false); (* Float arithmetic *) "__builtin_fsqrt", - (TFloat(FDouble, []), [TFloat(FDouble, [])], false); - (* Memory accesses *) - "__builtin_read16_reversed", - (TInt(IUShort, []), [TPtr(TInt(IUShort, [AConst]), [])], false); - "__builtin_read32_reversed", - (TInt(IUInt, []), [TPtr(TInt(IUInt, [AConst]), [])], false); - "__builtin_write16_reversed", - (TVoid [], [TPtr(TInt(IUShort, []), []); TInt(IUShort, [])], false); - "__builtin_write32_reversed", - (TVoid [], [TPtr(TInt(IUInt, []), []); TInt(IUInt, [])], false); + (TFloat(FDouble, []), [TFloat(FDouble, [])], false) ] } |