-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);
+ psi_token_free(&alloc->token);
+ free(alloc);
+ }
+}
+
+void psi_let_calloc_dump(struct psi_dump *dump, struct psi_let_calloc *alloc)
+{
+ PSI_DUMP(dump, "calloc(");
+ psi_num_exp_dump(dump, alloc->nmemb);
+ PSI_DUMP(dump, ", ");
+ psi_num_exp_dump(dump, alloc->size);
+ PSI_DUMP(dump, ")");