Fix guilescm_ext_test and chicken_ext_test testcases
This commit is contained in:
parent
6e06b50adf
commit
bdf98744b1
2 changed files with 4 additions and 5 deletions
|
|
@ -1,4 +1,4 @@
|
|||
#include <ext_test_wrap_hdr.h>
|
||||
#include <chicken/chicken_ext_test_wrap_hdr.h>
|
||||
#include <imports_a.h>
|
||||
|
||||
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;
|
||||
A *newobj;
|
||||
C_word *known_space = C_alloc(C_SIZEOF_SWIG_POINTER);
|
||||
|
||||
|
||||
C_trace("test-create");
|
||||
if (argc!=2) C_bad_argc(argc,2);
|
||||
|
||||
|
||||
newobj = new A();
|
||||
|
||||
|
||||
type = SWIG_TypeQuery("A *");
|
||||
resultobj = SWIG_NewPointerObj(newobj, type, 1);
|
||||
|
||||
C_kontinue(continuation, resultobj);
|
||||
}
|
||||
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
#include <ext_test_wrap_hdr.h>
|
||||
#include <guilescm_ext_test_wrap_hdr.h>
|
||||
#include <imports_a.h>
|
||||
|
||||
SCM test_create()
|
||||
Loading…
Add table
Add a link
Reference in a new issue