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