Xcos tests: recompile Modelica diagrams 63/12563/2
Paul BIGNIER [Tue, 17 Sep 2013 09:31:10 +0000 (11:31 +0200)]
Not fully recompiling Modelica diagrams lead to important segmentation faults.

Change-Id: Ice1aca06594c4f7e732e65b84b72775eafe3afca

scilab/modules/scicos/tests/unit_tests/Solvers/DAE/DDaskrK_Platform.tst
scilab/modules/scicos/tests/unit_tests/Solvers/DAE/DDaskrK_Platform.unix.dia.ref
scilab/modules/scicos/tests/unit_tests/Solvers/DAE/DDaskrK_Platform.win.dia.ref
scilab/modules/scicos/tests/unit_tests/Solvers/DAE/DDaskrN_Platform.tst
scilab/modules/scicos/tests/unit_tests/Solvers/DAE/DDaskrN_Platform.unix.dia.ref
scilab/modules/scicos/tests/unit_tests/Solvers/DAE/DDaskrN_Platform.win.dia.ref

index 138f2ed..113cf8c 100644 (file)
@@ -20,7 +20,6 @@ prot = funcprot();
 funcprot(0);
 function messagebox(msg, msg_title)
 endfunction
-Info = scicos_simulate(scs_m, list());
 
 for i=1:2  // 'max step size' = 10^-i, precision
 
@@ -29,12 +28,12 @@ for i=1:2  // 'max step size' = 10^-i, precision
 
     // Modify solver + run DDaskr + save results
     scs_m.props.tol(6) = 102;     // Solver
-    scicos_simulate(scs_m, Info, Context); // DDaskr
+    scicos_simulate(scs_m, Context); // DDaskr
     ddaskrval = res.values;       // Results
 
     // Modify solver + run IDA + save results
     scs_m.props.tol(6) = 100;     // Solver
-    scicos_simulate(scs_m, Info, Context); // IDA
+    scicos_simulate(scs_m, Context); // IDA
     idaval = res.values;          // Results
 
     // Compare results
index 7c2afbc..e18f879 100644 (file)
@@ -17,22 +17,16 @@ prot = funcprot();
 funcprot(0);
 function messagebox(msg, msg_title)
 endfunction
-Info = scicos_simulate(scs_m, list());
---------------------------------------------\
- Main Modelica : TMPDIR/Platform_im.mo
-
- Flat Modelica : TMPDIR/Platform_imf.mo
- Simulation C code :TMPDIR/Platform_im.c
 for i=1:2  // 'max step size' = 10^-i, precision
     // Start by updating the clock block period (sampling)
     Context.per = 5*10^-i;
     // Modify solver + run DDaskr + save results
     scs_m.props.tol(6) = 102;     // Solver
-    scicos_simulate(scs_m, Info, Context); // DDaskr
+    scicos_simulate(scs_m, Context); // DDaskr
     ddaskrval = res.values;       // Results
     // Modify solver + run IDA + save results
     scs_m.props.tol(6) = 100;     // Solver
-    scicos_simulate(scs_m, Info, Context); // IDA
+    scicos_simulate(scs_m, Context); // IDA
     idaval = res.values;          // Results
     // Compare results
     compa = abs(ddaskrval-idaval);
@@ -45,4 +39,24 @@ for i=1:2  // 'max step size' = 10^-i, precision
     assert_checktrue(mea <= 5*10^-(i+2));
     assert_checktrue(stdeviation <= 5*10^-(i+2));
 end
+--------------------------------------------\
+ Main Modelica : TMPDIR/Platform_im.mo
+
+ Flat Modelica : TMPDIR/Platform_imf.mo
+ Simulation C code :TMPDIR/Platform_im.c
+--------------------------------------------\
+ Main Modelica : TMPDIR/Platform_im.mo
+
+ Flat Modelica : TMPDIR/Platform_imf.mo
+ Simulation C code :TMPDIR/Platform_im.c
+--------------------------------------------\
+ Main Modelica : TMPDIR/Platform_im.mo
+
+ Flat Modelica : TMPDIR/Platform_imf.mo
+ Simulation C code :TMPDIR/Platform_im.c
+--------------------------------------------\
+ Main Modelica : TMPDIR/Platform_im.mo
+
+ Flat Modelica : TMPDIR/Platform_imf.mo
+ Simulation C code :TMPDIR/Platform_im.c
 funcprot(prot);
index 6acb6bb..0f407b2 100644 (file)
@@ -17,22 +17,16 @@ prot = funcprot();
 funcprot(0);
 function messagebox(msg, msg_title)
 endfunction
-Info = scicos_simulate(scs_m, list());
---------------------------------------------\
- Main Modelica : TMPDIR\Platform_im.mo
-
- Flat Modelica : TMPDIR\Platform_imf.mo
- Simulation C code :TMPDIR\Platform_im.c
 for i=1:2  // 'max step size' = 10^-i, precision
     // Start by updating the clock block period (sampling)
     Context.per = 5*10^-i;
     // Modify solver + run DDaskr + save results
     scs_m.props.tol(6) = 102;     // Solver
