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

* fixed compilation on systems where comp = int64 (i.e., everything non-x86)

Browse Source 
and thus incompatible with floating point types

git-svn-id: trunk@1875 -
This commit is contained in:
Jonas Maebe 2005-12-04 17:48:26 +00:00
parent 3502898ba3
commit 3a8cd257b4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fcl/db/dataset.inc
View File

@ -538,7 +538,7 @@ begin
end;
else
try
TS:=MSecsToTimeStamp(Data.DateTime);
TS:=MSecsToTimeStamp(trunc(Data.DateTime));
except
end;
end;