paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 12:19:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* more commits from unix interface cleanup

Browse Source
This commit is contained in:
marco 2004-10-30 21:18:23 +00:00
parent 780ba784d6
commit 2ea12e0083
2 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/unix/settimeo.inc
View File

@ -33,7 +33,7 @@ end;
function settimeofday(tp:ptimeval;tzp:ptimezone):cint; function settimeofday(tp:ptimeval;tzp:ptimezone):cint;
begin begin
result:=stime(@tp^.tv_sec); settimeofday:=stime(@tp^.tv_sec);
end; end;
{$else} {$else}
@ -44,14 +44,17 @@ function settimeofday(tp:ptimeval;tzp:ptimezone):cint; external clib name 'setti
function settimeofday(tp:ptimeval;tzp:ptimezone):cint; function settimeofday(tp:ptimeval;tzp:ptimezone):cint;
begin begin
settimeofday:=do_SysCall(Syscal_nr_settimeofday,TSysParam(@tp),tzp); settimeofday:=do_SysCall(Syscall_nr_settimeofday,TSysParam(@tp),TSysParam(tzp));
end; end;
{$endif} {$endif}
{$endif} {$endif}
{ {
$Log$ $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 *** *** empty log message ***
Revision 1.2 2004/10/27 04:22:04 marco Revision 1.2 2004/10/27 04:22:04 marco

15
rtl/unix/timezone.inc
View File

@ -5,8 +5,6 @@
} }
type type
plongint=^longint;
pbyte=^byte;
ttzhead=packed record ttzhead=packed record
tzh_reserved : array[0..19] of byte; tzh_reserved : array[0..19] of byte;
@ -123,7 +121,7 @@ begin
end; end;
procedure ReadTimezoneFile(fn:string); procedure ReadTimezoneFile(fn:shortstring);
procedure decode(var l:longint); procedure decode(var l:longint);
var var
@ -144,7 +142,7 @@ procedure ReadTimezoneFile(fn:string);
var var
f : longint; f : longint;
tzdir : string; tzdir : shortstring;
tzhead : ttzhead; tzhead : ttzhead;
i : longint; i : longint;
chars : longint; chars : longint;
@ -238,10 +236,10 @@ Const
{$ENDIF} {$ENDIF}
function GetTimezoneFile:string; function GetTimezoneFile:shortstring;
var var
f,len : longint; f,len : longint;
s : string; s : shortstring;
info : stat; info : stat;
begin begin
@ -297,7 +295,10 @@ end;
{ {
$Log$ $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 * Show stopping bug. Had to comment out lines around 279 to get 1.9
to build to build