X-Git-Url: https://git.m6w6.name/?a=blobdiff_plain;f=src%2Ftypes%2Flet_calloc.c;h=46badc08d1d0bc77911fc000a216c032a2a04ea0;hb=d4bd55e7d9b1cf63cd6fdc96b70010a0c2aca963;hp=e14ef69c2690eb5df6e3fbeb6c769e1172fa96e6;hpb=9bcb1df0786a8193d65949c857baaba2f4296e84;p=m6w6%2Fext-psi

diff --git a/src/types/let_calloc.c b/src/types/let_calloc.c
index e14ef69..46badc0 100644
--- 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,18 +45,16 @@ 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);
 	}
 }
 
-void psi_let_calloc_dump(int fd, struct psi_let_calloc *alloc)
+void psi_let_calloc_dump(struct psi_dump *dump, struct psi_let_calloc *alloc)
 {
-	dprintf(fd, "calloc(");
-	psi_num_exp_dump(fd, alloc->nmemb);
-	dprintf(fd, ", ");
-	psi_num_exp_dump(fd, alloc->size);
-	dprintf(fd, ")");
+	PSI_DUMP(dump, "calloc(");
+	psi_num_exp_dump(dump, alloc->nmemb);
+	PSI_DUMP(dump, ", ");
+	psi_num_exp_dump(dump, alloc->size);
+	PSI_DUMP(dump, ")");
 }