فهرست منبع

* make LastOSError accessible earlier

git-svn-id: trunk@29001 -
Tomas Hajny 10 سال پیش
والد
کامیت
fa89dca059
1فایلهای تغییر یافته به همراه3 افزوده شده و 3 حذف شده
  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. *)
 (* Necessary here due to a different definition of TDateTime in DosCalls. *)
   TDateTime = System.TDateTime;
   TDateTime = System.TDateTime;
 
 
+threadvar
+  LastOSError: cardinal;
+
 {$DEFINE FPC_FEXPAND_UNC} (* UNC paths are supported *)
 {$DEFINE FPC_FEXPAND_UNC} (* UNC paths are supported *)
 {$DEFINE FPC_FEXPAND_DRIVES} (* Full paths begin with drive specification *)
 {$DEFINE FPC_FEXPAND_DRIVES} (* Full paths begin with drive specification *)
 {$DEFINE FPC_FEXPAND_GETENV_PCHAR}
 {$DEFINE FPC_FEXPAND_GETENV_PCHAR}
@@ -940,9 +943,6 @@ begin
 {$NOTE GetTickCount64 takes 20 microseconds on 1GHz CPU, GetTickCount not measurable}
 {$NOTE GetTickCount64 takes 20 microseconds on 1GHz CPU, GetTickCount not measurable}
 end;
 end;
 
 
-threadvar
-  LastOSError: cardinal;
-
 const
 const
   OrigOSErrorWatch: TOSErrorWatch = nil;
   OrigOSErrorWatch: TOSErrorWatch = nil;