fix some gcc 4.9 valid warnings
[scilab.git] / scilab / modules / elementary_functions / sci_gateway / cpp / sci_isequal.cpp
1 /*
2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3  * Copyright (C) 2006 - INRIA - Allan CORNET
4  *
5  * This file must be used under the terms of the CeCILL.
6  * This source file is licensed as described in the file COPYING, which
7  * you should have received as part of this distribution.  The terms
8  * are also available at
9  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
10  *
11  */
12 /*--------------------------------------------------------------------------*/
13 #include "elem_func_gw.hxx"
14 #include "bool.hxx"
15 #include "function.hxx"
16
17 using namespace types;
18
19 Function::ReturnValue sci_isequal(types::typed_list &in, int _iRetCount, types::typed_list &out)
20 {
21     bool bResult = true;
22     if (in.size() <= 1 || _iRetCount != 1)
23     {
24         return Function::Error;
25     }
26
27     for (int i = 1 ; i < static_cast<int>(in.size()); i++)
28     {
29         InternalType* pIn1 = in[i - 1];
30         InternalType* pIn2 = in[i];
31
32         if (*pIn1 != *pIn2)
33         {
34             bResult = false;
35         }
36     }
37
38     Bool* pBool = new Bool(bResult);
39
40     out.push_back(pBool);
41     return Function::OK;
42 }
43 /*--------------------------------------------------------------------------*/