#ifdef out debugging statement.
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@9011 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
d1b3949aba
commit
4dff31857a
1 changed files with 3 additions and 1 deletions
|
|
@ -2396,8 +2396,10 @@ int ALLEGROCL :: emit_defun(Node *n, File *f_cl) {
|
||||||
|
|
||||||
// String *lisptype=get_lisp_type(argtype, argname);
|
// String *lisptype=get_lisp_type(argtype, argname);
|
||||||
String *lisptype=get_lisp_type(Getattr(p,"type"), Getattr(p,"name"));
|
String *lisptype=get_lisp_type(Getattr(p,"type"), Getattr(p,"name"));
|
||||||
|
#ifdef ALLEGROCL_DEBUG
|
||||||
Printf(stderr,"lisptype of '%s' '%s' = '%s'\n", argtype, Getattr(p,"name"), lisptype);
|
Printf(stderr,"lisptype of '%s' '%s' = '%s'\n", argtype, Getattr(p,"name"), lisptype);
|
||||||
|
#endif
|
||||||
|
|
||||||
// while we're walking the parameters, generating LIN
|
// while we're walking the parameters, generating LIN
|
||||||
// wrapper code...
|
// wrapper code...
|
||||||
Setattr(p,"lname",NewStringf("SWIG_arg%d", largnum));
|
Setattr(p,"lname",NewStringf("SWIG_arg%d", largnum));
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue