From bd2ebc3983b5bb936d25f345db0e861284b7673e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Mon, 7 Aug 2000 18:02:47 +0200
Subject: [PATCH] apply_low() and struct_apply_svalue() are now inline
functions when compiled with ecl.
Rev: src/interpret.h:1.59
---
src/interpret.h | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/src/interpret.h b/src/interpret.h
index 4094f9691f..23b64f597a 100644
--- a/src/interpret.h
+++ b/src/interpret.h
@@ -5,7 +5,7 @@
\*/
/*
- * $Id: interpret.h,v 1.58 2000/08/03 17:55:50 grubba Exp $
+ * $Id: interpret.h,v 1.59 2000/08/07 16:02:47 grubba Exp $
*/
#ifndef INTERPRET_H
#define INTERPRET_H
@@ -174,11 +174,23 @@ enum apply_type
APPLY_LOW /* arg1 is the object pointer,(int)arg2 the function */
};
+#ifdef __ECL
+static inline void apply_low(struct object *o, ptrdiff_t fun, INT32 args)
+{
+ mega_apply(APPLY_LOW, args, (void*)o, (void*)fun);
+}
+
+static inline void strict_apply_svalue(struct svalue *sval, INT32 args)
+{
+ mega_apply(APPLY_SVALUE, args, (void*)sval, 0);
+}
+#else /* !__ECL */
#define apply_low(O,FUN,ARGS) \
mega_apply(APPLY_LOW, (ARGS), (void*)(O),(void*)(FUN))
#define strict_apply_svalue(SVAL,ARGS) \
mega_apply(APPLY_SVALUE, (ARGS), (void*)(SVAL),0)
+#endif /* __ECL */
#define APPLY_MASTER(FUN,ARGS) \
do{ \
--
GitLab