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

* Small CamelCase correction from Mattias Gaertner

Browse Source 
git-svn-id: trunk@35487 -
This commit is contained in:
michael 2017-02-28 13:20:00 +00:00
parent 689fa805eb
commit 220a293aef
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1167,7 +1167,7 @@ end;
function TFileResolver.FindSourceFile(const AName: string): TLineReader;
begin
if not FileExists(AName) then
Raise EFileNotFoundError.create(Aname)
Raise EFileNotFoundError.create(AName)
else
try
Result := CreateFileReader(AName)
@ -1183,7 +1183,7 @@ Var
begin
Result:=Nil;
FN:=FindIncludeFileName(ANAme);
FN:=FindIncludeFileName(AName);
If (FN<>'') then
try
Result := TFileLineReader.Create(FN);