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

Added settimeofday function

Browse Source
This commit is contained in:
michael 1998-08-12 11:10:25 +00:00
parent 8cbf2c421b
commit 76fd06ef6d
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/linux/linux.pp
View File

@ -468,6 +468,7 @@ Function SysCall(callnr:longint;var regs:SysCallregs):longint;
Function GetEpochTime:longint;
Procedure GetTimeOfDay(var tv:timeval;var tz:timezone);
Procedure SetTimeOfDay(Const tv:timeval;const tz:timezone);
Function GetTimeOfDay: longint;
Procedure EpochToLocal(epoch:longint;var year,month,day,hour,minute,second:Word);
Function LocalToEpoch(year,month,day,hour,minute,second:Word):Longint;
@ -1133,6 +1134,19 @@ begin
LinuxError:=Errno;
end;
Procedure SetTimeOfDay(Const tv:timeval;Const tz:timezone);
{
Get the time of day and timezone.
}
var
regs : SysCallregs;
begin
regs.reg2:=longint(@tv);
regs.reg3:=longint(@tz);
SysCall(SysCall_nr_settimeofday,regs);
LinuxError:=Errno;
end;
Function GetTimeOfDay: longint;
{
@ -3505,7 +3519,10 @@ End.
{
$Log$
Revision 1.12 1998-07-28 09:27:06 michael
Revision 1.13 1998-08-12 11:10:25 michael
Added settimeofday function
Revision 1.12 1998/07/28 09:27:06 michael
restored previous version. A bug in the compiler prevents compilation.
Revision 1.10 1998/06/16 08:21:58 michael