paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-09 22:09: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;
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();