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

cs: fix cpointer offset handling for C API racket_cpointer_address

Browse Source
This commit is contained in:
Matthew Flatt 2020-10-08 06:48:14 -06:00
parent 3b9afbc2e3
commit 68bb2a6973
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/cs/c/boot.c
View File

@ -309,7 +309,7 @@ iptr racket_cpointer_offset(ptr cptr) {
if (Srecordp(cptr)) {
if (Srecord_type_parent(Srecord_type(cptr)) != Sfalse) {
/* assume that it's a cpointer+offset */
return Sinteger_value(Srecord_uniform_ref(cptr, 1));
return Sinteger_value(Srecord_uniform_ref(cptr, 2));
}
}