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

+ TZ variable based offset calculation included for DOS targets

Browse Source 
git-svn-id: trunk@47546 -
(cherry picked from commit 91da9eae17)
This commit is contained in:
Tomas Hajny 2020-11-24 00:35:52 +00:00 committed by marcoonthegit
parent 2cf6115789
commit 9f405f0a69
3 changed files with 12 additions and 0 deletions

4
rtl/go32v2/sysutils.pp
View File

@ -47,6 +47,7 @@ implementation
{$DEFINE FPC_FEXPAND_UNC} (* UNC paths are supported *)
{$DEFINE FPC_FEXPAND_DRIVES} (* Full paths begin with drive specification *)
{$DEFINE HAS_LOCALTIMEZONEOFFSET}
{ Include platform independent implementation part }
{$i sysutils.inc}
@ -644,6 +645,8 @@ end;
Time Functions
****************************************************************************}
{$I tzenv.inc}
Procedure GetLocalTime(var SystemTime: TSystemTime);
var
Regs: Registers;
@ -924,6 +927,7 @@ end;
Initialization
InitExceptions; { Initialize exceptions. OS independent }
InitInternational; { Initialize internationalization settings }
InitTZ;
OnBeep:=@SysBeep;
Finalization
FreeTerminateProcs;

4
rtl/msdos/sysutils.pp
View File

@ -48,6 +48,7 @@ implementation
{$DEFINE FPC_FEXPAND_UNC} (* UNC paths are supported *)
{$DEFINE FPC_FEXPAND_DRIVES} (* Full paths begin with drive specification *)
{$DEFINE HAS_LOCALTIMEZONEOFFSET}
{$DEFINE executeprocuni} (* Only 1 byte version of ExecuteProcess is provided by the OS *)
@ -629,6 +630,8 @@ end;
Time Functions
****************************************************************************}
{$I tzenv.inc}
Procedure GetLocalTime(var SystemTime: TSystemTime);
var
Regs: Registers;
@ -935,6 +938,7 @@ Initialization
InitExceptions; { Initialize exceptions. OS independent }
InitInternational; { Initialize internationalization settings }
OnBeep:=@SysBeep;
InitTZ;
Finalization
FreeTerminateProcs;
DoneExceptions;

4
rtl/watcom/sysutils.pp
View File

@ -49,6 +49,7 @@ implementation
{$DEFINE FPC_FEXPAND_UNC} (* UNC paths are supported *)
{$DEFINE FPC_FEXPAND_DRIVES} (* Full paths begin with drive specification *)
{$DEFINE HAS_LOCALTIMEZONEOFFSET}
{ Include platform independent implementation part }
{$i sysutils.inc}
@ -631,6 +632,8 @@ end;
Time Functions
****************************************************************************}
{$I tzenv.inc}
Procedure GetLocalTime(var SystemTime: TSystemTime);
var
Regs: Registers;
@ -910,6 +913,7 @@ Initialization
InitInternational; { Initialize internationalization settings }
InitDelay;
OnBeep:=@SysBeep;
InitTZ;
Finalization
FreeTerminateProcs;
DoneExceptions;