This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
New C testcases
- From: Alexandre Oliva <aoliva at redhat dot com>
- To: gcc-patches at gcc dot gnu dot org
- Date: 06 Jul 2002 14:20:01 -0300
- Subject: New C testcases
- Organization: GCC Team, Red Hat
These testcases have only exposed bugs in Red Hat-internal code, but I
thought I'd contribute them anyway, so I'm checking them in.
Index: gcc/testsuite/ChangeLog
from Alexandre Oliva <aoliva@redhat.com>
* gcc.c-torture/compile/20020706-1.c: New test.
* gcc.c-torture/compile/20020706-2.c: New test.
Index: gcc/testsuite/gcc.c-torture/compile/20020706-1.c
===================================================================
RCS file: gcc/testsuite/gcc.c-torture/compile/20020706-1.c
diff -N gcc/testsuite/gcc.c-torture/compile/20020706-1.c
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ gcc/testsuite/gcc.c-torture/compile/20020706-1.c 6 Jul 2002 17:19:16 -0000
@@ -0,0 +1,50 @@
+// Contributed by Alexandre Oliva <aoliva@redhat.com>
+// From Red Hat case 106165.
+
+typedef struct s1
+{
+ unsigned short v1;
+ unsigned char *v2;
+} S1;
+
+extern void bar(const struct s1 *const hdb);
+extern unsigned char* foo ();
+
+unsigned int sn;
+S1 *hdb;
+S1 *pb;
+unsigned short len;
+
+unsigned int crashIt()
+{
+ unsigned char *p;
+ unsigned int nsn;
+ unsigned short cnt;
+
+ if (sn != 0) return 1;
+
+ if ((len < 12) || ((p = (((pb->v1) >= 8) ? pb->v2 : foo() )) == 0))
+ return 1;
+
+ nsn = (
+ (((*(unsigned int*)p) & 0x000000ff) << 24) |
+ (((*(unsigned int*)p) & 0x0000ff00) << 8) |
+ (((*(unsigned int*)p) & 0x00ff0000) >> 8) |
+ (((*(unsigned int*)p) & 0xff000000) >> 24) );
+ p += 4;
+
+ cnt = (unsigned short) ((
+ (((*(unsigned int*)p) & 0x000000ff) << 24) |
+ (((*(unsigned int*)p) & 0x0000ff00) << 8) |
+ (((*(unsigned int*)p) & 0x00ff0000) >> 8) |
+ (((*(unsigned int*)p) & 0xff000000) >> 24) ) &
+ 0xffff);
+
+ if ((len != 12 + (cnt * 56)) || (nsn == 0))
+ {
+ bar(hdb);
+ return 1;
+ }
+
+ return 0;
+}
Index: gcc/testsuite/gcc.c-torture/compile/20020706-2.c
===================================================================
RCS file: gcc/testsuite/gcc.c-torture/compile/20020706-2.c
diff -N gcc/testsuite/gcc.c-torture/compile/20020706-2.c
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ gcc/testsuite/gcc.c-torture/compile/20020706-2.c 6 Jul 2002 17:19:16 -0000
@@ -0,0 +1,26 @@
+// Contributed by Alexandre Oliva <aoliva@redhat.com>
+// From Red Hat case 106165.
+
+typedef unsigned short (FUNC_P) (void *, unsigned char *, unsigned short);
+
+void crashIt(int id, FUNC_P *func, unsigned char *funcparm)
+{
+ unsigned char buff[5], reverse[4];
+ unsigned char *bp = buff;
+ unsigned char *rp = reverse;
+ unsigned short int count = 0;
+ unsigned short cnt;
+ while (id > 0)
+ {
+ *rp++ = (unsigned char) (id & 0x7F);
+ id >>= 7;
+ count++;
+ }
+ cnt = count + 1;
+ while ((count--) > 1)
+ {
+ *bp++ = (unsigned char)(*(--rp) | 0x80);
+ }
+ *bp++ = *(--rp);
+ (void)(*func)(funcparm, buff, cnt);
+}
--
Alexandre Oliva Enjoy Guarana', see http://www.ic.unicamp.br/~oliva/
Red Hat GCC Developer aoliva@{cygnus.com, redhat.com}
CS PhD student at IC-Unicamp oliva@{lsd.ic.unicamp.br, gnu.org}
Free Software Evangelist Professional serial bug killer