diff options
author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-02-17 21:09:45 +0000 |
---|---|---|
committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-02-17 21:09:45 +0000 |
commit | c4d7b6f0d95f40ee7cb6da910d10d312fb37cc16 (patch) | |
tree | 9b7be58546d551295b64849577d64bec00b7df85 | |
parent | 26cf743c7487077057454159c23916ce3626cd67 (diff) | |
download | fpc-c4d7b6f0d95f40ee7cb6da910d10d312fb37cc16.tar.gz |
* Merging revisions 48702 from trunk:
------------------------------------------------------------------------
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: https://svn.freepascal.org/svn/fpc/branches/fixes_3_2@48703 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | packages/fcl-db/src/sqldb/sqldb.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/fcl-db/src/sqldb/sqldb.pp b/packages/fcl-db/src/sqldb/sqldb.pp index af867e6aaf..b571d8c77e 100644 --- a/packages/fcl-db/src/sqldb/sqldb.pp +++ b/packages/fcl-db/src/sqldb/sqldb.pp @@ -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 |