From bdf98744b165861f67e325b892d2a65c96a2f8fa Mon Sep 17 00:00:00 2001 From: William S Fulton Date: Tue, 23 Apr 2013 22:18:42 +0100 Subject: [PATCH] Fix guilescm_ext_test and chicken_ext_test testcases --- ...ext_test_external.cxx => chicken_ext_test_external.cxx} | 7 +++---- ...xt_test_external.cxx => guilescm_ext_test_external.cxx} | 2 +- 2 files changed, 4 insertions(+), 5 deletions(-) rename Examples/test-suite/chicken/{ext_test_external.cxx => chicken_ext_test_external.cxx} (90%) rename Examples/test-suite/guilescm/{ext_test_external.cxx => guilescm_ext_test_external.cxx} (90%) diff --git a/Examples/test-suite/chicken/ext_test_external.cxx b/Examples/test-suite/chicken/chicken_ext_test_external.cxx similarity index 90% rename from Examples/test-suite/chicken/ext_test_external.cxx rename to Examples/test-suite/chicken/chicken_ext_test_external.cxx index 338151e88..1dd6a7d53 100644 --- a/Examples/test-suite/chicken/ext_test_external.cxx +++ b/Examples/test-suite/chicken/chicken_ext_test_external.cxx @@ -1,4 +1,4 @@ -#include +#include #include 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); } - diff --git a/Examples/test-suite/guilescm/ext_test_external.cxx b/Examples/test-suite/guilescm/guilescm_ext_test_external.cxx similarity index 90% rename from Examples/test-suite/guilescm/ext_test_external.cxx rename to Examples/test-suite/guilescm/guilescm_ext_test_external.cxx index 713e5d2d0..30fa1ce7b 100644 --- a/Examples/test-suite/guilescm/ext_test_external.cxx +++ b/Examples/test-suite/guilescm/guilescm_ext_test_external.cxx @@ -1,4 +1,4 @@ -#include +#include #include SCM test_create()