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

Fix guilescm_ext_test and chicken_ext_test testcases

Browse source
This commit is contained in:
William S Fulton 2013-04-23 22:18:42 +01:00
commit bdf98744b1
2 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Examples/test-suite/chicken/ext_test_external.cxx → Examples/test-suite/chicken/chicken_ext_test_external.cxx
View file

@ -1,4 +1,4 @@
#include <ext_test_wrap_hdr.h> #include <chicken/chicken_ext_test_wrap_hdr.h>
#include <imports_a.h> #include <imports_a.h>
void test_create(C_word,C_word,C_word) C_noret; void test_create(C_word,C_word,C_word) C_noret;
@ -7,16 +7,15 @@ void test_create(C_word argc, C_word closure, C_word continuation) {
swig_type_info *type; swig_type_info *type;
A *newobj; A *newobj;
C_word *known_space = C_alloc(C_SIZEOF_SWIG_POINTER); C_word *known_space = C_alloc(C_SIZEOF_SWIG_POINTER);
C_trace("test-create"); C_trace("test-create");
if (argc!=2) C_bad_argc(argc,2); if (argc!=2) C_bad_argc(argc,2);
newobj = new A(); newobj = new A();
type = SWIG_TypeQuery("A *"); type = SWIG_TypeQuery("A *");
resultobj = SWIG_NewPointerObj(newobj, type, 1); resultobj = SWIG_NewPointerObj(newobj, type, 1);
C_kontinue(continuation, resultobj); C_kontinue(continuation, resultobj);
} }

2
Examples/test-suite/guilescm/ext_test_external.cxx → Examples/test-suite/guilescm/guilescm_ext_test_external.cxx
View file

@ -1,4 +1,4 @@
#include <ext_test_wrap_hdr.h> #include <guilescm_ext_test_wrap_hdr.h>
#include <imports_a.h> #include <imports_a.h>
SCM test_create() SCM test_create()