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

fix scheme_extract_pointer to handle offsets

Browse Source 
And not handling offsets causes `register-process-global`
to work in correctly, for example.
This commit is contained in:
Matthew Flatt 2018-01-03 17:55:34 -07:00
parent 3d74bab8ff
commit 00d3ec2f9c
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1707,7 +1707,7 @@ static Scheme_Object *foreign_cpointer_gcable_p(int argc, Scheme_Object *argv[])
#undef MYNAME
void *scheme_extract_pointer(Scheme_Object *v) {
return SCHEME_FFIANYPTR_VAL(v);
return SCHEME_FFIANYPTR_OFFSETVAL(v);
}
/*****************************************************************************/

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

@ -1474,7 +1474,7 @@ void scheme_set_cpointer_tag(Scheme_Object *ptr, Scheme_Object *val)
}
void *scheme_extract_pointer(Scheme_Object *v) {
return SCHEME_FFIANYPTR_VAL(v);
return SCHEME_FFIANYPTR_OFFSETVAL(v);
}
/*****************************************************************************/