pe*alloc

[m6w6/ext-psi] / src / types / let_calloc.c

diff --git a/src/types/let_calloc.c b/src/types/let_calloc.c
index e14ef69c2690eb5df6e3fbeb6c769e1172fa96e6..152e5c822b4c0bc83f488cd326ced141f543c621 100644 (file)
--- a/src/types/let_calloc.c
+++ b/src/types/let_calloc.c
@@ -29,7 +29,7 @@
 struct psi_let_calloc *psi_let_calloc_init(struct psi_num_exp *nmemb,
                struct psi_num_exp *size)
 {
-       struct psi_let_calloc *alloc = calloc(1, sizeof(*alloc));
+       struct psi_let_calloc *alloc = pecalloc(1, sizeof(*alloc), 1);
 
        alloc->nmemb = nmemb;
        alloc->size = size;
@@ -45,9 +45,7 @@ void psi_let_calloc_free(struct psi_let_calloc **alloc_ptr)
                *alloc_ptr = NULL;
                psi_num_exp_free(&alloc->nmemb);
                psi_num_exp_free(&alloc->size);
-               if (alloc->token) {
-                       free(alloc->token);
-               }
+               psi_token_free(&alloc->token);
                free(alloc);
        }
 }