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

fcl-db: sqldb: fixes AV when SQL is empty, Cursor is not allocated yet. Bug #29124

Browse Source 
git-svn-id: trunk@32566 -
This commit is contained in:
lacak 2015-12-02 06:37:49 +00:00
parent 8df979e5e8
commit 6f9d542d81
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1228,11 +1228,11 @@ begin
if not ATransaction.Active then if not ATransaction.Active then
ATransaction.MaybeStartTransaction; ATransaction.MaybeStartTransaction;
try SQL := TrimRight(SQL);
SQL := TrimRight(SQL); if SQL = '' then
if SQL = '' then DatabaseError(SErrNoStatement);
DatabaseError(SErrNoStatement);
try
Cursor := AllocateCursorHandle; Cursor := AllocateCursorHandle;
Cursor.FStatementType := stUnknown; Cursor.FStatementType := stUnknown;
If LogEvent(detPrepare) then If LogEvent(detPrepare) then