paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 17:49:27 +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;
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

15
rtl/unix/timezone.inc
View File

@ -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