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

fcl-db: postgresql: fixes loading of field data of type FLOAT4

Browse Source 
(revealed by test TestSQLReal)

git-svn-id: trunk@23064 -
This commit is contained in:
lacak 2012-11-26 13:28:53 +00:00
parent f58150e3fd
commit f6e23e07f1
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
packages/fcl-db/src/sqldb/postgres/pqconnection.pp
View File

@ -780,7 +780,7 @@ type TNumericRecord = record
end;
var
x,i,j : integer;
x,i : integer;
s : string;
li : Longint;
CurrBuff : pchar;
@ -814,18 +814,22 @@ begin
result := true;
case FieldDef.DataType of
ftInteger, ftSmallint, ftLargeInt, ftFloat :
begin
i := PQfsize(res, x);
case i of // postgres returns big-endian numbers
sizeof(int64) : pint64(buffer)^ := BEtoN(pint64(CurrBuff)^);
sizeof(integer) : pinteger(buffer)^ := BEtoN(pinteger(CurrBuff)^);
sizeof(smallint) : psmallint(buffer)^ := BEtoN(psmallint(CurrBuff)^);
else
for j := 1 to i do
pchar(Buffer)[j-1] := CurrBuff[i-j];
ftInteger, ftSmallint, ftLargeInt :
case PQfsize(res, x) of // postgres returns big-endian numbers
sizeof(int64) : pint64(buffer)^ := BEtoN(pint64(CurrBuff)^); // INT8
sizeof(integer) : pinteger(buffer)^ := BEtoN(pinteger(CurrBuff)^); // INT4
sizeof(smallint) : psmallint(buffer)^ := BEtoN(psmallint(CurrBuff)^); // INT2
end; {case}
ftFloat :
case PQfsize(res, x) of // postgres returns big-endian numbers
sizeof(int64) : // FLOAT8
pint64(buffer)^ := BEtoN(pint64(CurrBuff)^);
sizeof(integer) : // FLOAT4
begin
li := BEtoN(pinteger(CurrBuff)^);
pdouble(buffer)^ := psingle(@li)^
end;
end; {case}
end;
ftString, ftFixedChar :
begin
case PQftype(res, x) of