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

boxing a null pointer pushes f

cvs
Slava Pestov 2006-01-10 02:17:58 +00:00
parent 573c419211
commit b67c8ceb16
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
native/alien.c
View File

@ -59,9 +59,12 @@ ALIEN* alien(void* ptr)
return alien; return alien;
} }
void box_alien(void* ptr) void box_alien(void *ptr)
{ {
dpush(tag_object(alien(ptr))); if(ptr == NULL)
dpush(F);
else
dpush(tag_object(alien(ptr)));
} }
void primitive_alien(void) void primitive_alien(void)