* Moved WriteExceptionToStdErr to system unit, so it is observed even in absence of sysutils (bug ID 27708)

git-svn-id: trunk@30551 -

rtl/inc/system.inc

@@ -993,6 +993,9 @@ Begin
     redirection to seriell i/o }
 {$ifndef EMBEDDED}
   { Show runtime error and exit }
+  if WriteExceptionToStdErr then
+    pstdout:=@stderr
+  else  
     pstdout:=@stdout;
   If erroraddr<>nil Then
    Begin

rtl/inc/systemh.inc

@@ -753,6 +753,9 @@ Var
   StackBottom : Pointer;
   StackLength : SizeUInt;
   
+Var
+  WriteExceptionToStdErr : Boolean = True;
+
 function StackTop: Pointer;
 
 { Numbers for routines that have compiler magic }

rtl/objpas/sysutils/sysutilh.inc

@@ -255,7 +255,6 @@ type
 
 Var
    OnShowException : Procedure (Msg : ShortString);
-   WriteExceptionToStdErr : Boolean = True;
    
 Const
    HexDisplayPrefix : string = '$';