paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 18:49:15 +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 -
This commit is contained in:
Tomas Hajny 2020-11-24 00:35:52 +00:00
parent 44b7a1df18
commit 91da9eae17
3 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/go32v2/sysutils.pp
View File

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

4
rtl/msdos/sysutils.pp
View File

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

4
rtl/watcom/sysutils.pp
View File

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