paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 08:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix bug #294 in a BP compatible way ie. hidding the function result

Browse Source
This commit is contained in:
pierre 2000-03-27 21:15:34 +00:00
parent 36df88a15d
commit 861a491bbd
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/symtable.pas
View File

@ -1790,9 +1790,15 @@ implementation
hsym:=next^.search(sym^.name);
{ a parameter and the function can have the same }
{ name in TP and Delphi }
if assigned(hsym) and
(sym^.typ<>funcretsym) then
DuplicateSym(hsym);
if assigned(hsym) then
begin
if (sym^.typ<>funcretsym) then
DuplicateSym(hsym)
else
begin
sym^.setname('hidden'+sym^.name);
end;
end;
end
else if (current_module^.flags and uf_local_browser)=0 then
internalerror(43789);
@ -2808,7 +2814,10 @@ implementation
end.
{
$Log$
Revision 1.82 2000-03-22 09:25:57 florian
Revision 1.83 2000-03-27 21:15:34 pierre
* fix bug 294 in a BP compatible way ie. hidding the function result
Revision 1.82 2000/03/22 09:25:57 florian
* bug 294 fixed: parameters can have now the same name as the function/
procedure, this is compatible with TP/Delphi