jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed handling of ignored args.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@722 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Matthias Köppe 2000-08-30 11:19:46 +00:00
commit a1ff4c3c10
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Source/Modules1.1/guile.cxx
View file

@ -230,7 +230,7 @@ GUILE::set_init (char *iname)
void void
GUILE::headers (void) GUILE::headers (void)
{ {
Printf(f_runtime, "/* -*- buffer-read-only: t -*- */\n"); Printf(f_runtime, "/* -*- buffer-read-only: t -*- vi: set ro: */\n");
Swig_banner (f_runtime); Swig_banner (f_runtime);
Printf (f_runtime, "/* Implementation : GUILE */\n\n"); Printf (f_runtime, "/* Implementation : GUILE */\n\n");
@ -368,7 +368,7 @@ get_pointer (char *iname, int parm, SwigType *t,
/* Return true iff T is a pointer type */ /* Return true iff T is a pointer type */
static bool static int
is_a_pointer (SwigType *t) is_a_pointer (SwigType *t)
{ {
return SwigType_ispointer(SwigType_typedef_resolve_all(t)); return SwigType_ispointer(SwigType_typedef_resolve_all(t));
@ -457,6 +457,9 @@ GUILE::create_function (char *name, char *iname, SwigType *d, ParmList *l)
proc_name = NewString(iname); proc_name = NewString(iname);
Replace(proc_name,"_", "-", DOH_REPLACE_ANY); Replace(proc_name,"_", "-", DOH_REPLACE_ANY);
/* Emit locals etc. into f->code; figure out which args to ignore */
emit_args (d, l, f);
/* Now write the wrapper function itself */ /* Now write the wrapper function itself */
Printv(f->def, "static SCM\n", wname," (", 0); Printv(f->def, "static SCM\n", wname," (", 0);
@ -488,7 +491,6 @@ GUILE::create_function (char *name, char *iname, SwigType *d, ParmList *l)
// Declare return variable and arguments // Declare return variable and arguments
emit_args (d, l, f);
int numargs = 0; int numargs = 0;
int numopt = 0; int numopt = 0;