mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 14:49:47 +02:00
* reverted a change not belonging to the previous commit
git-svn-id: trunk@47544 -
This commit is contained in:
parent
2774a0094c
commit
49fc7dc4cb
@ -47,7 +47,6 @@ 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}
|
||||
@ -645,8 +644,6 @@ end;
|
||||
Time Functions
|
||||
****************************************************************************}
|
||||
|
||||
{$I tzenv.inc}
|
||||
|
||||
Procedure GetLocalTime(var SystemTime: TSystemTime);
|
||||
var
|
||||
Regs: Registers;
|
||||
@ -927,7 +924,6 @@ end;
|
||||
Initialization
|
||||
InitExceptions; { Initialize exceptions. OS independent }
|
||||
InitInternational; { Initialize internationalization settings }
|
||||
InitTZ;
|
||||
OnBeep:=@SysBeep;
|
||||
Finalization
|
||||
FreeTerminateProcs;
|
||||
|
Loading…
Reference in New Issue
Block a user