paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-28 17:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed reraise last error when scan range increases

Browse Source 
git-svn-id: trunk@42042 -
This commit is contained in:
mattias 2013-07-09 19:53:43 +00:00
parent 81346fae7b
commit 0c9f482f89
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/linkscanner.pas
View File

@ -1723,11 +1723,12 @@ begin
// -> if there was an error and it was in a needed range, raise it again
if LastErrorIsValid then begin
// the error has happened in ScannedRange
if ExtractFileName(MainFilename)='blaunit.pas' then
debugln(['TLinkScanner.Scan ',MainFilename,' ScannedRange=',dbgs(ScannedRange),' Range=',dbgs(Range)]);
if ord(ScannedRange)>ord(Range) then begin
// error was not in needed range
end else if (ScannedRange=Range)
and ((not IgnoreErrorAfterValid)
or (not IgnoreErrAfterPositionIsInFrontOfLastErrMessage))
// error is behind needed range => ok
end else if (not IgnoreErrorAfterValid)
or (not IgnoreErrAfterPositionIsInFrontOfLastErrMessage)
then
RaiseLastError;
end;