* more commits from unix interface cleanup

rtl/unix/settimeo.inc

@@ -33,7 +33,7 @@ end;
 function settimeofday(tp:ptimeval;tzp:ptimezone):cint;
 
 begin
-  result:=stime(@tp^.tv_sec);
+  settimeofday:=stime(@tp^.tv_sec);
 end;
 
 {$else}
@@ -44,14 +44,17 @@ function settimeofday(tp:ptimeval;tzp:ptimezone):cint; external clib name 'setti
 function settimeofday(tp:ptimeval;tzp:ptimezone):cint;
 
 begin
-  settimeofday:=do_SysCall(Syscal_nr_settimeofday,TSysParam(@tp),tzp);
+  settimeofday:=do_SysCall(Syscall_nr_settimeofday,TSysParam(@tp),TSysParam(tzp));
 end;
 {$endif}
 {$endif}
 
 {
   $Log$
-  Revision 1.3  2004-10-27 04:22:29  marco
+  Revision 1.4  2004-10-30 21:18:23  marco
+   * more commits from unix interface cleanup
+
+  Revision 1.3  2004/10/27 04:22:29  marco
   *** empty log message ***
 
   Revision 1.2  2004/10/27 04:22:04  marco

rtl/unix/timezone.inc

@@ -5,8 +5,6 @@
 }
 
 type
-  plongint=^longint;
-  pbyte=^byte;
 
   ttzhead=packed record
     tzh_reserved : array[0..19] of byte;
@@ -123,7 +121,7 @@ begin
 end;
 
 
-procedure ReadTimezoneFile(fn:string);
+procedure ReadTimezoneFile(fn:shortstring);
 
   procedure decode(var l:longint);
   var
@@ -144,7 +142,7 @@ procedure ReadTimezoneFile(fn:string);
 
 var
   f      : longint;
-  tzdir  : string;
+  tzdir  : shortstring;
   tzhead : ttzhead;
   i      : longint;
   chars  : longint;
@@ -238,10 +236,10 @@ Const
 {$ENDIF} 
   
 
-function GetTimezoneFile:string;
+function GetTimezoneFile:shortstring;
 var
   f,len : longint;
-  s : string;
+  s : shortstring;
   info : stat;
 
 begin
@@ -297,7 +295,10 @@ end;
 
 {
   $Log$
-  Revision 1.7  2003-11-01 17:10:21  marco
+  Revision 1.8  2004-10-30 21:18:23  marco
+   * more commits from unix interface cleanup
+
+  Revision 1.7  2003/11/01 17:10:21  marco
    * Show stopping bug. Had to comment out lines around 279 to get 1.9
    to build