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

fcl-db: base: initialize local variable to zero. Bug #30928

Browse Source 
git-svn-id: trunk@34900 -
This commit is contained in:
lacak 2016-11-15 11:56:23 +00:00
parent a82a134be8
commit ae509ecd15
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-db/src/base/fields.inc
View File

@ -1631,12 +1631,13 @@ var L : Longint;
P : PLongint;
begin
L:=0;
P:=@L;
Result:=GetData(P);
If Result then
Case Datatype of
ftInteger,ftAutoinc : AValue:=Plongint(P)^;
ftWord : AValue:=Pword(P)^;
Case DataType of
ftInteger,ftAutoInc : AValue:=PLongint(P)^;
ftWord : AValue:=PWord(P)^;
ftSmallint : AValue:=PSmallint(P)^;
end;
end;