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

minor changes to have foreign.c in sync with foreign.ssc

Browse Source 
svn: r12881
This commit is contained in:
Eli Barzilay 2008-12-18 04:03:21 +00:00
parent f830ee6184
commit c71889c705
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/foreign/foreign.ssc
View File

@ -1677,6 +1677,9 @@ static Scheme_Object *do_memop(const char *who, int mode,
len, 0); len, 0);
} }
/* *** Calling Scheme code while the GC is working leads to subtle bugs, so
*** this is implemented now in Scheme using will executors. */
/* internal: apply Scheme finalizer */ /* internal: apply Scheme finalizer */
void do_scm_finalizer(void *p, void *finalizer) void do_scm_finalizer(void *p, void *finalizer)
{ {
@ -1707,9 +1710,6 @@ void do_ptr_finalizer(void *p, void *finalizer)
/* (Only needed in cases where pointer aliases might be created.) */ /* (Only needed in cases where pointer aliases might be created.) */
/* /*
*** Calling Scheme code while the GC is working leads to subtle bugs, so
*** this is implemented now in Scheme using will executors.
{:"(defsymbols pointer)":} {:"(defsymbols pointer)":}
{:"(cdefine register-finalizer 2 3)":} {:"(cdefine register-finalizer 2 3)":}
{ {
@ -1961,7 +1961,7 @@ typedef struct closure_and_cif_struct {
void free_cl_cif_args(void *ignored, void *p) void free_cl_cif_args(void *ignored, void *p)
{ {
/* /*
scheme_warning("Releaseing cl+cif+args %V %V (%d)", scheme_warning("Releasing cl+cif+args %V %V (%d)",
ignored, ignored,
(((closure_and_cif*)p)->data), (((closure_and_cif*)p)->data),
SAME_OBJ(ignored,(((closure_and_cif*)p)->data))); SAME_OBJ(ignored,(((closure_and_cif*)p)->data)));