diff options
| author | Martin Baulig <martin@home-of-linux.org> | 1999-10-24 20:04:37 +0000 |
|---|---|---|
| committer | Martin Baulig <martin@src.gnome.org> | 1999-10-24 20:04:37 +0000 |
| commit | 507f171b631f7b469d6f77f3837ea3e742e74b13 (patch) | |
| tree | cf6ebe1f758a622854c6187572678f9cfa470521 /sysdeps | |
| parent | 1dadfb6d15d2b71366f907c5449db82d0a576e81 (diff) | |
| download | libgtop-507f171b631f7b469d6f77f3837ea3e742e74b13.tar.gz | |
Use `retval' for the default retval.
1999-10-24 Martin Baulig <martin@home-of-linux.org>
* features.def: Use `retval' for the default retval.
* include/glibtop/command.h (glibtop_command_h): Added
`int *retval_ptr' parameter to return the retval from the
sysdeps functions.
Diffstat (limited to 'sysdeps')
| -rw-r--r-- | sysdeps/guile/guile.pl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/sysdeps/guile/guile.pl b/sysdeps/guile/guile.pl index 7a272ebc..a5efefe0 100644 --- a/sysdeps/guile/guile.pl +++ b/sysdeps/guile/guile.pl @@ -81,6 +81,10 @@ sub make_output { $total_nr_params = 0; + if ($retval eq 'retval') { + $retval = 'int'; + } + if ($param_def eq 'string') { $call_param = ', gh_scm2newstr( ' . $line_fields[5] . ', NULL)'; $param_decl = 'SCM ' . $line_fields[5]; |