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

1 files changed, 114 insertions, 0 deletions

diff --git a/test/regression/packedstruct1.c b/test/regression/packedstruct1.c
new file mode 100644
index 0000000..d5ae404
--- /dev/null
+++ b/test/regression/packedstruct1.c
@@ -0,0 +1,114 @@
+/* Packed structs */
+
+#include <stdio.h>
+
+#define offsetof(s,f) (int)&(((struct s *)0)->f)
+
+/* Simple packing */
+
+#pragma pack(1)
+
+struct s1 { unsigned short x; int y; double z; };
+
+void test1(void)
+{
+  struct s1 s1;
+  printf("sizeof(struct s1) = %d\n", sizeof(struct s1));
+  printf("offsetof(x) = %d, offsetof(y) = %d, offsetof(z) = %d\n",
+         offsetof(s1,x), offsetof(s1,y), offsetof(s1,z));
+  s1.x = 123; s1.y = -456; s1.z = 3.14159;
+  printf("s1 = {x = %d, y = %d, z = %.5f}\n\n", s1.x, s1.y, s1.z);
+}
+
+/* Packing plus alignment */
+
+#pragma pack(2,16)
+
+struct s2 { unsigned char x; int y; double z; };
+
+char filler1;
+
+struct s2 s2;
+
+void test2(void)
+{
+  printf("sizeof(struct s2) = %d\n", sizeof(struct s2));
+  printf("&s2 mod 16 = %d\n", ((int) &s2) & 0xF);
+  printf("offsetof(x) = %d, offsetof(y) = %d, offsetof(z) = %d\n",
+         offsetof(s2,x), offsetof(s2,y), offsetof(s2,z));
+  s2.x = 12345; s2.y = -456; s2.z = 3.14159;
+  printf("s2 = {x = %d, y = %d, z = %.5f}\n\n", s2.x, s2.y, s2.z);
+}
+
+/* Now with byte-swapped fields */
+
+#if defined(__COMPCERT__) && defined(__POWERPC__)
+#pragma pack(1,1,1)
+#else
+#pragma pack(1,1,0)
+#endif
+
+struct s3 {
+  unsigned char x; 
+  unsigned short y;
+  unsigned int z;
+  signed short v;
+  signed int w;
+};
+
+struct s3 s3;
+
+void test3(void)
+{
+  printf("sizeof(struct s3) = %d\n", sizeof(struct s3));
+  s3.x = 123;
+  s3.y = 45678;
+  s3.z = 0x80000001U;
+  s3.v = -456;
+  s3.w = -1234567;
+  printf("s3 = {x = %u, y = %u, z = %u, v = %d, w = %d}\n\n",
+         s3.x, s3.y, s3.z, s3.v, s3.w);
+}
+
+/* Back to normal */
+
+#pragma pack()
+
+struct s4 { unsigned short x; int y; double z; };
+
+void test4(void)
+{
+  struct s4 s4;
+  printf("sizeof(struct s4) = %d\n", sizeof(struct s4));
+  printf("offsetof(x) = %d, offsetof(y) = %d, offsetof(z) = %d\n",
+         offsetof(s4,x), offsetof(s4,y), offsetof(s4,z));
+  s4.x = 123; s4.y = -456; s4.z = 3.14159;
+  printf("s4 = {x = %d, y = %d, z = %.5f}\n\n", s4.x, s4.y, s4.z);
+}
+
+/* One more, with packed attribute */
+
+struct __attribute((packed)) s5 { unsigned short x; int y; double z; };
+
+void test5(void)
+{
+  struct s5 s5;
+  printf("sizeof(struct s5) = %d\n", sizeof(struct s5));
+  printf("offsetof(x) = %d, offsetof(y) = %d, offsetof(z) = %d\n",
+         offsetof(s5,x), offsetof(s5,y), offsetof(s5,z));
+  s5.x = 123; s5.y = -456; s5.z = 3.14159;
+  printf("s5 = {x = %d, y = %d, z = %.5f}\n\n", s5.x, s5.y, s5.z);
+}
+
+
+/* Test harness */
+
+int main(int argc, char ** argv)
+{
+  test1();
+  test2();
+  test3();
+  test4();
+  test5();
+  return 0;
+}