diff options
-rw-r--r-- | psi/zmisc3.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/psi/zmisc3.c b/psi/zmisc3.c index 54b304246..37293ff4b 100644 --- a/psi/zmisc3.c +++ b/psi/zmisc3.c @@ -56,6 +56,12 @@ zeqproc(i_ctx_t *i_ctx_p) ref2_t stack[MAX_DEPTH + 1]; ref2_t *top = stack; + if (ref_stack_count(&o_stack) < 2) + return_error(gs_error_stackunderflow); + if (!r_is_array(op - 1) || !r_is_array(op)) { + return_error(gs_error_typecheck); + } + make_array(&stack[0].proc1, 0, 1, op - 1); make_array(&stack[0].proc2, 0, 1, op); for (;;) { |