From fe8baff11737d3785ff51d20ace9ab31665cd295 Mon Sep 17 00:00:00 2001 From: xleroy Date: Thu, 12 May 2011 09:41:09 +0000 Subject: cparser: support for attributes over struct and union. cparser: added experimental emulation of packed structs (PackedStruct.ml) git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1650 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- powerpc/CBuiltins.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'powerpc/CBuiltins.ml') diff --git a/powerpc/CBuiltins.ml b/powerpc/CBuiltins.ml index e054e18..4fbe6e4 100644 --- a/powerpc/CBuiltins.ml +++ b/powerpc/CBuiltins.ml @@ -49,9 +49,9 @@ let builtins = { false); (* Memory accesses *) "__builtin_read_int16_reversed", - (TInt(IUShort, []), [TPtr(TInt(IUShort, []), [])], false); + (TInt(IUShort, []), [TPtr(TInt(IUShort, [AConst]), [])], false); "__builtin_read_int32_reversed", - (TInt(IUInt, []), [TPtr(TInt(IUInt, []), [])], false); + (TInt(IUInt, []), [TPtr(TInt(IUInt, [AConst]), [])], false); "__builtin_write_int16_reversed", (TVoid [], [TPtr(TInt(IUShort, []), []); TInt(IUShort, [])], false); "__builtin_write_int32_reversed", -- cgit v1.2.3