mseek parameter offset passed as double for file size more than 2GB.
[scilab.git] / scilab / modules / fileio / sci_gateway / c / sci_mseek.c
index f26b4ce..b61b7c3 100644 (file)
@@ -8,7 +8,7 @@
 * This source file is licensed as described in the file COPYING, which
 * you should have received as part of this distribution.  The terms
 * are also available at
-* http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+* http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
 *
 */
 /*--------------------------------------------------------------------------*/
@@ -36,7 +36,7 @@ int sci_mseek(char *fname, unsigned long fname_len)
 
     if (GetType(1) == sci_matrix)
     {
-        GetRhsVar(1, MATRIX_OF_INTEGER_DATATYPE, &m1, &n1, &l1);
+        GetRhsVar(1, MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
         if (m1*n1 != 1)
         {
             Scierror(999, _("%s: Wrong size for input argument #%d: An integer expected.\n"), fname, 1);
@@ -80,7 +80,7 @@ int sci_mseek(char *fname, unsigned long fname_len)
         flag = "set";
     }
 
-    C2F(mseek)(&fd, istk(l1), flag, &err);
+    C2F(mseek)(&fd, stk(l1), flag, &err);
 
     if (err >  0)
     {