- get the proper process exit code for System.systemCall command on W…

…indows

- put the error code inside the Model.log file
- remove Compiler/scripts/CompileMSVC.bat as is not used


git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@24535 f25d12d1-65f4-0310-ae8a-bbce733d8d8e

Compiler/runtime/systemimpl.c

@@ -549,6 +549,7 @@ int runProcess(const char* cmd)
   PROCESS_INFORMATION pi;
   char *c = "cmd /c";
   char *command = malloc(strlen(cmd) + strlen(c) + 2);
+  DWORD exitCode = 1;
 
   ZeroMemory(&si, sizeof(si));
   si.cb = sizeof(si);
@@ -562,13 +563,15 @@ int runProcess(const char* cmd)
   if (CreateProcessA(NULL, command, NULL, NULL, FALSE, CREATE_NO_WINDOW, NULL, NULL, &si, &pi))
   {
       WaitForSingleObject(pi.hProcess, INFINITE);
+      // Get the exit code.
+      GetExitCodeProcess(pi.hProcess, &exitCode);
       CloseHandle(pi.hProcess);
       CloseHandle(pi.hThread);
       free(command);
-      return 0;
+      return (int)exitCode;
   }
   free(command);
-  return 1;
+  return (int)exitCode;
 }
 #endif
 

Compiler/scripts/Compile.bat

@@ -35,18 +35,21 @@ REM Clear all environment variables that may interfere during compile and link p
 set MAKE=
 set MAKEFLAGS=
 nmake /a /f %1.makefile >> %1.log 2>&1
+set RESULT=%ERRORLEVEL%
+echo RESULT: %RESULT% >> %1.log 2>&1
 goto :Final
 
 
 :MINGW
 REM echo "MINGW"
 if "%3"=="parallel" set ADDITIONAL_ARGS=-j%NUMBER_OF_PROCESSORS%
 %MinGW%\bin\mingw32-make -f %1.makefile %ADDITIONAL_ARGS% >> %1.log 2>&1
+set RESULT=%ERRORLEVEL%
+echo RESULT: %RESULT% >> %1.log 2>&1
 goto :Final
 
 
 :Final
-set RESULT=%ERRORLEVEL%
 set PATH=%OLD_PATH%
 set OLD_PATH=
-exit %RESULT%
+@%COMSPEC% /C exit %RESULT%