On Sun, 14 Sep 2008 10:38:25 +0200 "Carsten Bager" <[EMAIL PROTECTED]> wrote:
> > 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). The FileDate format differ on unix and windows. UnpackTime uses the windows format. You need another function for unix. Mattias > > 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 _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
