mget/mgetl corrected. 27/12527/2
Cedric Delamarre [Fri, 13 Sep 2013 09:23:10 +0000 (11:23 +0200)]
mgetl(2)
mget(1,'ull',fd1)

Change-Id: Ic47c251a1d34f50b0612e092cfa993e79aa5b7ee

scilab/modules/fileio/sci_gateway/cpp/sci_mget.cpp
scilab/modules/fileio/sci_gateway/cpp/sci_mgetl.cpp

index 83082b1..b9bf5f8 100644 (file)
@@ -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;
index ec99f6b..e8078cd 100644 (file)
@@ -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;