From 8628f1a294e9c74856885dbd2d2a4f23a94b4202 Mon Sep 17 00:00:00 2001
From: Robin Watts <Robin.Watts@artifex.com>
Date: Fri, 10 Mar 2023 15:17:36 +0000
Subject: Update -Z! output to include error returns.

This makes it easier to see which exact interpreter function
is throwing an error.
---
 psi/interp.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/psi/interp.c b/psi/interp.c
index b577f129c..513e667da 100644
--- a/psi/interp.c
+++ b/psi/interp.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 2001-2021 Artifex Software, Inc.
+/* Copyright (C) 2001-2023 Artifex Software, Inc.
    All Rights Reserved.
 
    This software is provided AS-IS with no warranty, either express or
@@ -102,6 +102,8 @@ do_call_operator_verbose(op_proc_t op_proc, i_ctx_t *i_ctx_p)
             op_get_name_string(op_proc));
 #endif
     code = do_call_operator(op_proc, i_ctx_p);
+    if (code < 0)
+        if_debug1m('!', imemory, "[!]   error: %d\n", code);
 #if defined(SHOW_STACK_DEPTHS)
     if_debug2m('!', imemory, "[!][es=%d os=%d]\n",
             esp-i_ctx_p->exec_stack.stack.bot,
-- 
cgit v1.2.1