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

* remove sysutils

Browse Source
This commit is contained in:
peter 2004-10-31 16:20:58 +00:00
parent 4a4c940fc4
commit 5ef188da6f
1 changed files with 31 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
rtl/unix/dos.pp
View File

@ -66,7 +66,7 @@ Procedure AddDisk(const path:string);
Implementation
Uses
Strings,SysUtils,Unix,BaseUnix,Syscall;
Strings,Unix,BaseUnix,Syscall;
{$i sysnr.inc}
@ -227,15 +227,14 @@ begin
end;
end;
Procedure GetDate(Var Year, Month, MDay, WDay: Word);
var t :TSystemtime;
Begin
sysutils.getlocaltime(t);
mday:=t.day;
month:=t.month;
year:=t.year;
var
tz:timeval;
hour,min,sec : word;
begin
fpgettimeofday(@tz,nil);
EpochToLocal(tz.tv_sec,year,month,mday,hour,min,sec);
Wday:=weekday(Year,Month,MDay);
end;
@ -270,15 +269,13 @@ begin
end;
Procedure GetTime(Var Hour, Minute, Second, Sec100: Word);
var t :TSystemtime;
Begin
sysutils.getlocaltime(t);
sec100:=0;
second:=t.second;
minute:=t.minute;
hour :=t.hour;
var
tz:timeval;
year,month,day : word;
begin
fpgettimeofday(@tz,nil);
EpochToLocal(tz.tv_sec,year,month,day,hour,minute,second);
sec100:=tz.tv_usec div 10000;
end;
Procedure packtime(var t : datetime;var p : longint);
@ -1047,7 +1044,10 @@ End.
{
$Log$
Revision 1.36 2004-10-30 20:55:54 marco
Revision 1.37 2004-10-31 16:20:58 peter
* remove sysutils
Revision 1.36 2004/10/30 20:55:54 marco
* unix interface cleanup
Revision 1.35 2004/09/25 15:09:57 peter