fcl-passrc: fixed build broken since r36006

git-svn-id: trunk@36020 -

packages/fcl-passrc/src/paswrite.pp

@@ -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