Bug 13268 fixed: There was a missing return in C++ code (ScilabObjet::getArgumentId) 69/13969/4
Calixte DENIZET [Tue, 11 Mar 2014 09:07:09 +0000 (10:07 +0100)]
Change-Id: I6912cb6128f8b8de9dee51b3516415426c9c42c7

scilab/modules/differential_equations/sci_gateway/fortran/bint2d.f
scilab/modules/differential_equations/sci_gateway/fortran/bintg.f
scilab/modules/external_objects/src/cpp/ScilabObjects.cpp
scilab/modules/interpolation/src/fortran/cshep2d.f

index 9101c8d..70321d0 100644 (file)
@@ -1,19 +1,19 @@
-c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-c Copyright (C) INRIA
-c ...
-c 
-c This file must be used under the terms of the CeCILL.
-c This source file is licensed as described in the file COPYING, which
-c you should have received as part of this distribution.  The terms
-c are also available at    
-c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
-c
+c     Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+c     Copyright (C) INRIA
+c     ...
+c     
+c     This file must be used under the terms of the CeCILL.
+c     This source file is licensed as described in the file COPYING, which
+c     you should have received as part of this distribution.  The terms
+c     are also available at
+c     http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
+c     
       double precision function bint2d(x,y)
-c
-c ======================================================================
+c     
+c     ======================================================================
 c     gestion des macros externals pour le primitive INTG
-c ======================================================================
-c
+c     ======================================================================
+c     
       INCLUDE 'stack.h'
       integer iadr,sadr
 c     
@@ -24,14 +24,16 @@ c
 c     
       integer vol,tops,nordre
       data nordre/1/,mlhs/1/
-c
+c     
       iadr(l)=l+l-1
       sadr(l)=(l/2)+1
+c
+      bint2d=0.0d0
 c     
 c     nordre est le numero d'ordre de cet external dans la structure
 c     de donnee,
 c     mlhs (mrhs) est le nombre de parametres de sortie (entree)
-c     du simulateur 
+c     du simulateur
 c     
       iero=0
       mrhs=2
@@ -44,14 +46,14 @@ c     external is a Scilab function
 c     on return iero=1 is used to notify to the ode solver that
 c     scilab was not able to evaluate the external
       iero=1
-c     Putting Fortran arguments on Scilab stack 
+c     Putting Fortran arguments on Scilab stack
 
-c+    
+c     +
       call ftob(x,1,istk(il+1))
       if(err.gt.0.or.err1.gt.0) return
       call ftob(y,1,istk(il+2))
       if(err.gt.0.or.err1.gt.0) return
-c+    
+c     +
 c     
       tops=istk(il)
       ils=iadr(lstk(tops))
@@ -118,13 +120,13 @@ c
       rhs=ids(2,pt)
       pt=pt-1
       niv=niv-1
-c+    
+c     +
 c     transfert des variables  de sortie vers fortran
       call btof(xx,1)
       bint2d=xx
       if(err.gt.0.or.err1.gt.0) return
 c     normal return iero set to 0
-      iero=0 
+      iero=0
       return
 
 c     
index 884fcd1..d9d4123 100644 (file)
@@ -28,7 +28,9 @@ c
 c
       iadr(l)=l+l-1
       sadr(l)=(l/2)+1
-c     
+c
+      bintg=0.0d0
+c
 c     nordre est le numero d'ordre de cet external dans la structure
 c     de donnee,
 c     mlhs (mrhs) est le nombre de parametres de sortie (entree)
index 3483459..9e4a670 100644 (file)
@@ -682,6 +682,8 @@ int ScilabObjects::getArgumentId(int * addr, int * tmpvars, const bool isRef, co
             throw ScilabAbstractEnvironmentException(__LINE__, __FILE__, gettext("Unable to wrap. Unmanaged datatype (%d) ?"), typ);
         }
     }
+
+    return -1;
 }
 
 int ScilabObjects::getMListType(int * mlist, void * pvApiCtx)
index ac99610..84fc406 100644 (file)
@@ -558,6 +558,9 @@ C XP,YP =     Local copies of PX and PY -- coordinates of P
 C
       XP = PX
       YP = PY
+C
+      CS2VAL = 0.
+C
       IF (N .LT. 10  .OR.  NR .LT. 1  .OR.  DX .LE. 0.  .OR.
      .    DY .LE. 0.  .OR.  RMAX .LT. 0.) RETURN
 C