1 /* funcall0 -- funcall3: we can get by with just two sets of these:
2 * for platforms where the control stack is the C-stack, and all others.
6 * This software is part of the SBCL system. See the README file for
9 * This software is derived from the CMU CL system, which was
10 * written at Carnegie Mellon University and released into the
11 * public domain. The software is in the public domain and is
12 * provided with absolutely no warranty. See the COPYING and CREDITS
13 * files for more information.
21 /* This is implemented in assembly language and called from C: */
22 extern lispobj call_into_lisp(lispobj fun, lispobj *args, int nargs);
24 #ifdef LISP_FEATURE_C_STACK_IS_CONTROL_STACK
25 /* These functions are an interface to the Lisp call-in facility.
26 * Since this is C we can know nothing about the calling environment.
27 * The control stack might be the C stack if called from the monitor
28 * or the Lisp stack if called as a result of an interrupt or maybe
29 * even a separate stack. The args are most likely on that stack but
30 * could be in registers depending on what the compiler likes. So we
31 * copy the args into a portable vector and let the assembly language
32 * call-in function figure it out. */
35 funcall0(lispobj function)
39 FSHOW((stderr, "/entering funcall0(0x%lx)\n", (long)function));
40 return call_into_lisp(function, args, 0);
43 funcall1(lispobj function, lispobj arg0)
47 return call_into_lisp(function, args, 1);
51 funcall2(lispobj function, lispobj arg0, lispobj arg1)
56 return call_into_lisp(function, args, 2);
60 funcall3(lispobj function, lispobj arg0, lispobj arg1, lispobj arg2)
66 return call_into_lisp(function, args, 3);
72 funcall0(lispobj function)
74 lispobj *args = current_control_stack_pointer;
76 return call_into_lisp(function, args, 0);
80 funcall1(lispobj function, lispobj arg0)
82 lispobj *args = current_control_stack_pointer;
84 current_control_stack_pointer += 1;
87 return call_into_lisp(function, args, 1);
91 funcall2(lispobj function, lispobj arg0, lispobj arg1)
93 lispobj *args = current_control_stack_pointer;
95 current_control_stack_pointer += 2;
99 return call_into_lisp(function, args, 2);
103 funcall3(lispobj function, lispobj arg0, lispobj arg1, lispobj arg2)
105 lispobj *args = current_control_stack_pointer;
107 current_control_stack_pointer += 3;
112 return call_into_lisp(function, args, 3);