-    scicos_simulate(scs_m, Info, Context); // DDaskr
+    scicos_simulate(scs_m, Context); // DDaskr
     ddaskrval = res.values;       // Results
     // Modify solver + run IDA + save results
     scs_m.props.tol(6) = 100;     // Solver
-    scicos_simulate(scs_m, Info, Context); // IDA
+    scicos_simulate(scs_m, Context); // IDA
     idaval = res.values;          // Results
     // Compare results
     compa = abs(ddaskrval-idaval);
@@ -45,4 +39,24 @@ for i=1:2  // 'max step size' = 10^-i, precision
     assert_checktrue(mea <= 5*10^-(i+2));
     assert_checktrue(stdeviation <= 5*10^-(i+2));
 end
+--------------------------------------------\
+ Main Modelica : TMPDIR\Platform_im.mo
+
+ Flat Modelica : TMPDIR\Platform_imf.mo
+ Simulation C code :TMPDIR\Platform_im.c
+--------------------------------------------\
+ Main Modelica : TMPDIR\Platform_im.mo
+
+ Flat Modelica : TMPDIR\Platform_imf.mo
+ Simulation C code :TMPDIR\Platform_im.c
+--------------------------------------------\
+ Main Modelica : TMPDIR\Platform_im.mo
+
+ Flat Modelica : TMPDIR\Platform_imf.mo
+ Simulation C code :TMPDIR\Platform_im.c
+--------------------------------------------\
+ Main Modelica : TMPDIR\Platform_im.mo
+
+ Flat Modelica : TMPDIR\Platform_imf.mo
+ Simulation C code :TMPDIR\Platform_im.c
 funcprot(prot);
index 3b8757c..d7a16d5 100644 (file)
@@ -20,8 +20,6 @@ prot = funcprot();
 funcprot(0);
 function messagebox(msg, msg_title)
 endfunction
-funcprot(prot);
-Info = scicos_simulate(scs_m, list());
 
 for i=1:3  // 'max step size' = 10^-i, precision
 
@@ -30,12 +28,12 @@ for i=1:3  // 'max step size' = 10^-i, precision
 
     // Modify solver + run DDaskr + save results
     scs_m.props.tol(6) = 101;     // Solver
-    scicos_simulate(scs_m, Info, Context); // DDaskr
+    scicos_simulate(scs_m, Context); // DDaskr
     ddaskrval = res.values;       // Results
 
     // Modify solver + run IDA + save results
     scs_m.props.tol(6) = 100;     // Solver
-    scicos_simulate(scs_m, Info, Context); // IDA
+    scicos_simulate(scs_m, Context); // IDA
     idaval = res.values;          // Results
 
     // Compare results
@@ -52,3 +50,4 @@ for i=1:3  // 'max step size' = 10^-i, precision
     assert_checktrue(stdeviation <= 5*10^-(i+3));
 
 end
+funcprot(prot);
index d08ed90..4817929 100644 (file)
@@ -17,23 +17,16 @@ prot = funcprot();
 funcprot(0);
 function messagebox(msg, msg_title)
 endfunction
-funcprot(prot);
-Info = scicos_simulate(scs_m, list());
---------------------------------------------\
- Main Modelica : TMPDIR/Platform_im.mo
-
- Flat Modelica : TMPDIR/Platform_imf.mo
- Simulation C code :TMPDIR/Platform_im.c
 for i=1:3  // 'max step size' = 10^-i, precision
     // Start by updating the clock block period (sampling)
     Context.per = 5*10^-i;
     // Modify solver + run DDaskr + save results
     scs_m.props.tol(6) = 101;     // Solver
-    scicos_simulate(scs_m, Info, Context); // DDaskr
+    scicos_simulate(scs_m, Context); // DDaskr
     ddaskrval = res.values;       // Results
     // Modify solver + run IDA + save results
     scs_m.props.tol(6) = 100;     // Solver
-    scicos_simulate(scs_m, Info, Context); // IDA
+    scicos_simulate(scs_m, Context); // IDA
     idaval = res.values;          // Results
     // Compare results
     compa = abs(ddaskrval-idaval);
@@ -46,14 +39,34 @@ for i=1:3  // 'max step size' = 10^-i, precision
     assert_checktrue(mea <= 5*10^-(i+3));
     assert_checktrue(stdeviation <= 5*10^-(i+3));
 end
-Warning : redefining function: dst                     . Use funcprot(0) to avoid this message
+--------------------------------------------\
+ Main Modelica : TMPDIR/Platform_im.mo
 
