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

From felix@proxima-mt.de:

Browse source 
The module for generating wrappers for the Chicken
Scheme system contains a small bug: the wrappers
should not contain calls to "C_check_for_interrupt",
which may result in an endless loop.


git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4922 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Matthias Köppe 2003-06-24 16:24:02 +00:00
commit 172eeea6c4
1 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Source/Modules/chicken.cxx
View file

@ -528,8 +528,7 @@ CHICKEN::functionWrapper(Node *n)
}
// Check for interrupts
Printv (f->code, "C_check_for_interrupt;\n",
"C_trace(\"",scmname,"\");\n", NIL);
Printv (f->code, "C_trace(\"",scmname,"\");\n", NIL);
Printv(f->def,
#ifndef BINDING
@ -952,8 +951,7 @@ CHICKEN::variableWrapper(Node *n) {
namify(proc_name);
// Check for interrupts
Printv (f->code, "C_check_for_interrupt;\n",
"C_trace(\"",scmname,"\");\n", NIL);
Printv (f->code, "C_trace(\"",scmname,"\");\n", NIL);
closargs = NewString("");
closwrapargs = NewString("");
@ -1224,8 +1222,7 @@ CHICKEN::constantWrapper(Node *n)
namify(proc_name);
// Check for interrupts
Printv (f->code, "C_check_for_interrupt;\n",
"C_trace(\"",scmname,"\");\n", NIL);
Printv (f->code, "C_trace(\"",scmname,"\");\n", NIL);
if (1 || (SwigType_type(t) != T_USER) || (isPointer(t))) {