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

fix make_external_cptr() to set is-external flag

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-21 13:12:48 -06:00
parent 3c0039cd3a
commit 3f7343fdc7
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -526,6 +526,7 @@ Scheme_Object *scheme_make_external_cptr(GC_CAN_IGNORE void *cptr, Scheme_Object
{
Scheme_Object *o;
o = scheme_make_cptr(NULL, typetag);
SCHEME_CPTR_FLAGS(o) |= 1;
SCHEME_CPTR_VAL(o) = cptr;
return o;
}
@ -547,6 +548,7 @@ Scheme_Object *scheme_make_offset_external_cptr(GC_CAN_IGNORE void *cptr, long o
{
Scheme_Object *o;
o = scheme_make_offset_cptr(NULL, offset, typetag);
SCHEME_CPTR_FLAGS(o) |= 1;
SCHEME_CPTR_VAL(o) = cptr;
return o;
}