paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 13:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes Joost's commit for non unix hopefully

Browse Source 
git-svn-id: trunk@3690 -
This commit is contained in:
florian 2006-05-27 08:35:56 +00:00
parent 6fa48a858a
commit 02db8f5c84
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/sysutils/dati.inc
View File

@ -756,7 +756,7 @@ Var Date,Time : Word;
begin begin
Date:=FileDate shr 16; Date:=FileDate shr 16;
Time:=FileDate and $ffff; Time:=FileDate and $ffff;
Result:=ComposeDate(EncodeDate((Date shr 9) + 1980,(Date shr 5) and 15, Date and 31), Result:=ComposeDateTime(EncodeDate((Date shr 9) + 1980,(Date shr 5) and 15, Date and 31),
EncodeTime(Time shr 11, (Time shr 5) and 63, (Time and 31) shl 1,0)); EncodeTime(Time shr 11, (Time shr 5) and 63, (Time and 31) shl 1,0));
end; end;
{$else unix} {$else unix}