fix bug 4675 test 54/16454/2
Anais AUBERT [Wed, 6 May 2015 15:39:42 +0000 (17:39 +0200)]
Change-Id: If5d6dd1e603e63f6d45d6e3414318d276da11495

scilab/modules/dynamic_link/tests/nonreg_tests/bug_4675.dia.ref
scilab/modules/dynamic_link/tests/nonreg_tests/bug_4675.tst

index d3ff1ad..eccaefb 100644 (file)
 ilib_verbose(0)
 cd TMPDIR;
 //creating the interface file
-c_code = ['#define __USE_DEPRECATED_STACK_FUNCTIONS__'
-   '#include <stack-c.h>'
-   '#include <api_scilab.h>'
-   'int sci_funxxx(char *fname)' 
-   '{'
-   '  double dOut = Fin;'
-   '  int m_out = 1;'
-   '  int n_out = 1;'
-   '  createMatrixOfDouble(pvApiCtx, Rhs + 1, m_out, n_out, &dOut);"
-   '  LhsVar(1) = 1;'
-   '  return 0;'
-   '}'];
-mputl(c_code,'bug_4675.c');
+c_code = ["#include <api_scilab.h>"
+"int sci_funxxx(char *fname, void * pvApiCtx)"
+"{"
+"  static double dOut = 0;"
+"  dOut ++;"
+"  int m_out = 1;"
+"  int n_out = 1;"
+"  createMatrixOfDouble(pvApiCtx, Rhs + 1, m_out, n_out, &dOut);"
+"  LhsVar(1) = 1;"
+"  PutLhsVar();"
+"  return 0;"
+"}"];
+mputl(c_code,"bug_4675.c");
 test_table = [];
 for i=1:999,
-  test_table = [ test_table; 'fun'+string(i), 'sci_funxxx'];
+    test_table = [ test_table; "fun"+string(i), "sci_funxxx"];
 end
-files =['bug_4675.c'];
-ilib_build('test_bug_4675',test_table,files,[]);
-// load the shared library 
-exec('loader.sce');
+files =["bug_4675.c"];
+ilib_build("test_bug_4675",test_table,files,[]);
+// load the shared library
+exec("loader.sce");
 //using the new primitive
 for i=1:999,
-  execstr("res = fun"+string(i)+"();");
-  if res <> i then bugmes();quit;end
+    execstr("res = fun"+string(i)+"();");
+    if res <> i then bugmes();quit;end
 end
 ulink();
 // check with more than 999 functions in a interface
 test_table = [];
 for i=1:1024,
-  test_table = [ test_table; 'fun'+string(i), 'sci_funxxx'];
+    test_table = [ test_table; "fun"+string(i), "sci_funxxx"];
 end
 ierr = execstr("ilib_build(''test_bug_4675'',test_table,files,[]);","errcatch");
 if ierr <> 999 then bugmes();quit;end
index a450969..4e3b785 100644 (file)
 ilib_verbose(0)
 cd TMPDIR;
 //creating the interface file
-c_code = ["#define __USE_DEPRECATED_STACK_FUNCTIONS__"
-"#include <stack-c.h>"
-"#include <api_scilab.h>"
-"int sci_funxxx(char *fname)"
+c_code = ["#include <api_scilab.h>"
+"int sci_funxxx(char *fname, void * pvApiCtx)"
 "{"
-"  double dOut = Fin;"
+"  static double dOut = 0;"
+"  dOut ++;"
 "  int m_out = 1;"
 "  int n_out = 1;"
 "  createMatrixOfDouble(pvApiCtx, Rhs + 1, m_out, n_out, &dOut);"
 "  LhsVar(1) = 1;"
+"  PutLhsVar();"
 "  return 0;"
 "}"];
 mputl(c_code,"bug_4675.c");