paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 11:59:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed exceptionhandling scanner (2nd attempt to load file was not in an try..except). Bug reported on German laz forum

Browse Source 
git-svn-id: trunk@16333 -
This commit is contained in:
marco 2010-11-13 11:30:29 +00:00
parent 9248019e12
commit 1beef3f3f5
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-passrc/src/pscanner.pp
View File

@ -501,8 +501,12 @@ begin
if BaseDirectory<>'' then if BaseDirectory<>'' then
begin begin
FN:=SearchLowUpCase(BaseDirectory+AName); FN:=SearchLowUpCase(BaseDirectory+AName);
If (FN<>'') then try
If (FN<>'') then
Result := TFileLineReader.Create(FN); Result := TFileLineReader.Create(FN);
except
Result:=nil;
end;
end; end;
end; end;
end; end;