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

fcl-passrc: fixed build broken since r36006

Browse Source 
git-svn-id: trunk@36020 -
This commit is contained in:
Károly Balogh 2017-04-29 22:56:12 +00:00
parent 01ebb52ba8
commit a25912da0d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-passrc/src/paswrite.pp
View File

@ -190,7 +190,7 @@ begin
begin
if i > 0 then
wrt(', ');
wrt(ASection.UsesClause[i].Identifier);
wrt(ASection.UsesClause[i].Name);
if ASection.UsesClause[i].InFilename is TPrimitiveExpr then
wrt(' in '''+TPrimitiveExpr(ASection.UsesClause[i].InFilename).Value+'''');
end