Jelajahi Sumber

Add required OS2Api. prefix for dotted units

Pierre Muller 2 tahun lalu
induk
melakukan
17fc9aa60b
1 mengubah file dengan 5 tambahan dan 5 penghapusan
  1. 5 5
      rtl/os2/sysutils.pp

+ 5 - 5
rtl/os2/sysutils.pp

@@ -568,7 +568,7 @@ var
 
 
 procedure InitTZ2; inline;
 procedure InitTZ2; inline;
 var
 var
-  DT: DosCalls.TDateTime;
+  DT: {$IFDEF FPC_DOTTEDUNITS}OS2Api.{$endif}DosCalls.TDateTime;
 begin
 begin
   DosGetDateTime (DT);
   DosGetDateTime (DT);
   TZAlwaysFromEnv := DT.TimeZone = -1;
   TZAlwaysFromEnv := DT.TimeZone = -1;
@@ -577,7 +577,7 @@ end;
 
 
 procedure GetLocalTime (var SystemTime: TSystemTime);
 procedure GetLocalTime (var SystemTime: TSystemTime);
 var
 var
-  DT: DosCalls.TDateTime;
+  DT: {$IFDEF FPC_DOTTEDUNITS}OS2Api.{$endif}DosCalls.TDateTime;
 begin
 begin
   DosGetDateTime(DT);
   DosGetDateTime(DT);
   with SystemTime do
   with SystemTime do
@@ -596,7 +596,7 @@ end;
 
 
 function GetUniversalTime (var SystemTime: TSystemTime): boolean;
 function GetUniversalTime (var SystemTime: TSystemTime): boolean;
 var
 var
-  DT: DosCalls.TDateTime;
+  DT: {$IFDEF FPC_DOTTEDUNITS}OS2Api.{$endif}DosCalls.TDateTime;
   Offset: longint;
   Offset: longint;
 begin
 begin
   if TZAlwaysFromEnv then
   if TZAlwaysFromEnv then
@@ -630,7 +630,7 @@ end;
 
 
 function GetLocalTimeOffset: integer;
 function GetLocalTimeOffset: integer;
 var
 var
-  DT: DosCalls.TDateTime;
+  DT: {$IFDEF FPC_DOTTEDUNITS}OS2Api.{$endif}DosCalls.TDateTime;
 begin
 begin
   if TZAlwaysFromEnv then
   if TZAlwaysFromEnv then
    begin
    begin
@@ -854,7 +854,7 @@ function ExecuteProcess (const Path: RawByteString;
 var
 var
  E: EOSError;
  E: EOSError;
  CommandLine: RawByteString;
  CommandLine: RawByteString;
- Args0, Args: DosCalls.PByteArray;
+ Args0, Args: {$IFDEF FPC_DOTTEDUNITS}OS2Api.{$endif}DosCalls.PByteArray;
  ObjNameBuf: PAnsiChar;
  ObjNameBuf: PAnsiChar;
  ArgSize: word;
  ArgSize: word;
  Res: TResultCodes;
  Res: TResultCodes;