static memory for let_calloc

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

diff --git a/src/types/let_exp.c b/src/types/let_exp.c
index 4600abfe37568ebce796de9e4a4dbc339d5695a1..bb9cb90a9440368fb00b96a98915ee85430d99a7 100644 (file)
--- a/src/types/let_exp.c
+++ b/src/types/let_exp.c
@@ -250,8 +250,13 @@ void *psi_let_exp_exec(struct psi_let_exp *val, struct psi_decl_arg *darg,
                {
                        zend_long n = psi_long_num_exp(val->data.alloc->nmemb, frame, NULL);
                        zend_long s = psi_long_num_exp(val->data.alloc->size, frame, NULL);
-                       void *tmp = *psi_call_frame_push_auto(frame,
-                                       safe_emalloc(n, s, sizeof(void *)));
+                       void *tmp;
+
+                       if (val->data.alloc->static_memory) {
+                               tmp = safe_pemalloc(n, s, sizeof(void *), 1);
+                       } else {
+                               tmp = *psi_call_frame_push_auto(frame, safe_emalloc(n, s, sizeof(void *)));
+                       }
 
                        memset(tmp, 0, n * s + sizeof(void *));
                        frame_sym->temp_val.ptr = tmp;