paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 18:08:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* make LastOSError accessible earlier

Browse Source 
git-svn-id: trunk@29001 -
This commit is contained in:
Tomas Hajny 2014-11-06 12:15:27 +00:00
parent 0a74c30351
commit fa89dca059
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/os2/sysutils.pp
View File

@ -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;