浏览代码

* Rename WriteExceptionToStdErr -> WriteErrorsToStdErr

git-svn-id: trunk@30555 -
michael 10 年之前
父节点
当前提交
81fa382c42
共有 3 个文件被更改,包括 3 次插入3 次删除
  1. 1 1
      rtl/inc/system.inc
  2. 1 1
      rtl/inc/systemh.inc
  3. 1 1
      rtl/objpas/sysutils/sysutils.inc

+ 1 - 1
rtl/inc/system.inc

@@ -993,7 +993,7 @@ Begin
     redirection to seriell i/o }
 {$ifndef EMBEDDED}
   { Show runtime error and exit }
-  if WriteExceptionToStdErr then
+  if WriteErrorsToStdErr then
     pstdout:=@stderr
   else  
     pstdout:=@stdout;

+ 1 - 1
rtl/inc/systemh.inc

@@ -754,7 +754,7 @@ Var
   StackLength : SizeUInt;
   
 Var
-  WriteExceptionToStdErr : Boolean = True;
+  WriteErrorsToStdErr : Boolean = True;
 
 function StackTop: Pointer;
 

+ 1 - 1
rtl/objpas/sysutils/sysutils.inc

@@ -291,7 +291,7 @@ Var
   hstdout : ^text;
   
 begin
-  if WriteExceptionToStdErr then
+  if WriteErrorsToStdErr then
     hstdout:=@stderr
   else
     hstdout:=@stdout;