diff options
author | lecoanet | 2000-05-26 08:19:09 +0000 |
---|---|---|
committer | lecoanet | 2000-05-26 08:19:09 +0000 |
commit | d79804694ea86161a93140b65700acbf304527a3 (patch) | |
tree | afcd257e8add5cf103956cfa019148aa416b43da | |
parent | 7461fa650430858e53c2bbaf0f18912b6b376694 (diff) | |
download | tkzinc-d79804694ea86161a93140b65700acbf304527a3.zip tkzinc-d79804694ea86161a93140b65700acbf304527a3.tar.gz tkzinc-d79804694ea86161a93140b65700acbf304527a3.tar.bz2 tkzinc-d79804694ea86161a93140b65700acbf304527a3.tar.xz |
Retour � l'emploi de free/malloc/realloc pour �viter de d�pendre
de libtcl en perl.
-rw-r--r-- | generic/OverlapMan.c | 12 |
1 files changed, 8 insertions, 4 deletions
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) { |