Răsfoiți Sursa

* Fixed bug #26053 (NoErrMsg variable for Delphi compatibility)

git-svn-id: trunk@27764 -
michael 11 ani în urmă
părinte
comite
4258d71a2d
1 a modificat fișierele cu 2 adăugiri și 1 ștergeri
  1. 2 1
      rtl/inc/systemh.inc

+ 2 - 1
rtl/inc/systemh.inc

@@ -673,7 +673,8 @@ const
 var
 var
 {$endif FPC_HAS_FEATURE_DYNLIBS}
 {$endif FPC_HAS_FEATURE_DYNLIBS}
   IsConsole : boolean = false; public name 'operatingsystem_isconsole';
   IsConsole : boolean = false; public name 'operatingsystem_isconsole';
-
+  NoErrMsg: Boolean platform = False; // For Delphi compatibility, not used in FPC.
+  
   DefaultSystemCodePage,
   DefaultSystemCodePage,
   DefaultUnicodeCodePage,
   DefaultUnicodeCodePage,
   { the code page to use when sending paths/file names to OS file system API
   { the code page to use when sending paths/file names to OS file system API