steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/vm/os-macosx-ppc.hpp

81 lines
2.4 KiB
C++
Raw Normal View History

on OS X, rather than define _XOPEN_SOURCE, use the non-deprecated sys/ucontext.h header instead
2009-08-26 17:44:25 -04:00
#include <sys/ucontext.h>
Use C++ namespaces
2009-05-04 02:46:13 -04:00
namespace factor
{
Porting VM to C++
2009-05-02 05:04:19 -04:00
/* Fault handler information. MacOSX version.
Copyright (C) 1993-1999, 2002-2003 Bruno Haible <clisp.org at bruno>
Copyright (C) 2003 Paolo Bonzini <gnu.org at bonzini>
Used under BSD license with permission from Paolo Bonzini and Bruno Haible,
2005-03-10:
http://sourceforge.net/mailarchive/message.php?msg_name=200503102200.32002.bruno%40clisp.org
Modified for Factor by Slava Pestov */
Big VM cleanup - Move forward declarations of 'struct factor_vm' to one place - Rename template parameters from T and TYPE to descriptive names. New convention: CamelCase for template parameters - Change some higher-order functions taking function pointers into templates, and define classes overriding operator(). There's a bit of new boilerplate here but its more consistent than the old mish-mash approaches - Put GC state into a gc_state struct - Use exceptions instead of longjmp for non-local control transfer in GC - In code GC, instead of interleaving code block tracing with copying, add code blocks which need to be revisited to an std::set stored in the gc_state
2009-10-03 09:47:05 -04:00
#define FRAME_RETURN_ADDRESS(frame,vm) *((void **)(vm->frame_successor(frame) + 1) + 2)
Porting VM to C++
2009-05-02 05:04:19 -04:00
#define MACH_EXC_STATE_TYPE ppc_exception_state_t
#define MACH_EXC_STATE_FLAVOR PPC_EXCEPTION_STATE
#define MACH_EXC_STATE_COUNT PPC_EXCEPTION_STATE_COUNT
save the FP status out of the signal context and use it as part of the fp trap factor exception. clear the FP status before continuing after an exception
2009-09-14 00:37:28 -04:00
Send FP trap signals to Factor as a different vm-error type
2009-09-06 09:44:25 -04:00
#define MACH_EXC_INTEGER_DIV EXC_PPC_ZERO_DIVIDE
save the FP status out of the signal context and use it as part of the fp trap factor exception. clear the FP status before continuing after an exception
2009-09-14 00:37:28 -04:00
Porting VM to C++
2009-05-02 05:04:19 -04:00
#define MACH_THREAD_STATE_TYPE ppc_thread_state_t
#define MACH_THREAD_STATE_FLAVOR PPC_THREAD_STATE
#define MACH_THREAD_STATE_COUNT PPC_THREAD_STATE_COUNT
save the FP status out of the signal context and use it as part of the fp trap factor exception. clear the FP status before continuing after an exception
2009-09-14 00:37:28 -04:00
#define MACH_FLOAT_STATE_TYPE ppc_float_state_t
#define MACH_FLOAT_STATE_FLAVOR PPC_FLOAT_STATE
#define MACH_FLOAT_STATE_COUNT PPC_FLOAT_STATE_COUNT
Porting VM to C++
2009-05-02 05:04:19 -04:00
#if __DARWIN_UNIX03
#define MACH_EXC_STATE_FAULT(exc_state) (exc_state)->__dar
#define MACH_STACK_POINTER(thr_state) (thr_state)->__r1
#define MACH_PROGRAM_COUNTER(thr_state) (thr_state)->__srr0
save the FP status out of the signal context and use it as part of the fp trap factor exception. clear the FP status before continuing after an exception
2009-09-14 00:37:28 -04:00
#define UAP_SS(ucontext) &(((ucontext_t *)(ucontext))->uc_mcontext->__ss)
#define UAP_FS(ucontext) &(((ucontext_t *)(ucontext))->uc_mcontext->__fs)
#define FPSCR(float_state) (float_state)->__fpscr
Porting VM to C++
2009-05-02 05:04:19 -04:00
#else
#define MACH_EXC_STATE_FAULT(exc_state) (exc_state)->dar
#define MACH_STACK_POINTER(thr_state) (thr_state)->r1
#define MACH_PROGRAM_COUNTER(thr_state) (thr_state)->srr0
save the FP status out of the signal context and use it as part of the fp trap factor exception. clear the FP status before continuing after an exception
2009-09-14 00:37:28 -04:00
#define UAP_SS(ucontext) &(((ucontext_t *)(ucontext))->uc_mcontext->ss)
#define UAP_FS(ucontext) &(((ucontext_t *)(ucontext))->uc_mcontext->fs)
#define FPSCR(float_state) (float_state)->fpscr
Porting VM to C++
2009-05-02 05:04:19 -04:00
#endif
save the FP status out of the signal context and use it as part of the fp trap factor exception. clear the FP status before continuing after an exception
2009-09-14 00:37:28 -04:00
#define UAP_PROGRAM_COUNTER(ucontext) \
MACH_PROGRAM_COUNTER(UAP_SS(ucontext))
inline static unsigned int mach_fpu_status(ppc_float_state_t *float_state)
{
vm: fix indentation in Joe's changes
2009-09-14 04:09:03 -04:00
return FPSCR(float_state);
save the FP status out of the signal context and use it as part of the fp trap factor exception. clear the FP status before continuing after an exception
2009-09-14 00:37:28 -04:00
}
inline static unsigned int uap_fpu_status(void *uap)
{
vm: fix indentation in Joe's changes
2009-09-14 04:09:03 -04:00
return mach_fpu_status(UAP_FS(uap));
save the FP status out of the signal context and use it as part of the fp trap factor exception. clear the FP status before continuing after an exception
2009-09-14 00:37:28 -04:00
}
vm: fix compilation
2009-10-22 06:38:02 -04:00
template<typename Type> Type align_stack_pointer(Type sp)
Porting VM to C++
2009-05-02 05:04:19 -04:00
{
vm: fix indentation in Joe's changes
2009-09-14 04:09:03 -04:00
return sp;
save the FP status out of the signal context and use it as part of the fp trap factor exception. clear the FP status before continuing after an exception
2009-09-14 00:37:28 -04:00
}
inline static void mach_clear_fpu_status(ppc_float_state_t *float_state)
{
missed a few PPC status bits that needed clearing
2009-09-14 16:17:36 -04:00
FPSCR(float_state) &= 0x0007f8ff;
save the FP status out of the signal context and use it as part of the fp trap factor exception. clear the FP status before continuing after an exception
2009-09-14 00:37:28 -04:00
}
inline static void uap_clear_fpu_status(void *uap)
{
vm: fix indentation in Joe's changes
2009-09-14 04:09:03 -04:00
mach_clear_fpu_status(UAP_FS(uap));
Porting VM to C++
2009-05-02 05:04:19 -04:00
}
Use C++ namespaces
2009-05-04 02:46:13 -04:00
}