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

patch libffi3.3 for PPC Mac OS

Browse Source
This commit is contained in:
Matthew Flatt 2020-11-29 16:04:15 -07:00
parent a940c7a43b
commit b12b3ed49e
2 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/bc/foreign/README
View File

@ -4,6 +4,8 @@ The libffi code is distributed under an LGPL-compatible license.
Changes to the source in this copy:
* Commented out `__attribute__((deprecated))` for `ffi_java_...` to
avoid warnings when compiling libffi itself.
avoid warnings when compiling libffi itself
* Added $CPPFLAGS to use of $CC in "configure.host"
* Added preprocessor conditionals for Go closures in "ffi_darwin.c"

17
racket/src/bc/foreign/libffi/src/powerpc/ffi_darwin.c
View File

@ -909,9 +909,10 @@ ffi_prep_cif_machdep (ffi_cif *cif)
extern void ffi_call_AIX(extended_cif *, long, unsigned, unsigned *,
void (*fn)(void), void (*fn2)(void));
#if FFI_GO_CLOSURES
extern void ffi_call_go_AIX(extended_cif *, long, unsigned, unsigned *,
void (*fn)(void), void (*fn2)(void), void *closure);
#endif
extern void ffi_call_DARWIN(extended_cif *, long, unsigned, unsigned *,
void (*fn)(void), void (*fn2)(void), ffi_type*);
@ -950,6 +951,8 @@ ffi_call (ffi_cif *cif, void (*fn)(void), void *rvalue, void **avalue)
}
}
#if FFI_GO_CLOSURES
void
ffi_call_go (ffi_cif *cif, void (*fn) (void), void *rvalue, void **avalue,
void *closure)
@ -982,6 +985,8 @@ ffi_call_go (ffi_cif *cif, void (*fn) (void), void *rvalue, void **avalue,
}
}
#endif
static void flush_icache(char *);
static void flush_range(char *, int);
@ -1110,6 +1115,8 @@ ffi_prep_closure_loc (ffi_closure* closure,
return FFI_OK;
}
#if FFI_GO_CLOSURES
ffi_status
ffi_prep_go_closure (ffi_go_closure* closure,
ffi_cif* cif,
@ -1134,6 +1141,8 @@ ffi_prep_go_closure (ffi_go_closure* closure,
return FFI_OK;
}
#endif
static void
flush_icache(char *addr)
{
@ -1167,10 +1176,11 @@ typedef union
ffi_type *
ffi_closure_helper_DARWIN (ffi_closure *, void *,
unsigned long *, ffi_dblfl *);
#if FFI_GO_CLOSURES
ffi_type *
ffi_go_closure_helper_DARWIN (ffi_go_closure*, void *,
unsigned long *, ffi_dblfl *);
#endif
/* Basically the trampoline invokes ffi_closure_ASM, and on
entry, r11 holds the address of the closure.
@ -1430,6 +1440,8 @@ ffi_closure_helper_DARWIN (ffi_closure *closure, void *rvalue,
closure->user_data, rvalue, pgr, pfr);
}
#if FFI_GO_CLOSURES
ffi_type *
ffi_go_closure_helper_DARWIN (ffi_go_closure *closure, void *rvalue,
unsigned long *pgr, ffi_dblfl *pfr)
@ -1438,3 +1450,4 @@ ffi_go_closure_helper_DARWIN (ffi_go_closure *closure, void *rvalue,
closure, rvalue, pgr, pfr);
}
#endif