Alternative fix for leaks after error in gs_main_init_with_args01()

When memory squeezing gpdl, Julian found leaks in the gpdl
startup of the postscript interpreter when allocations failed
in gs_main_init_with_args01().

Here, we fix the problem by making the psitop.c layer within gpdl
call the appropriate shutdown code when we catch the error. This
moves gpdl to being consistent with other users of the gs_main
layer.

Memento memory squeezing around the point of failure (event 2035)
now shows this to be OK.

  MEMENTO_SQUEEZEAT=2034 ./membin/gpdl -sDEVICE=bit -o /dev/null examples/tiger.eps

1 files changed, 1 insertions, 0 deletions

diff --git a/gpdl/psitop.c b/gpdl/psitop.c
index 937bf9932..9ff50fd75 100644
--- a/gpdl/psitop.c
+++ b/gpdl/psitop.c
@@ -359,6 +359,7 @@ ps_impl_allocate_interp_instance(pl_interp_implementation_t *impl, gs_memory_t *
 
     code = psapi_init_with_args01(psi->psapi_instance, nargs, (char **)gsargs);
     if (code < 0) {
+        (void)psapi_exit(psi->psapi_instance);
         psapi_delete_instance(psi->psapi_instance);
         gs_free_object(mem, psi, "ps_impl_allocate_interp_instance");
     }