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

* fixed compilation for targets where comp=int64

Browse Source
This commit is contained in:
florian 2004-12-15 23:02:42 +00:00
parent 7e4dadd69a
commit 3dc039da2c
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fcl/db/dsparams.inc
View File

@ -687,7 +687,7 @@ begin
ftMemo : AsMemo:=StrPas(Buffer);
ftTime : AsTime:=FromTimeStamp(PInteger(Buffer)^,DateDelta);
ftDate : Asdate:=FromTimeStamp(0,PInteger(Buffer)^);
ftDateTime : AsDateTime:=TimeStampToDateTime(MSecsToTimeStamp(PDouble(Buffer)^));
ftDateTime : AsDateTime:=TimeStampToDateTime(MSecsToTimeStamp(trunc(PDouble(Buffer)^)));
ftCursor : FValue:=0;
ftBlob,
ftGraphic..ftTypedBinary,
@ -700,7 +700,10 @@ end;
{
$Log$
Revision 1.1 2004-12-13 20:19:49 michael
Revision 1.2 2004-12-15 23:02:42 florian
* fixed compilation for targets where comp=int64
Revision 1.1 2004/12/13 20:19:49 michael
+ Initial implementation of params
}