From d79804694ea86161a93140b65700acbf304527a3 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 26 May 2000 08:19:09 +0000
Subject: Retour � l'emploi de free/malloc/realloc pour �viter de d�pendre de
 libtcl en perl.

---
 generic/OverlapMan.c | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'generic/OverlapMan.c')

diff --git a/generic/OverlapMan.c b/generic/OverlapMan.c
index 4f062fb..20765c6 100644
--- a/generic/OverlapMan.c
+++ b/generic/OverlapMan.c
@@ -211,7 +211,11 @@ AllocW(void	*w,
   
   if (NBzincs == NBalloc_zincs) {
     NBalloc_zincs += NB_ALLOC;
-    wr = (ZINCS *) ZnRealloc((void *) wr, sizeof(ZINCS) * NBalloc_zincs);
+    /*
+     * Don't use ZnRealloc it creates dependencies on
+     * Tcl even if ptk is used instead.
+     */
+    wr = (ZINCS *) realloc((void *) wr, sizeof(ZINCS) * NBalloc_zincs);
   }
 
   for (i = NBzincs-1; i >= pos; i--) {
@@ -305,7 +309,7 @@ OmUnregister(void	*w)
   int	i;
 
   if (FindPosW(w, &i) == TRUE) { 
-    ZnFree(wr[i].infos);
+    free(wr[i].infos);
     memcpy((char *) &wr[i], (char *) &wr[i+1], (NBzincs-i-1)*sizeof(ZINCS));
     NBzincs--;
   }
@@ -420,8 +424,8 @@ PutTrackLoaded(int	iw)
      */ 
     if (wr[iw].NBinfos == wr[iw].NBalloc_infos)	{
       wr[iw].NBalloc_infos += NB_ALLOC;
-      wr[iw].infos = (INFOS *) ZnRealloc((void *) wr[iw].infos,
-					 sizeof(INFOS)*wr[iw].NBalloc_infos);
+      wr[iw].infos = (INFOS *) realloc((void *) wr[iw].infos,
+				       sizeof(INFOS)*wr[iw].NBalloc_infos);
     }
     
     if (pos < wr[iw].NBinfos) {
-- 
cgit v1.1