paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-08 22:29:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

* rename the result of a function to hide it instead of using setname

Browse Source
This commit is contained in:
peter 2000-06-14 19:00:58 +00:00
parent 8c272919f0
commit 43b224b136
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/symtable.pas
View File

@ -1857,7 +1857,7 @@ implementation
the user. (Under delphi it can still be accessed using result) (PFV) } the user. (Under delphi it can still be accessed using result) (PFV) }
if (hsym^.typ=funcretsym) and if (hsym^.typ=funcretsym) and
(m_tp in aktmodeswitches) then (m_tp in aktmodeswitches) then
hsym^.setname('hidden'+hsym^.name) hsym^.owner^.rename(hsym^.name,'hidden'+hsym^.name)
else else
begin begin
DuplicateSym(hsym); DuplicateSym(hsym);
@ -2925,7 +2925,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.98 2000-06-14 16:51:18 peter Revision 1.99 2000-06-14 19:00:58 peter
* rename the result of a function to hide it instead of using setname
Revision 1.98 2000/06/14 16:51:18 peter
* removed unused label i left in when testing * removed unused label i left in when testing
Revision 1.97 2000/06/09 21:34:40 peter Revision 1.97 2000/06/09 21:34:40 peter