-void free_let_calloc(let_calloc *alloc) {
- free_num_exp(alloc->nmemb);
- free_num_exp(alloc->size);
- free(alloc);
+void psi_let_calloc_free(struct psi_let_calloc **alloc_ptr)
+{
+ if (*alloc_ptr) {
+ struct psi_let_calloc *alloc = *alloc_ptr;
+
+ *alloc_ptr = NULL;
+ psi_num_exp_free(&alloc->nmemb);
+ psi_num_exp_free(&alloc->size);
+ if (alloc->token) {
+ free(alloc->token);
+ }
+ free(alloc);
+ }
+}
+
+void psi_let_calloc_dump(int fd, 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, ")");