> AFAIK the unit Dos should not be used under Linux.
>
>
> Mattias
I rewrote the code omitting the dos unit, and got the fowing.
In my opinion the windows output and the Linux output should be (almost)
the same, and then my conclusion is a compiler/rtl error.
Do you agree (I have also tested the 2.2.0 compiler and got the same
result).
Carsten
Output from Linux compiler
Free Pascal Compiler version 2.2.0 [2007/08/31] for i386
Target OS: Linux for i386
12/6-2016 25:14:58
14-9-08 10:22:53
Output from Windows Compiler
Free Pascal Compiler version 2.2.2 [2008/08/03] for i386
Target OS: Win32 for i386
14/9-2008 10:21:42
14-09-2008 10:21:42
----------------------------------
Program tt;
uses sysutils;
Type
Datetime_typ=Packed record
year,month,day,hour,min,sec,sec100,dayOfWeek:word;
end;
procedure UnpackTime(pdt:LongWord; var d:dateTime_typ);
begin
d.sec:=(pdt and 31) *2;
pdt:=pdt shr 5;
d.min:=pdt and 63;
pdt:=pdt shr 6;
d.hour:=pdt and 31;
pdt:=pdt shr 5;
d.day:=pdt and 31;
pdt:=pdt shr 5;
d.month:=pdt and 15;
pdt:=pdt shr 4;
d.year:=pdt+1980;
end;
function strPackTime(t:longWord):shortstring;
var
dt:Datetime_typ;
begin
UnpackTime(t,dt);
strPackTime:=intToStr(dt.day)+'/'+
intToStr(dt.month)+'-'+
intToStr(dt.year)+' '+
intToStr(dt.hour)+':'+
intToStr(dt.min)+':'+
intToStr(dt.sec)+' ';
end;
Begin
WriteLn(strPackTime(DateTimeToFileDate(now)));
WriteLn(DateTimeToStr(FileDateToDateTime(DateTimeToFileDate(now))))
;
End.
------------------------------------
Med venlig hilsen
Carsten Bager
BEAS A/S
Brørupvænget 10
DK-7650 Bøvlingbjerg
Tlf. : +45 9788 5222 Fax : +45 9788 5434
www.beas.dk
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
