paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-20 11:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #38330: reset line number on execute (1-based)

Browse Source 
git-svn-id: trunk@48900 -
This commit is contained in:
michael 2021-03-07 19:02:54 +00:00
parent cc9549dd85
commit 63c340cb27
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-db/src/base/sqlscript.pp
View File

@ -284,6 +284,7 @@ begin
FUseDollarString:=AValue; FUseDollarString:=AValue;
RecalcSeps; RecalcSeps;
end; end;
function TCustomSQLScript.GetLine: Integer; function TCustomSQLScript.GetLine: Integer;
begin begin
Result:=FLine - 1; Result:=FLine - 1;
@ -507,7 +508,7 @@ begin
FIsSkipping:=False; FIsSkipping:=False;
FSkipStackIndex:=0; FSkipStackIndex:=0;
Faborted:=False; Faborted:=False;
FLine:=0; FLine:=1;
DefaultDirectives; DefaultDirectives;
Repeat Repeat
NextStatement(); NextStatement();