From da4d0a4deb6988882e88b310e21d3280fa24ac61 Mon Sep 17 00:00:00 2001 From: Jeffrey A Law Date: Sun, 16 Aug 1998 00:50:25 +0000 Subject: [PATCH] * gcc.c-torture/compile/980616-1.c: New test. From-SVN: r21760 --- gcc/testsuite/ChangeLog | 2 + .../gcc.c-torture/compile/980816-1.c | 51 +++++++++++++++++++ 2 files changed, 53 insertions(+) create mode 100644 gcc/testsuite/gcc.c-torture/compile/980816-1.c diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 33124596419..6dfde2e258f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,7 @@ Sun Aug 16 01:29:19 1998 Jeffrey A Law (law@cygnus.com) + * gcc.c-torture/compile/980816-1.c: New test. + * gcc.dg/980816-1.c: New test. 1998-08-01 Dave Love diff --git a/gcc/testsuite/gcc.c-torture/compile/980816-1.c b/gcc/testsuite/gcc.c-torture/compile/980816-1.c new file mode 100644 index 00000000000..c56b6c9b92c --- /dev/null +++ b/gcc/testsuite/gcc.c-torture/compile/980816-1.c @@ -0,0 +1,51 @@ +typedef unsigned int size_t; +typedef void *XtPointer; + +typedef struct _WidgetRec *Widget; +typedef struct _WidgetClassRec *WidgetClass; + +extern WidgetClass commandWidgetClass; + +typedef void (*XtCallbackProc)( + Widget , + XtPointer , + XtPointer +); + +extern const char XtStrings[]; + + +typedef struct +{ + char *Name, + *Label; + XtCallbackProc Callback; + XtPointer ClientData; + Widget W; +} DialogButtonType, *DialogButtonTypePtr; + + +Widget AddButtons(Widget Parent, Widget Top, + DialogButtonTypePtr Buttons, size_t Count) +{ + int i; + + for (i = 0; i < Count; i++) + { + if (!Buttons[i].Label) + continue; + Buttons[i].W = XtVaCreateManagedWidget(Buttons[i].Name, + commandWidgetClass, + Parent, + ((char*)&XtStrings[429]) , Buttons[i].Label, + "fromHoriz" , i ? Buttons[i-1].W : ((void *)0) , + "fromVert" , Top, + "resizable" , 1 , + ((void *)0) ); + + XtAddCallback(((char*)&XtStrings[136]), + Buttons[i].Callback, Buttons[i].ClientData); + } + return(Buttons[Count-1].W); +} + -- 2.30.2