Browse Source

* Fixed tzseconds problem. I hope.

git-svn-id: trunk@788 -
marco 20 years ago
parent
commit
1c9e6e4a24
2 changed files with 9 additions and 4 deletions
  1. 4 1
      rtl/unix/dos.pp
  2. 5 3
      rtl/unix/unix.pp

+ 4 - 1
rtl/unix/dos.pp

@@ -54,7 +54,10 @@ Procedure AddDisk(const path:string);
 Implementation
 Implementation
 
 
 Uses
 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}
 {$DEFINE HAS_GETMSCOUNT}
 
 

+ 5 - 3
rtl/unix/unix.pp

@@ -24,9 +24,10 @@ Uses BaseUnix,UnixType;
 
 
 // We init to zero to be able to put timezone stuff under IFDEF, and still
 // We init to zero to be able to put timezone stuff under IFDEF, and still
 // keep the code working.
 // 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
 Implementation
 
 
-Uses Strings{$ifndef FPC_USE_LIBC},Syscall{$endif};
+Uses UnixUtil,  // tzseconds
+     Strings {$ifndef FPC_USE_LIBC},Syscall{$endif};
 
 
 {$i unxovl.inc}
 {$i unxovl.inc}