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

remove unused code in "foreign.c"

Browse Source
This commit is contained in:
Matthew Flatt 2017-07-07 06:24:22 -06:00
parent cca6db4ff0
commit a22a3852c6
2 changed files with 0 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
racket/src/foreign/foreign.c
View File

@ -3226,27 +3226,6 @@ static Scheme_Object *foreign_make_sized_byte_string(int argc, Scheme_Object *ar
}
#undef MYNAME
/* *** Calling Racket code while the GC is working leads to subtle bugs, so
*** this is implemented now in Racket using will executors. */
/* internal: apply Scheme finalizer */
void do_scm_finalizer(void *p, void *finalizer)
{
Scheme_Object *f = (Scheme_Object*)finalizer;
if (!SCHEME_FALSEP(f)) _scheme_apply(f, 1, (Scheme_Object**)(void*)(&p));
}
void do_ptr_finalizer(void *p, void *finalizer)
{
Scheme_Object *f = (Scheme_Object*)finalizer;
Scheme_Object *ptr;
if (p == NULL) return;
ptr = scheme_make_cptr(p,NULL);
if (!SCHEME_FALSEP(f)) _scheme_apply(f, 1, (Scheme_Object**)(&ptr));
/* don't leave dangling references! */
SCHEME_CPTR_VAL(ptr) = NULL;
ptr = NULL;
}
/*****************************************************************************/
/* FFI named locks */

21
racket/src/foreign/foreign.rktc
View File

@ -2390,27 +2390,6 @@ void scheme_foreign_ptr_set(int argc, Scheme_Object **argv)
len, 0);
}
/* *** Calling Racket code while the GC is working leads to subtle bugs, so
*** this is implemented now in Racket using will executors. */
/* internal: apply Scheme finalizer */
void do_scm_finalizer(void *p, void *finalizer)
{
Scheme_Object *f = (Scheme_Object*)finalizer;
if (!SCHEME_FALSEP(f)) _scheme_apply(f, 1, (Scheme_Object**)(void*)(&p));
}
void do_ptr_finalizer(void *p, void *finalizer)
{
Scheme_Object *f = (Scheme_Object*)finalizer;
Scheme_Object *ptr;
if (p == NULL) return;
ptr = scheme_make_cptr(p,NULL);
if (!SCHEME_FALSEP(f)) _scheme_apply(f, 1, (Scheme_Object**)(&ptr));
/* don't leave dangling references! */
SCHEME_CPTR_VAL(ptr) = NULL;
ptr = NULL;
}
/*****************************************************************************/
/* FFI named locks */