-Warning : redefining function: dst                     . Use funcprot(0) to avoid this message
+ Flat Modelica : TMPDIR/Platform_imf.mo
+ Simulation C code :TMPDIR/Platform_im.c
+--------------------------------------------\
+ Main Modelica : TMPDIR/Platform_im.mo
+
+ Flat Modelica : TMPDIR/Platform_imf.mo
+ Simulation C code :TMPDIR/Platform_im.c
+--------------------------------------------\
+ Main Modelica : TMPDIR/Platform_im.mo
 
-Warning : redefining function: dst                     . Use funcprot(0) to avoid this message
+ Flat Modelica : TMPDIR/Platform_imf.mo
+ Simulation C code :TMPDIR/Platform_im.c
+--------------------------------------------\
+ Main Modelica : TMPDIR/Platform_im.mo
 
-Warning : redefining function: dst                     . Use funcprot(0) to avoid this message
+ Flat Modelica : TMPDIR/Platform_imf.mo
+ Simulation C code :TMPDIR/Platform_im.c
+--------------------------------------------\
+ Main Modelica : TMPDIR/Platform_im.mo
 
-Warning : redefining function: dst                     . Use funcprot(0) to avoid this message
+ Flat Modelica : TMPDIR/Platform_imf.mo
+ Simulation C code :TMPDIR/Platform_im.c
+--------------------------------------------\
+ Main Modelica : TMPDIR/Platform_im.mo
 
-Warning : redefining function: dst                     . Use funcprot(0) to avoid this message
+ Flat Modelica : TMPDIR/Platform_imf.mo
+ Simulation C code :TMPDIR/Platform_im.c
+funcprot(prot);
index 531ad78..1b52b98 100644 (file)
@@ -17,23 +17,16 @@ prot = funcprot();
 funcprot(0);
 function messagebox(msg, msg_title)
 endfunction
-funcprot(prot);
-Info = scicos_simulate(scs_m, list());
---------------------------------------------\
- Main Modelica : TMPDIR\Platform_im.mo
-
- Flat Modelica : TMPDIR\Platform_imf.mo
- Simulation C code :TMPDIR\Platform_im.c
 for i=1:3  // 'max step size' = 10^-i, precision
     // Start by updating the clock block period (sampling)
     Context.per = 5*10^-i;
     // Modify solver + run DDaskr + save results
     scs_m.props.tol(6) = 101;     // Solver
-    scicos_simulate(scs_m, Info, Context); // DDaskr
+    scicos_simulate(scs_m, Context); // DDaskr
     ddaskrval = res.values;       // Results
     // Modify solver + run IDA + save results
     scs_m.props.tol(6) = 100;     // Solver
-    scicos_simulate(scs_m, Info, Context); // IDA
+    scicos_simulate(scs_m, Context); // IDA
     idaval = res.values;          // Results
     // Compare results
     compa = abs(ddaskrval-idaval);
@@ -46,14 +39,34 @@ for i=1:3  // 'max step size' = 10^-i, precision
     assert_checktrue(mea <= 5*10^-(i+3));
     assert_checktrue(stdeviation <= 5*10^-(i+3));
 end
-Warning : redefining function: dst                     . Use funcprot(0) to avoid this message
+--------------------------------------------\
+ Main Modelica : TMPDIR\Platform_im.mo
 
-Warning : redefining function: dst                     . Use funcprot(0) to avoid this message
+ Flat Modelica : TMPDIR\Platform_imf.mo
+ Simulation C code :TMPDIR\Platform_im.c
+--------------------------------------------\
+ Main Modelica : TMPDIR\Platform_im.mo
+
+ Flat Modelica : TMPDIR\Platform_imf.mo
+ Simulation C code :TMPDIR\Platform_im.c
+--------------------------------------------\
+ Main Modelica : TMPDIR\Platform_im.mo
 
-Warning : redefining function: dst                     . Use funcprot(0) to avoid this message
+ Flat Modelica : TMPDIR\Platform_imf.mo
+ Simulation C code :TMPDIR\Platform_im.c
+--------------------------------------------\
+ Main Modelica : TMPDIR\Platform_im.mo
 
-Warning : redefining function: dst                     . Use funcprot(0) to avoid this message
+ Flat Modelica : TMPDIR\Platform_imf.mo
+ Simulation C code :TMPDIR\Platform_im.c
+--------------------------------------------\
+ Main Modelica : TMPDIR\Platform_im.mo
 
-Warning : redefining function: dst                     . Use funcprot(0) to avoid this message
+ Flat Modelica : TMPDIR\Platform_imf.mo
+ Simulation C code :TMPDIR\Platform_im.c
+--------------------------------------------\
+ Main Modelica : TMPDIR\Platform_im.mo
 
-Warning : redefining function: dst                     . Use funcprot(0) to avoid this message
+ Flat Modelica : TMPDIR\Platform_imf.mo
+ Simulation C code :TMPDIR\Platform_im.c
+funcprot(prot);