diff options
author | cvs2svn <admin@example.com> | 1996-10-14 00:58:56 +0000 |
---|---|---|
committer | cvs2svn <admin@example.com> | 1996-10-14 00:58:56 +0000 |
commit | 78d469e4221478f0c79f67fef1d5aa98f2c96f47 (patch) | |
tree | fcf35814ba17653b9b8d16e99af99ea5b39bba5e /qt/qt.c | |
parent | 0682f7ab1dfa23adbf85435d5884b0ec91956a53 (diff) | |
parent | 0f2d19dd46f83f41177f61d585732b32a866d613 (diff) | |
download | guile-78d469e4221478f0c79f67fef1d5aa98f2c96f47.tar.gz |
This commit was manufactured by cvs2svn to create tagpre_vollmer_scm_p
'pre_vollmer_scm_p'.
Diffstat (limited to 'qt/qt.c')
-rw-r--r-- | qt/qt.c | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/qt/qt.c b/qt/qt.c deleted file mode 100644 index 1e406d24c..000000000 --- a/qt/qt.c +++ /dev/null @@ -1,48 +0,0 @@ -#include "copyright.h" -#include "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(); -} |