diff src/file-coding.c @ 1726:a8d8f419b459

[xemacs-hg @ 2003-09-30 15:26:34 by james] Add type information to xfree to avoid alias creation.
author james
date Tue, 30 Sep 2003 15:27:01 +0000
parents 210683f31426
children 34ca43a57692
line wrap: on
line diff
--- a/src/file-coding.c	Mon Sep 29 21:53:04 2003 +0000
+++ b/src/file-coding.c	Tue Sep 30 15:27:01 2003 +0000
@@ -1144,7 +1144,7 @@
 							  (name_or_existing))),
 			      ++coding_system_tick);
       name_or_existing = intern_int (newname);
-      xfree (newname);
+      xfree (newname, Ibyte *);
       
       if (UNBOUNDP (description))
 	{
@@ -1153,12 +1153,12 @@
 	      (NULL, "For Internal Use (%s)",
 	       XSTRING_DATA (Fsymbol_name (name_or_existing)));
 	  description = build_intstring (newname);
-	  xfree (newname);
+	  xfree (newname, Ibyte *);
 	}
 
       newname = emacs_sprintf_malloc (NULL, "Int%d", coding_system_tick);
       defmnem = build_intstring (newname);
-      xfree (newname);
+      xfree (newname, Ibyte *);
     }
   else
     CHECK_SYMBOL (name_or_existing);
@@ -1262,7 +1262,7 @@
 	     ++coding_system_tick);
 	Lisp_Object newnamesym = intern_int (newname);
 	Lisp_Object copied = Fcopy_coding_system (csobj, newnamesym);
-	xfree (newname);
+	xfree (newname, Ibyte *);
 	
 	XCODING_SYSTEM_CANONICAL (csobj) =
 	  make_internal_coding_system
@@ -2251,7 +2251,7 @@
   MAYBE_XCODESYSMETH (str->codesys, finalize_coding_stream, (str));
   if (str->data)
     {
-      xfree (str->data);
+      xfree (str->data, void *);
       str->data = 0;
     }
   str->finalized = 1;
@@ -2310,7 +2310,7 @@
   
   if (str->data)
     {
-      xfree (str->data);
+      xfree (str->data, void *);
       str->data = 0;
     }
   if (XCODING_SYSTEM_METHODS (str->codesys)->coding_data_size)
@@ -2814,7 +2814,7 @@
 	  for (i = 0; i < data->lstream_count; i++)
 	    Lstream_delete (XLSTREAM ((data->lstreams)[i]));
 	}
-      xfree (data->lstreams);
+      xfree (data->lstreams, Lisp_Object *);
     }
 }
 
@@ -2828,7 +2828,7 @@
 chain_finalize (Lisp_Object c)
 {
   if (XCODING_SYSTEM_CHAIN_CHAIN (c))
-    xfree (XCODING_SYSTEM_CHAIN_CHAIN (c));
+    xfree (XCODING_SYSTEM_CHAIN_CHAIN (c), Lisp_Object *);
 }
 
 static int
@@ -3442,7 +3442,7 @@
 	  (st);
     }
 
-  xfree (st);
+  xfree (st, struct detection_state *);
 }
 
 static int