steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

alien-address primitive fix

release
Slava Pestov 2007-09-30 01:46:44 -04:00
parent 4ce651bf08
commit 592886c783
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
vm/alien.c
View File

@ -38,7 +38,7 @@ void *pinned_alien_offset(CELL object)
alien = untag_object(object);
if(alien->expired != F)
general_error(ERROR_EXPIRED,object,F,NULL);
return alien_offset(alien->alien) + alien->displacement;
return pinned_alien_offset(alien->alien) + alien->displacement;
case F_TYPE:
return NULL;
default: