diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-03-07 19:02:54 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-03-07 19:02:54 +0000 |
| commit | 2eaf8fa2ceda83aa9e9182447d5671bd43f2a7ab (patch) | |
| tree | 2cf6d6d2a90b48e51ef331f37c5a8ca7bb0a6c52 | |
| parent | 7703058ffc26e5bbdd98a78bc585a8188958c595 (diff) | |
| download | fpc-2eaf8fa2ceda83aa9e9182447d5671bd43f2a7ab.tar.gz | |
* Fix bug 38330: reset line number on execute (1-based)
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@48900 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | packages/fcl-db/src/base/sqlscript.pp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/packages/fcl-db/src/base/sqlscript.pp b/packages/fcl-db/src/base/sqlscript.pp index fa196f23c7..1d3fe93011 100644 --- a/packages/fcl-db/src/base/sqlscript.pp +++ b/packages/fcl-db/src/base/sqlscript.pp @@ -284,6 +284,7 @@ begin FUseDollarString:=AValue; RecalcSeps; end; + function TCustomSQLScript.GetLine: Integer; begin Result:=FLine - 1; @@ -507,7 +508,7 @@ begin FIsSkipping:=False; FSkipStackIndex:=0; Faborted:=False; - FLine:=0; + FLine:=1; DefaultDirectives; Repeat NextStatement(); |