paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 13:19:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Bernd to fix SedDateTime (wrong tv_usec values, bug ID #27969)

Browse Source 
git-svn-id: trunk@30728 -
This commit is contained in:
michael 2015-04-26 08:43:47 +00:00
parent 40dc34b9d8
commit 8196427ca6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/unix/dos.pp
View File

@ -245,6 +245,7 @@ var
begin
GetDate (Year, Month, Day,dow);
tv.tv_sec:= LocalToEpoch ( Year, Month, Day, Hour, Minute, Second ) ;
tv.tv_usec:= Sec100 * 10000;
fpSettimeofday(@tv,nil);
end;
@ -255,6 +256,7 @@ var
begin
GetTime ( Hour, Min, Sec, Sec100 );
tv.tv_sec:= LocalToEpoch ( Year, Month, Day, Hour, Min, Sec ) ;
tv.tv_usec:= Sec100 * 10000;
fpSettimeofday(@tv,nil);
end;
@ -264,6 +266,7 @@ var
tv : timeval;
begin
tv.tv_sec:= LocalToEpoch ( Year, Month, Day, Hour, Minute, Second ) ;
tv.tv_usec:= 0;
SetDatetime:=fpSettimeofday(@tv,nil)=0;
end;
@ -319,7 +322,7 @@ Begin
begin
doserror:=2;
exit;
end;
end;
pid:=fpFork;
if pid=0 then
begin