boxing a null pointer pushes f

2006-01-10 02:17:58 +00:00 · 2006-01-10 02:17:58 +00:00 · b67c8ceb16
parent 573c419211
commit b67c8ceb16
1 changed files with 5 additions and 2 deletions
--- a/native/alien.c
+++ b/native/alien.c
@ -59,9 +59,12 @@ ALIEN* alien(void* ptr)
 	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)