mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 11:50:28 +02:00
a059974535
and we don't want that. (INCLUDES): Removed all -I options except for the root source directory and the root build directory. * *.*: Change includes so that they always use the "prefixes" libguile/, qt/, guile-readline/, or libltdl/. (Thanks to Tim Mooney.)
48 lines
1.1 KiB
C
48 lines
1.1 KiB
C
#include "qt/copyright.h"
|
|
#include "qt/qt.h"
|
|
|
|
#ifdef QT_VARGS_DEFAULT
|
|
|
|
/* If the stack grows down, `vargs' is a pointer to the lowest
|
|
address in the block of arguments. If the stack grows up, it is a
|
|
pointer to the highest address in the block. */
|
|
|
|
qt_t *
|
|
qt_vargs (qt_t *sp, int nbytes, void *vargs,
|
|
void *pt, qt_startup_t *startup,
|
|
qt_vuserf_t *vuserf, qt_cleanup_t *cleanup)
|
|
{
|
|
int i;
|
|
|
|
sp = QT_VARGS_MD0 (sp, nbytes);
|
|
#ifdef QT_GROW_UP
|
|
for (i=nbytes/sizeof(qt_word_t); i>0; --i) {
|
|
QT_SPUT (QT_VARGS_ADJUST(sp), i, ((qt_word_t *)vargs)[-i]);
|
|
}
|
|
#else
|
|
for (i=nbytes/sizeof(qt_word_t); i>0; --i) {
|
|
QT_SPUT (QT_VARGS_ADJUST(sp), i-1, ((qt_word_t *)vargs)[i-1]);
|
|
}
|
|
#endif
|
|
|
|
QT_VARGS_MD1 (QT_VADJ(sp));
|
|
QT_SPUT (QT_VADJ(sp), QT_VARGT_INDEX, pt);
|
|
QT_SPUT (QT_VADJ(sp), QT_VSTARTUP_INDEX, startup);
|
|
QT_SPUT (QT_VADJ(sp), QT_VUSERF_INDEX, vuserf);
|
|
QT_SPUT (QT_VADJ(sp), QT_VCLEANUP_INDEX, cleanup);
|
|
return ((qt_t *)QT_VADJ(sp));
|
|
}
|
|
#endif /* def QT_VARGS_DEFAULT */
|
|
|
|
void
|
|
qt_null (void)
|
|
{
|
|
}
|
|
|
|
void
|
|
qt_error (void)
|
|
{
|
|
extern void abort(void);
|
|
|
|
abort();
|
|
}
|