X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=guile18%2Fqt%2Fmd%2Fi386.h;fp=guile18%2Fqt%2Fmd%2Fi386.h;h=d7feba01034b6112434db86defd916289b33c90b;hb=2fef7b7eb7ac5d7a2ed237bf22a6ec6fe5d946d9;hp=0000000000000000000000000000000000000000;hpb=74daefdc62920b729061cb8711b63890de1f0c17;p=lilypond.git

diff --git a/guile18/qt/md/i386.h b/guile18/qt/md/i386.h
new file mode 100644
index 0000000000..d7feba0103
--- /dev/null
+++ b/guile18/qt/md/i386.h
@@ -0,0 +1,120 @@
+/*
+ * 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_386_H
+#define QT_386_H
+
+typedef unsigned long qt_word_t;
+
+/* Thread's initial stack layout on the i386:
+
+   non-varargs:
+
+   +---
+   | arg[2]	=== `userf' on startup
+   | arg[1]	=== `pt' on startup
+   | arg[0]	=== `pu' on startup
+   +---
+   | ret pc === qt_error
+   +---
+   | ret pc	=== `only' on startup
+   +---
+   | %ebp
+   | %esi
+   | %edi
+   | %ebx				<--- qt_t.sp
+   +---
+
+   When a non-varargs thread is started, it ``returns'' directly to
+   the client's `only' function.
+
+   varargs:
+
+   +---
+   | arg[n-1]
+   | ..
+   | arg[0]
+   +---
+   | ret pc	=== `qt_vstart'
+   +---
+   | %ebp	=== `startup'
+   | %esi	=== `cleanup'
+   | %edi	=== `pt'
+   | %ebx	=== `vuserf'		<--- qt_t.sp
+   +---
+
+   When a varargs thread is started, it ``returns'' to the `qt_vstart'
+   startup code.  The startup code calls the appropriate functions. */
+
+
+/* What to do to start a varargs thread running. */
+QT_API void qt_vstart (void);
+
+
+/* Hold 4 saved regs plus two return pcs (qt_error, qt_start) plus
+   three args. */
+#define QT_STKBASE	(9 * 4)
+
+/* Hold 4 saved regs plus one return pc (qt_vstart). */
+#define QT_VSTKBASE	(5 * 4)
+
+
+/* Stack must be 4-byte aligned. */
+#define QT_STKALIGN	(4)
+
+
+/* Where to place various arguments. */
+#define QT_ONLY_INDEX	(QT_PC)
+#define QT_USER_INDEX	(QT_ARG2)
+#define QT_ARGT_INDEX	(QT_ARG1)
+#define QT_ARGU_INDEX	(QT_ARG0)
+
+#define QT_VSTARTUP_INDEX	(QT_EBP)
+#define QT_VUSERF_INDEX		(QT_EBX)
+#define QT_VCLEANUP_INDEX	(QT_ESI)
+#define QT_VARGT_INDEX		(QT_EDI)
+
+
+#define QT_EBX	0
+#define QT_EDI	1
+#define QT_ESI	2
+#define QT_EBP	3
+#define QT_PC	4
+/* The following are defined only for non-varargs. */
+#define QT_RPC	5
+#define QT_ARG0	6
+#define QT_ARG1	7
+#define QT_ARG2	8
+
+
+/* Stack grows down.  The top of the stack is the first thing to
+   pop off (preincrement, postdecrement). */
+#define QT_GROW_DOWN
+
+QT_API void qt_error (void);
+
+/* Push on the error return address. */
+#define QT_ARGS_MD(sto) \
+  (QT_SPUT (sto, QT_RPC, qt_error))
+
+
+/* When varargs are pushed, allocate space for all the args. */
+#define QT_VARGS_MD0(sto, nbytes) \
+  ((qt_t *)(((char *)(sto)) - QT_STKROUNDUP(nbytes)))
+
+#define QT_VARGS_MD1(sto) \
+  (QT_SPUT (sto, QT_PC, qt_vstart))
+
+#define QT_VARGS_DEFAULT
+
+#endif /* QT_386_H */