mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 11:50:28 +02:00
130 lines
3.3 KiB
C
130 lines
3.3 KiB
C
/*
|
|
* QuickThreads -- Threads-building toolkit.
|
|
* Copyright (c) 1993 by David Keppel
|
|
*
|
|
* Permission to use, copy, modify and distribute this software and
|
|
* its documentation for any purpose and without fee is hereby
|
|
* granted, provided that the above copyright notice and this notice
|
|
* appear in all copies. This software is provided as a
|
|
* proof-of-concept and for demonstration purposes; there is no
|
|
* representation about the suitability of this software for any
|
|
* purpose.
|
|
*/
|
|
|
|
#ifndef QT_VAX_H
|
|
#define QT_VAX_H
|
|
|
|
typedef unsigned long qt_word_t;
|
|
|
|
/* Thread's initial stack layout on the VAX:
|
|
|
|
non-varargs:
|
|
|
|
+---
|
|
| arg[2] === `userf' on startup
|
|
| arg[1] === `pt' on startup
|
|
| arg[0] === `pu' on startup
|
|
| ... === `only' on startup.
|
|
+---
|
|
| ret pc === `qt_start' on startup
|
|
| fp === 0 on startup
|
|
| ap === 0 on startup
|
|
| <mask>
|
|
| 0 (handler) <--- qt_t.sp
|
|
+---
|
|
|
|
When a non-varargs thread is started, it ``returns'' to the start
|
|
routine, which calls the client's `only' function.
|
|
|
|
The varargs case is clearly bad code. The various values should be
|
|
stored in a save area and snarfed in to callee-save registers on
|
|
startup. However, it's too painful to figure out the register
|
|
mask (right now), so do it the slow way.
|
|
|
|
+---
|
|
| arg[n-1]
|
|
| ..
|
|
| arg[0]
|
|
| nargs
|
|
+---
|
|
| === `cleanup'
|
|
| === `vuserf'
|
|
| === `startup'
|
|
| === `pt'
|
|
+---
|
|
| ret pc === `qt_start' on startup
|
|
| fp === 0 on startup
|
|
| ap === 0 on startup
|
|
| <mask>
|
|
| 0 (handler) <--- qt_t.sp
|
|
+---
|
|
|
|
When a varargs thread is started, it ``returns'' to the `qt_vstart'
|
|
startup code. The startup code pops all the extra arguments, then
|
|
calls the appropriate functions. */
|
|
|
|
|
|
/* What to do to start a thread running. */
|
|
extern void qt_start (void);
|
|
extern void qt_vstart (void);
|
|
|
|
|
|
/* Initial call frame for non-varargs and varargs cases. */
|
|
#define QT_STKBASE (10 * 4)
|
|
#define QT_VSTKBASE (9 * 4)
|
|
|
|
|
|
/* Stack "must be" 4-byte aligned. (Actually, no, but it's
|
|
easiest and probably fastest to do so.) */
|
|
|
|
#define QT_STKALIGN (4)
|
|
|
|
|
|
/* Where to place various arguments. */
|
|
#define QT_ONLY_INDEX (5)
|
|
#define QT_USER_INDEX (8)
|
|
#define QT_ARGT_INDEX (7)
|
|
#define QT_ARGU_INDEX (6)
|
|
|
|
#define QT_VSTARTUP_INDEX (6)
|
|
#define QT_VUSERF_INDEX (7)
|
|
#define QT_VCLEANUP_INDEX (8)
|
|
#define QT_VARGT_INDEX (5)
|
|
|
|
|
|
/* Stack grows down. The top of the stack is the first thing to
|
|
pop off (predecrement, postincrement). */
|
|
#define QT_GROW_DOWN
|
|
|
|
|
|
extern void qt_error (void);
|
|
|
|
#define QT_VAX_GMASK_NOREGS (0)
|
|
|
|
/* Push on the error return address, null termination to call chains,
|
|
number of arguments to `only', register save mask (save no
|
|
registers). */
|
|
|
|
#define QT_ARGS_MD(sto) \
|
|
(QT_SPUT (sto, 0, 0), \
|
|
QT_SPUT (sto, 1, QT_VAX_GMASK_NOREGS), \
|
|
QT_SPUT (sto, 2, 0), \
|
|
QT_SPUT (sto, 3, 0), \
|
|
QT_SPUT (sto, 4, qt_start))
|
|
|
|
#define QT_VARGS_MD0(sto, nbytes) \
|
|
(QT_SPUT (sto, (-(nbytes)/4)-1, (nbytes)/4), \
|
|
((char *)(((sto)-4) - QT_STKROUNDUP(nbytes))))
|
|
|
|
#define QT_VARGS_ADJUST(sp) ((char *)sp + 4)
|
|
|
|
#define QT_VARGS_MD1(sto) \
|
|
(QT_SPUT (sto, 0, 0), \
|
|
QT_SPUT (sto, 1, QT_VAX_GMASK_NOREGS), \
|
|
QT_SPUT (sto, 2, 0), \
|
|
QT_SPUT (sto, 3, 0), \
|
|
QT_SPUT (sto, 4, qt_vstart))
|
|
|
|
#define QT_VARGS_DEFAULT
|
|
|
|
#endif /* QT_VAX_H */
|