pe*alloc

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

diff --git a/src/types/let_exp.c b/src/types/let_exp.c
index fa74b16549b4658e690e474f10b7f90f5f704467..97eec8f5afb5452f21bf88d9c417ccf8640ee3ac 100644 (file)
--- a/src/types/let_exp.c
+++ b/src/types/let_exp.c
@@ -42,7 +42,7 @@ struct psi_let_exp *psi_let_exp_init_ex(struct psi_decl_var *var,
 
 struct psi_let_exp *psi_let_exp_init(enum psi_let_exp_kind kind, void *data)
 {
-       struct psi_let_exp *let = calloc(1, sizeof(*let));
+       struct psi_let_exp *let = pecalloc(1, sizeof(*let), 1);
        switch (let->kind = kind) {
        case PSI_LET_NULL:
                assert(!data);