Clean up RCS ids
[projects/cmucl/cmucl.git] / src / lisp / arch.h
1 /*
2
3  This code was written as part of the CMU Common Lisp project at
4  Carnegie Mellon University, and has been placed in the public domain.
5
6 */
7
8 #ifndef __ARCH_H__
9 #define __ARCH_H__
10
11 #include "os.h"
12 #include "signal.h"
13
14 extern char *arch_init(fpu_mode_t);
15
16 extern void arch_skip_instruction(os_context_t * scp);
17 extern boolean arch_pseudo_atomic_atomic(os_context_t * scp);
18 extern void arch_set_pseudo_atomic_interrupted(os_context_t * scp);
19 extern os_vm_address_t arch_get_bad_addr(HANDLER_ARGS);
20 extern unsigned char *arch_internal_error_arguments(os_context_t * scp);
21 extern unsigned long arch_install_breakpoint(void *pc);
22 extern void arch_remove_breakpoint(void *pc, unsigned long orig_inst);
23 extern void arch_install_interrupt_handlers(void);
24 extern void arch_do_displaced_inst(os_context_t * scp, unsigned long orig_inst);
25 extern lispobj funcall0(lispobj function);
26 extern lispobj funcall1(lispobj function, lispobj arg0);
27 extern lispobj funcall2(lispobj function, lispobj arg0, lispobj arg1);
28 extern lispobj funcall3(lispobj function, lispobj arg0, lispobj arg1,
29                         lispobj arg2);
30
31 extern void arch_make_linkage_entry(long, void *, long);
32 extern long arch_linkage_entry(unsigned long);
33 void arch_make_lazy_linkage(long linkage_entry);
34 long arch_linkage_entry(unsigned long retaddr);
35
36
37 extern void fpu_save(void *);
38 extern void fpu_restore(void *);
39 extern void sse_save(void *);
40 extern void sse_restore(void *);
41 extern void save_fpu_state(void*);
42 extern void restore_fpu_state(void*);
43
44 #if defined(i386) || defined(__x86_64)
45 #include "x86-arch.h"
46 #endif
47
48 #if defined(DARWIN) && defined(__ppc__)
49 #include "ppc-arch.h"
50 #endif
51
52 #if defined(sparc)
53 #include "sparc-arch.h"
54 #endif
55 #endif /* __ARCH_H__ */