paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 14:27:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed tzseconds problem. I hope.

Browse Source 
git-svn-id: trunk@788 -
This commit is contained in:
marco 2005-08-04 06:36:35 +00:00
parent a2fd319a20
commit 1c9e6e4a24
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/unix/dos.pp
View File

@ -54,7 +54,10 @@ Procedure AddDisk(const path:string);
Implementation
Uses
Strings,Unix,BaseUnix,{$ifdef FPC_USE_LIBC}initc{$ELSE}Syscall{$ENDIF};
UnixUtil, // tzSeconds
Strings,
Unix,
BaseUnix,{$ifdef FPC_USE_LIBC}initc{$ELSE}Syscall{$ENDIF};
{$DEFINE HAS_GETMSCOUNT}

8
rtl/unix/unix.pp
View File

@ -24,9 +24,10 @@ Uses BaseUnix,UnixType;
// We init to zero to be able to put timezone stuff under IFDEF, and still
// keep the code working.
// We can't do this hear, since unixutil functions access this.
var
Tzseconds : Longint = 0;
// var
// Tzseconds : Longint = 0;
{********************
@ -203,7 +204,8 @@ procedure SigRaise (sig:integer);
Implementation
Uses Strings{$ifndef FPC_USE_LIBC},Syscall{$endif};
Uses UnixUtil, // tzseconds
Strings {$ifndef FPC_USE_LIBC},Syscall{$endif};
{$i unxovl.inc}