Compiles but doesn't run for irix
[charm.git] / src / QuickThreads / qt.c
1 #include "copyright.h"
2 #include "qt.h"
3
4 #ifdef QT_VARGS_DEFAULT
5
6 /* If the stack grows down, `vargs' is a pointer to the lowest
7    address in the block of arguments.  If the stack grows up, it is a
8    pointer to the highest address in the block. */
9
10   qt_t *
11 qt_vargs (qt_t *sp, int nbytes, void *vargs,
12           void *pt, qt_startup_t *startup,
13           qt_vuserf_t *vuserf, qt_cleanup_t *cleanup)
14 {
15   int i;
16
17   sp = QT_VARGS_MD0 (sp, nbytes);
18 #ifdef QT_GROW_UP
19     for (i=nbytes/sizeof(qt_word_t); i>0; --i) {
20       QT_SPUT (QT_VARGS_ADJUST(sp), i, ((qt_word_t *)vargs)[-i]);
21     }
22 #else
23     for (i=nbytes/sizeof(qt_word_t); i>0; --i) {
24       QT_SPUT (QT_VARGS_ADJUST(sp), i-1, ((qt_word_t *)vargs)[i-1]);
25     }
26 #endif
27
28   QT_VARGS_MD1 (QT_VADJ(sp));
29   QT_SPUT (QT_VADJ(sp), QT_VARGT_INDEX, pt);
30   QT_SPUT (QT_VADJ(sp), QT_VSTARTUP_INDEX, startup);
31   QT_SPUT (QT_VADJ(sp), QT_VUSERF_INDEX, vuserf);
32   QT_SPUT (QT_VADJ(sp), QT_VCLEANUP_INDEX, cleanup);
33   return ((qt_t *)QT_VADJ(sp));
34 }
35 #endif /* def QT_VARGS_DEFAULT */
36
37 void qt_null (void)
38 {
39 }
40
41 void _qt_null (void)
42 {
43 }
44
45 void qt_error (void)
46 {
47   extern void abort(void);
48   abort();
49 }
50
51 void _qt_error (void)
52 {
53   extern void abort(void);
54   abort();
55 }