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

+ Patch from peter to hide system unit as symbol

Browse Source
This commit is contained in:
michael 2004-05-11 06:59:35 +00:00
parent 7f2606ed8a
commit e1a62208f0
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/pdecsub.pas
View File

@ -717,9 +717,8 @@ implementation
(aprocsym.typ<>procsym) then (aprocsym.typ<>procsym) then
begin begin
{ when the other symbol is a unit symbol then hide the unit { when the other symbol is a unit symbol then hide the unit
symbol. Only in tp mode because it's bad programming } symbol }
if (m_duplicate_names in aktmodeswitches) and if (aprocsym.typ=unitsym) then
(aprocsym.typ=unitsym) then
begin begin
aprocsym.owner.rename(aprocsym.name,'hidden'+aprocsym.name); aprocsym.owner.rename(aprocsym.name,'hidden'+aprocsym.name);
searchagain:=true; searchagain:=true;
@ -2239,7 +2238,10 @@ const
end. end.
{ {
$Log$ $Log$
Revision 1.174 2004-05-09 12:49:14 peter Revision 1.175 2004-05-11 06:59:35 michael
+ Patch from peter to hide system unit as symbol
Revision 1.174 2004/05/09 12:49:14 peter
C directive is mac only C directive is mac only
Revision 1.173 2004/05/03 20:02:42 jonas Revision 1.173 2004/05/03 20:02:42 jonas