浏览代码

* 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. *)
   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;