From 1e65b60e4b8fed036ebfd6b2912fa9346f31d095 Mon Sep 17 00:00:00 2001
From: richard <richard@72102866-910b-0410-8b05-ffd578937521>
Date: Thu, 13 Aug 1998 20:36:42 +0000
Subject: [PATCH] Untested config file!

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@2924 72102866-910b-0410-8b05-ffd578937521
---
 Source/mframe/hppa/generic | 41 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 Source/mframe/hppa/generic

diff --git a/Source/mframe/hppa/generic b/Source/mframe/hppa/generic
new file mode 100644
index 000000000..677f3b76d
--- /dev/null
+++ b/Source/mframe/hppa/generic
@@ -0,0 +1,41 @@
+
+#define	MFRAME_STACK_STRUCT	1
+#define	MFRAME_STRUCT_BYREF	1
+#define MFRAME_SMALL_STRUCT	8
+#define MFRAME_ARGS_SIZE	56
+#define MFRAME_RESULT_SIZE	16
+
+#define MFRAME_GET_STRUCT_ADDR(ARGS, TYPES) \
+    ((*(TYPES)==_C_STRUCT_B || *(TYPES)==_C_UNION_B || *(TYPES)==_C_ARY_B) ? \
+	  **(void***)(ARGS) : (void*)0)
+
+#define MFRAME_SET_STRUCT_ADDR(ARGS, TYPES, ADDR) \
+    ({if (*(TYPES)==_C_STRUCT_B || *(TYPES)==_C_UNION_B || *(TYPES)==_C_ARY_B) \
+	  **(void***)(ARGS) = (ADDR);})
+
+#define MFRAME_ARGS int
+
+#define MFRAME_INIT_ARGS(CUM, RTYPE)	\
+    ((CUM) = (*(RTYPE)==_C_STRUCT_B || *(RTYPE)==_C_UNION_B || \
+	*(RTYPE)==_C_ARY_B) ? sizeof(void*) : 0)
+
+#define MFRAME_ARG_ENCODING(CUM, TYPE, STACK, DEST) \
+    ({  \
+	const char* type = (TYPE); \
+	int align = objc_alignof_type(type); \
+	int size = objc_sizeof_type(type); \
+\
+	(CUM) = ROUND((CUM), align); \
+	(TYPE) = objc_skip_typespec(type); \
+	sprintf((DEST), "%.*s%d", (TYPE)-type, type, (CUM)); \
+	if (*(TYPE) == '+') (TYPE)++; \
+	while (isdigit(*(TYPE))) (TYPE)++; \
+	(DEST)=&(DEST)[strlen(DEST)]; \
+        if ((*type==_C_STRUCT_B || *type==_C_UNION_B || *type==_C_ARY_B)) \
+          (STACK) = (CUM) + ROUND(size, align); \
+        else \
+	  (STACK) = (CUM) + size; \
+        ((((CUM) & 01) && ((size+3)/4) > 1) && (CUM)++); \
+        (CUM) += ((size+3)/4); \
+	})
+