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.
22 #include "interrupt.h"
24 /* This is implemented in assembly language and called from C: */
25 extern lispobj
call_into_lisp(lispobj fun
, lispobj
*args
, int nargs
)
26 #ifdef LISP_FEATURE_X86_64
27 __attribute__((sysv_abi
))
32 safe_call_into_lisp(lispobj fun
, lispobj
*args
, int nargs
)
34 #ifndef LISP_FEATURE_SB_SAFEPOINT
35 /* SIG_STOP_FOR_GC needs to be enabled before we can call lisp:
36 * otherwise two threads racing here may deadlock: the other will
37 * wait on the GC lock, and the other cannot stop the first
39 check_gc_signals_unblocked_or_lose(0);
41 return call_into_lisp(fun
, args
, nargs
);
44 #ifdef LISP_FEATURE_C_STACK_IS_CONTROL_STACK
45 /* These functions are an interface to the Lisp call-in facility.
46 * Since this is C we can know nothing about the calling environment.
47 * The control stack might be the C stack if called from the monitor
48 * or the Lisp stack if called as a result of an interrupt or maybe
49 * even a separate stack. The args are most likely on that stack but
50 * could be in registers depending on what the compiler likes. So we
51 * copy the args into a portable vector and let the assembly language
52 * call-in function figure it out. */
55 funcall0(lispobj function
)
59 FSHOW((stderr
, "/entering funcall0(0x%lx)\n", (long)function
));
60 return safe_call_into_lisp(function
, args
, 0);
63 funcall1(lispobj function
, lispobj arg0
)
67 return safe_call_into_lisp(function
, args
, 1);
71 funcall2(lispobj function
, lispobj arg0
, lispobj arg1
)
76 return safe_call_into_lisp(function
, args
, 2);
80 funcall3(lispobj function
, lispobj arg0
, lispobj arg1
, lispobj arg2
)
86 return safe_call_into_lisp(function
, args
, 3);
92 funcall0(lispobj function
)
94 lispobj
**stack_pointer
95 = &access_control_stack_pointer(arch_os_get_current_thread());
96 lispobj
*args
= *stack_pointer
;
98 return safe_call_into_lisp(function
, args
, 0);
102 funcall1(lispobj function
, lispobj arg0
)
104 lispobj
**stack_pointer
105 = &access_control_stack_pointer(arch_os_get_current_thread());
106 lispobj
*args
= *stack_pointer
;
111 return safe_call_into_lisp(function
, args
, 1);
115 funcall2(lispobj function
, lispobj arg0
, lispobj arg1
)
117 lispobj
**stack_pointer
118 = &access_control_stack_pointer(arch_os_get_current_thread());
119 lispobj
*args
= *stack_pointer
;
125 return safe_call_into_lisp(function
, args
, 2);
129 funcall3(lispobj function
, lispobj arg0
, lispobj arg1
, lispobj arg2
)
131 lispobj
**stack_pointer
132 = &access_control_stack_pointer(arch_os_get_current_thread());
133 lispobj
*args
= *stack_pointer
;
140 return safe_call_into_lisp(function
, args
, 3);