diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-11-17 22:56:29 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-11-17 23:32:50 +0100 |
commit | 62aea166695302ebcf3c00cd8f0d722af1ff01f9 (patch) | |
tree | ccb18f52cf520b7ad1470f84dec46e83422fd3eb /qt/qt.c | |
parent | 7f991c7d322c9eaf83515de97b61700be8fa7abb (diff) | |
download | guile-62aea166695302ebcf3c00cd8f0d722af1ff01f9.tar.gz |
Remove `qt/'.
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 d3e50bc17..000000000 --- a/qt/qt.c +++ /dev/null @@ -1,48 +0,0 @@ -#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(); -} |