mget/mgetl corrected.

mgetl(2)
mget(1,'ull',fd1)

Change-Id: Ic47c251a1d34f50b0612e092cfa993e79aa5b7ee

diff --git a/scilab/modules/fileio/sci_gateway/cpp/sci_mget.cpp b/scilab/modules/fileio/sci_gateway/cpp/sci_mget.cpp
index 83082b1..b9bf5f8 100644 (file)
--- a/scilab/modules/fileio/sci_gateway/cpp/sci_mget.cpp
+++ b/scilab/modules/fileio/sci_gateway/cpp/sci_mget.cpp
@@ -85,7 +85,7 @@ Function::ReturnValue sci_mget(typed_list &in, int _iRetCount, typed_list &out)
 
     types::File* pFile = FileManager::getFile(iFile);
     // file opened with fortran open function
-    if (pFile->getFileType() == 1)
+    if (pFile == NULL || pFile->getFileType() == 1)
     {
         Scierror(999, _("%s: Wrong file descriptor: %d.\n"), "mget", iFile);
         return types::Function::Error;

diff --git a/scilab/modules/fileio/sci_gateway/cpp/sci_mgetl.cpp b/scilab/modules/fileio/sci_gateway/cpp/sci_mgetl.cpp
index ec99f6b..e8078cd 100644 (file)
--- a/scilab/modules/fileio/sci_gateway/cpp/sci_mgetl.cpp
+++ b/scilab/modules/fileio/sci_gateway/cpp/sci_mgetl.cpp
@@ -116,7 +116,7 @@ Function::ReturnValue sci_mgetl(typed_list &in, int _iRetCount, typed_list &out)
         {
             types::File* pFile = FileManager::getFile(iFileID);
             // file opened with fortran open function
-            if (pFile->getFileType() == 1)
+            if (pFile == NULL || pFile->getFileType() == 1)
             {
                 Scierror(999, _("%s: Wrong file descriptor: %d.\n"), "mgetl", iFileID);
                 return types::Function::Error;