Scicos tests: fix scicos.tst to load Scicos libs correctly
[scilab.git] / scilab / modules / core / src / c / eqid.c
1 /*
2 * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 * Copyright (C) 2010 - DIGITEO - 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.1-en.txt
10 *
11 */
12 /*--------------------------------------------------------------------------*/
13 #include <string.h>
14 #include "eqid.h"
15 #include "stack-def.h"
16 #include "BOOL.h"
17 /*--------------------------------------------------------------------------*/
18 int C2F(eqid)(int *x, int *y)
19 {
20     /**
21     * Intel C++ Compiler provides optimized versions of memcpy, memset, memcmp,
22     * and memmove inside the run-time library.
23     * http://software.intel.com/en-us/articles/memcpy-performance/
24     * http://origin-software.intel.com/en-us/forums/showthread.php?t=63277&o=d&s=lr
25     * http://software.intel.com/sites/products/documentation/hpc/compilerpro/en-us/cpp/lin/main_cls_lin.pdf
26     */
27 #ifndef __INTEL_COMPILER
28     int i = 0;
29     for (i = 0; i < nsiz; i++)
30     {
31         if (x[i] != y[i])
32         {
33             return FALSE;
34         }
35     }
36     return TRUE;
37 #else
38     return (memcmp(x, y, sizeof(int) * nsiz) ? FALSE : TRUE);
39 #endif
40 }
41 /*--------------------------------------------------------------------------*/
42