diff options
author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-03-07 19:00:26 +0000 |
---|---|---|
committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-03-07 19:00:26 +0000 |
commit | 7703058ffc26e5bbdd98a78bc585a8188958c595 (patch) | |
tree | 3de17fbbf6ed9df78f620ff9cc911c943476ed1f | |
parent | 981e70aba6789628dda360fbd2fd77ad3837594b (diff) | |
download | fpc-7703058ffc26e5bbdd98a78bc585a8188958c595.tar.gz |
* Fix bug 38330: reset line number on execute
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@48899 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | packages/fcl-db/src/base/sqlscript.pp | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/packages/fcl-db/src/base/sqlscript.pp b/packages/fcl-db/src/base/sqlscript.pp index 4ec7400457..fa196f23c7 100644 --- a/packages/fcl-db/src/base/sqlscript.pp +++ b/packages/fcl-db/src/base/sqlscript.pp @@ -507,6 +507,7 @@ begin FIsSkipping:=False; FSkipStackIndex:=0; Faborted:=False; + FLine:=0; DefaultDirectives; Repeat NextStatement(); |