archive.c (__objc_free): New function.

* objc/archive.c (__objc_free): New function.
(__objc_finish_read_root_object): Use it.

From-SVN: r8243
This commit is contained in:
Doug Evans 1994-10-08 15:16:09 +00:00
parent a16301244f
commit 8184390eea

View File

@ -1362,6 +1362,12 @@ objc_read_array (TypedStream* stream, const char* type,
return 1;
}
static void
__objc_free (void* p)
{
free (p);
}
static int
__objc_fread(FILE* file, char* data, int len)
{
@ -1446,7 +1452,7 @@ static void __objc_finish_read_root_object(struct objc_typed_stream* stream)
reflist = reflist->tail;
}
}
list_mapcar (free_list, free);
list_mapcar (free_list, __objc_free);
list_free (free_list);
/* empty object reference table */