src/lisp/arch.h

   1 /*
   2
   3  $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/arch.h,v 1.10 2008/11/12 15:04:24 rtoy Rel $
   4
   5  This code was written as part of the CMU Common Lisp project at
   6  Carnegie Mellon University, and has been placed in the public domain.
   7
   8 */
   9
  10 #ifndef __ARCH_H__
  11 #define __ARCH_H__
  12
  13 #include "os.h"
  14 #include "signal.h"
  15
  16 extern char *arch_init(fpu_mode_t);
  17
  18 extern void arch_skip_instruction(os_context_t * scp);
  19 extern boolean arch_pseudo_atomic_atomic(os_context_t * scp);
  20 extern void arch_set_pseudo_atomic_interrupted(os_context_t * scp);
  21 extern os_vm_address_t arch_get_bad_addr(HANDLER_ARGS);
  22 extern unsigned char *arch_internal_error_arguments(os_context_t * scp);
  23 extern unsigned long arch_install_breakpoint(void *pc);
  24 extern void arch_remove_breakpoint(void *pc, unsigned long orig_inst);
  25 extern void arch_install_interrupt_handlers(void);
  26 extern void arch_do_displaced_inst(os_context_t * scp, unsigned long orig_inst);
  27 extern lispobj funcall0(lispobj function);
  28 extern lispobj funcall1(lispobj function, lispobj arg0);
  29 extern lispobj funcall2(lispobj function, lispobj arg0, lispobj arg1);
  30 extern lispobj funcall3(lispobj function, lispobj arg0, lispobj arg1,
  31                         lispobj arg2);
  32
  33 extern void fpu_save(void *);
  34 extern void fpu_restore(void *);
  35 extern void sse_save(void *);
  36 extern void sse_restore(void *);
  37
  38 extern void arch_make_linkage_entry(long, void *, long);
  39 extern long arch_linkage_entry(unsigned long);
  40 void arch_make_lazy_linkage(long linkage_entry);
  41 long arch_linkage_entry(unsigned long retaddr);
  42
  43 #ifdef i386
  44 extern int arch_support_sse2(void);
  45 #endif
  46
  47 #endif /* __ARCH_H__ */