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