| 
									
										
										
										
											2009-08-26 17:44:25 -04:00
										 |  |  | #include <sys/ucontext.h>
 | 
					
						
							| 
									
										
										
										
											2009-05-04 02:46:13 -04:00
										 |  |  | 
 | 
					
						
							|  |  |  | namespace factor | 
					
						
							|  |  |  | { | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											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 */ | 
					
						
							|  |  |  | #define MACH_EXC_STATE_TYPE i386_exception_state_t
 | 
					
						
							|  |  |  | #define MACH_EXC_STATE_FLAVOR i386_EXCEPTION_STATE
 | 
					
						
							|  |  |  | #define MACH_EXC_STATE_COUNT i386_EXCEPTION_STATE_COUNT
 | 
					
						
							| 
									
										
										
										
											2009-09-14 00:37:28 -04:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2009-09-06 09:44:25 -04:00
										 |  |  | #define MACH_EXC_INTEGER_DIV EXC_I386_DIV
 | 
					
						
							| 
									
										
										
										
											2009-09-14 00:37:28 -04:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2009-05-02 05:04:19 -04:00
										 |  |  | #define MACH_THREAD_STATE_TYPE i386_thread_state_t
 | 
					
						
							|  |  |  | #define MACH_THREAD_STATE_FLAVOR i386_THREAD_STATE
 | 
					
						
							|  |  |  | #define MACH_THREAD_STATE_COUNT i386_THREAD_STATE_COUNT
 | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2009-09-14 00:37:28 -04:00
										 |  |  | #define MACH_FLOAT_STATE_TYPE i386_float_state_t
 | 
					
						
							|  |  |  | #define MACH_FLOAT_STATE_FLAVOR i386_FLOAT_STATE
 | 
					
						
							|  |  |  | #define MACH_FLOAT_STATE_COUNT i386_FLOAT_STATE_COUNT
 | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2009-05-02 05:04:19 -04:00
										 |  |  | #if __DARWIN_UNIX03
 | 
					
						
							|  |  |  | 	#define MACH_EXC_STATE_FAULT(exc_state) (exc_state)->__faultvaddr
 | 
					
						
							|  |  |  | 	#define MACH_STACK_POINTER(thr_state) (thr_state)->__esp
 | 
					
						
							|  |  |  | 	#define MACH_PROGRAM_COUNTER(thr_state) (thr_state)->__eip
 | 
					
						
							| 
									
										
										
										
											2009-09-14 00:37:28 -04:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2010-08-02 20:50:34 -04:00
										 |  |  | 	#define UAP_SS(ucontext) &(((ucontext_t *)(ucontext))->uc_mcontext->__ss)
 | 
					
						
							|  |  |  | 	#define UAP_FS(ucontext) &(((ucontext_t *)(ucontext))->uc_mcontext->__fs)
 | 
					
						
							| 
									
										
										
										
											2009-09-14 00:37:28 -04:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2010-08-02 20:50:34 -04:00
										 |  |  | 	#define MXCSR(float_state) (float_state)->__fpu_mxcsr
 | 
					
						
							|  |  |  | 	#define X87SW(float_state) (float_state)->__fpu_fsw
 | 
					
						
							| 
									
										
										
										
											2009-05-02 05:04:19 -04:00
										 |  |  | #else
 | 
					
						
							|  |  |  | 	#define MACH_EXC_STATE_FAULT(exc_state) (exc_state)->faultvaddr
 | 
					
						
							|  |  |  | 	#define MACH_STACK_POINTER(thr_state) (thr_state)->esp
 | 
					
						
							|  |  |  | 	#define MACH_PROGRAM_COUNTER(thr_state) (thr_state)->eip
 | 
					
						
							| 
									
										
										
										
											2009-09-14 00:37:28 -04:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2010-08-02 20:50:34 -04:00
										 |  |  | 	#define UAP_SS(ucontext) &(((ucontext_t *)(ucontext))->uc_mcontext->ss)
 | 
					
						
							|  |  |  | 	#define UAP_FS(ucontext) &(((ucontext_t *)(ucontext))->uc_mcontext->fs)
 | 
					
						
							| 
									
										
										
										
											2009-09-14 00:37:28 -04:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2010-08-02 20:50:34 -04:00
										 |  |  | 	#define MXCSR(float_state) (float_state)->fpu_mxcsr
 | 
					
						
							|  |  |  | 	#define X87SW(float_state) (float_state)->fpu_fsw
 | 
					
						
							| 
									
										
										
										
											2009-05-02 05:04:19 -04:00
										 |  |  | #endif
 | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2009-09-14 00:37:28 -04:00
										 |  |  | #define UAP_PROGRAM_COUNTER(ucontext) \
 | 
					
						
							| 
									
										
										
										
											2010-08-02 20:50:34 -04:00
										 |  |  | 	MACH_PROGRAM_COUNTER(UAP_SS(ucontext)) | 
					
						
							| 
									
										
										
										
											2009-09-14 00:37:28 -04:00
										 |  |  | 
 | 
					
						
							|  |  |  | inline static unsigned int mach_fpu_status(i386_float_state_t *float_state) | 
					
						
							|  |  |  | { | 
					
						
							| 
									
										
										
										
											2009-09-14 04:09:03 -04:00
										 |  |  | 	unsigned short x87sw; | 
					
						
							|  |  |  | 	memcpy(&x87sw, &X87SW(float_state), sizeof(x87sw)); | 
					
						
							|  |  |  | 	return MXCSR(float_state) | x87sw; | 
					
						
							| 
									
										
										
										
											2009-09-14 00:37:28 -04:00
										 |  |  | } | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | inline static unsigned int uap_fpu_status(void *uap) | 
					
						
							|  |  |  | { | 
					
						
							| 
									
										
										
										
											2009-09-14 04:09:03 -04:00
										 |  |  | 	return mach_fpu_status(UAP_FS(uap)); | 
					
						
							| 
									
										
										
										
											2009-09-14 00:37:28 -04:00
										 |  |  | } | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | inline static void mach_clear_fpu_status(i386_float_state_t *float_state) | 
					
						
							|  |  |  | { | 
					
						
							| 
									
										
										
										
											2010-08-02 20:50:34 -04:00
										 |  |  | 	MXCSR(float_state) &= 0xffffffc0; | 
					
						
							|  |  |  | 	memset(&X87SW(float_state), 0, sizeof(X87SW(float_state))); | 
					
						
							| 
									
										
										
										
											2009-09-14 00:37:28 -04:00
										 |  |  | } | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | inline static void uap_clear_fpu_status(void *uap) | 
					
						
							|  |  |  | { | 
					
						
							| 
									
										
										
										
											2009-09-14 04:09:03 -04:00
										 |  |  | 	mach_clear_fpu_status(UAP_FS(uap)); | 
					
						
							| 
									
										
										
										
											2009-09-14 00:37:28 -04:00
										 |  |  | } | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2009-05-04 02:46:13 -04:00
										 |  |  | } |