+ initialize more stuff in the msdos system unit startup

git-svn-id: branches/i8086@24065 -

rtl/msdos/system.pp

@@ -161,7 +161,14 @@ end;
 begin
   StackLength := CheckInitialStkLen(InitialStkLen);
   StackBottom := __stkbottom;
+  { To be set if this is a GUI or console application }
+  IsConsole := TRUE;
+  { To be set if this is a library and not a program  }
+  IsLibrary := FALSE;
+  SysInitExceptions;
   initunicodestringmanager;
 { Setup stdin, stdout and stderr }
   SysInitStdIO;
+{ Reset IO Error }
+  InOutRes:=0;
 end.