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

Remove unused function from VM

db4
Slava Pestov 2008-11-27 23:28:38 -06:00
parent a3398f2296
commit cfbd3c679b
2 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
vm/types.c
View File

@ -139,18 +139,6 @@ CELL allot_array_1(CELL obj)
return tag_object(a); return tag_object(a);
} }
CELL allot_array_2(CELL v1, CELL v2)
{
REGISTER_ROOT(v1);
REGISTER_ROOT(v2);
F_ARRAY *a = allot_array_internal(ARRAY_TYPE,2);
UNREGISTER_ROOT(v2);
UNREGISTER_ROOT(v1);
set_array_nth(a,0,v1);
set_array_nth(a,1,v2);
return tag_object(a);
}
CELL allot_array_4(CELL v1, CELL v2, CELL v3, CELL v4) CELL allot_array_4(CELL v1, CELL v2, CELL v3, CELL v4)
{ {
REGISTER_ROOT(v1); REGISTER_ROOT(v1);

1
vm/types.h
View File

@ -109,7 +109,6 @@ F_ARRAY *allot_array(CELL type, CELL capacity, CELL fill);
F_BYTE_ARRAY *allot_byte_array(CELL size); F_BYTE_ARRAY *allot_byte_array(CELL size);
CELL allot_array_1(CELL obj); CELL allot_array_1(CELL obj);
CELL allot_array_2(CELL v1, CELL v2);
CELL allot_array_4(CELL v1, CELL v2, CELL v3, CELL v4); CELL allot_array_4(CELL v1, CELL v2, CELL v3, CELL v4);
void primitive_array(void); void primitive_array(void);