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

* Merging revisions 48702 from trunk:

Browse Source 
------------------------------------------------------------------------
    r48702 | michael | 2021-02-17 22:07:57 +0100 (Wed, 17 Feb 2021) | 1 line
    
    * Cursor can be nil, patch from Mattias Gaertner
    ------------------------------------------------------------------------

git-svn-id: tags/release_3_2_2_rc1@48704 -
This commit is contained in:
michael 2021-02-17 22:04:04 +00:00
parent ee8bb72f68
commit f4ee3fdafc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-db/src/sqldb/sqldb.pp
View File

@ -3122,7 +3122,7 @@ begin
UpdateServerIndexDefs;
FStatement.Execute;
if not Cursor.FSelectable then
if (Cursor=nil) or (not Cursor.FSelectable) then
DatabaseError(SErrNoSelectStatement,Self);
// InternalInitFieldDef is only called after a prepare. i.e. not twice if