Declared all `glibtop_guile_get_*' functions static.
1998-10-11 Martin Baulig <martin@home-of-linux.org> * guile.awk: Declared all `glibtop_guile_get_*' functions static.
This commit is contained in:
committed by
Martin Baulig
parent
63e37821f3
commit
691ce2b843
@@ -1,5 +1,7 @@
|
||||
1998-10-11 Martin Baulig <martin@home-of-linux.org>
|
||||
|
||||
* guile.awk: Declared all `glibtop_guile_get_*' functions static.
|
||||
|
||||
* Makefile.am (BUILT_SOURCES, CLEANFILES): Added `guile.x'.
|
||||
Added rule to make `guile.x' from `guile.c' using guile-snarf.
|
||||
|
||||
|
@@ -69,7 +69,7 @@ function make_output(line) {
|
||||
output = output" "nr_params_field[feature]", 0, 0, ";
|
||||
output = output"glibtop_guile_get_"feature");\n\n";
|
||||
|
||||
output = output"SCM\nglibtop_guile_get_"feature" ("param_decl")\n{\n";
|
||||
output = output"static SCM\nglibtop_guile_get_"feature" ("param_decl")\n{\n";
|
||||
|
||||
output = output"\tglibtop_"feature" "feature";\n";
|
||||
if (retval != "void")
|
||||
@@ -126,7 +126,6 @@ END {
|
||||
print "void";
|
||||
print "glibtop_boot_guile (void)";
|
||||
print "{";
|
||||
print "fprintf (stderr, \"glibtop_boot_guile ()\\n\");";
|
||||
print "#include \"guile.x\"";
|
||||
print "}";
|
||||
}
|
||||
|
Reference in New Issue
Block a user