From: Doug Evans <dje@gnu.org>
Date: Sat, 8 Oct 1994 15:16:09 +0000 (+0000)
Subject: archive.c (__objc_free): New function.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=8184390eea42cd84b59c4902eaa6751566cca85f;p=gcc.git

archive.c (__objc_free): New function.

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

From-SVN: r8243
---

diff --git a/gcc/objc/archive.c b/gcc/objc/archive.c
index f78f7871ecb..f2d5f714e4c 100644
--- a/gcc/objc/archive.c
+++ b/gcc/objc/archive.c
@@ -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 */