pe*alloc

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

diff --git a/src/types/let_stmt.c b/src/types/let_stmt.c
index b85f0cedb3f2bf415544e68b2d0131ffdd70aaeb..c64856b121da7b6d8858a3a3a28018b7843be2ab 100644 (file)
--- a/src/types/let_stmt.c
+++ b/src/types/let_stmt.c
@@ -28,7 +28,7 @@
 
 struct psi_let_stmt *psi_let_stmt_init(struct psi_let_exp *exp)
 {
-       struct psi_let_stmt *let = calloc(1, sizeof(*let));
+       struct psi_let_stmt *let = pecalloc(1, sizeof(*let), 1);
        let->exp = exp;
 
        return let;