suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

try to fix build for OS X variant

Browse Source 
svn: r18436
This commit is contained in:
Matthew Flatt 2010-03-02 21:44:52 +00:00
parent a6214b7731
commit af22da2e1e
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/gc/include/private/gc_priv.h
View File

@ -414,7 +414,7 @@ extern GC_warn_proc GC_current_warn_proc;
|| defined (HAS_PPC_THREAD_STATE64___R0) \
|| defined (HAS_X86_THREAD_STATE32___EAX) \
|| defined (HAS_X86_THREAD_STATE64___RAX) \
|| defined (__DARWIN_UNIX03)
|| __DARWIN_UNIX03
# define THREAD_FLD(x) __ ## x
# else
# define THREAD_FLD(x) x

8
src/mzscheme/gc2/vm_osx.c
View File

@ -35,6 +35,12 @@ static int designate_modified(void *p);
int designate_modified(void *p);
#endif
#if __DARWIN_UNIX03
# define THREAD_FLD(x) __ ## x
#else
# define THREAD_FLD(x) x
#endif
#if defined(MZ_USE_PLACES) && defined (MZ_PRECISE_GC)
typedef struct OSXThreadData {
struct OSXThreadData *next;
@ -283,7 +289,7 @@ kern_return_t GC_catch_exception_raise(mach_port_t port,
mach_msg_type_number_t exc_state_count = x86_EXCEPTION_STATE64_COUNT;
(void)thread_get_state(thread_port, x86_EXCEPTION_STATE64, (natural_t*)&exc_state,
&exc_state_count);
p = (void *)exc_state.__faultvaddr;
p = (void *)exc_state. THREAD_FLD(faultvaddr);
#endif
#if defined(MZ_USE_PLACES) && defined (MZ_PRECISE_GC)