Pārlūkot izejas kodu

* make LastOSError accessible earlier

git-svn-id: trunk@29001 -
Tomas Hajny 10 gadi atpakaļ
vecāks
revīzija
fa89dca059
1 mainītis faili ar 3 papildinājumiem un 3 dzēšanām
  1. 3 3
      rtl/os2/sysutils.pp

+ 3 - 3
rtl/os2/sysutils.pp

@@ -44,6 +44,9 @@ type
 (* Necessary here due to a different definition of TDateTime in DosCalls. *)
   TDateTime = System.TDateTime;
 
+threadvar
+  LastOSError: cardinal;
+
 {$DEFINE FPC_FEXPAND_UNC} (* UNC paths are supported *)
 {$DEFINE FPC_FEXPAND_DRIVES} (* Full paths begin with drive specification *)
 {$DEFINE FPC_FEXPAND_GETENV_PCHAR}
@@ -940,9 +943,6 @@ begin
 {$NOTE GetTickCount64 takes 20 microseconds on 1GHz CPU, GetTickCount not measurable}
 end;
 
-threadvar
-  LastOSError: cardinal;
-
 const
   OrigOSErrorWatch: TOSErrorWatch = nil;