From 2a86a5de49b23aabfa61b5dde14934d2d7206afe Mon Sep 17 00:00:00 2001 From: Martin Baulig Date: Wed, 12 Jan 2000 22:25:06 +0000 Subject: [PATCH] *** empty log message *** --- lib/lib.pl | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/lib/lib.pl b/lib/lib.pl index 3af22a8e..88be3dfb 100755 --- a/lib/lib.pl +++ b/lib/lib.pl @@ -158,7 +158,16 @@ sub output { } $sysdeps_code = sprintf - ("\tif (!server->_priv)\n\treturn -GLIBTOP_ERROR_NO_BACKEND_OPENED;\n\n"); + ("\tif (!server->_priv) {\n\t\tserver->glibtop_errno = GLIBTOP_ERROR_NO_BACKEND_OPENED;\n"); + if ($line_fields[1] eq 'retval') { + $sysdeps_code .= sprintf + ("\t\treturn -GLIBTOP_ERROR_NO_BACKEND_OPENED;\n"); + } else { + $sysdeps_code .= sprintf + ("\t\tgoto do_return;\n"); + } + $sysdeps_code .= sprintf + ("\t}\n\n"); $sysdeps_code .= sprintf ("\tfor (list = server->_priv->backend_list;\n\t list; list = list->next) {\n\t\tglibtop_backend *backend = list->data;\n\n\t\tif (!backend->info || !backend->info->call_vector)\n\t\t\tcontinue;\n\n\t\tif (backend->info->call_vector->%s) {\n", $feature);