paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:39:19 +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); hsym:=next^.search(sym^.name);
{ a parameter and the function can have the same } { a parameter and the function can have the same }
{ name in TP and Delphi } { name in TP and Delphi }
if assigned(hsym) and if assigned(hsym) then
(sym^.typ<>funcretsym) then begin
DuplicateSym(hsym); if (sym^.typ<>funcretsym) then
DuplicateSym(hsym)
else
begin
sym^.setname('hidden'+sym^.name);
end;
end;
end end
else if (current_module^.flags and uf_local_browser)=0 then else if (current_module^.flags and uf_local_browser)=0 then
internalerror(43789); internalerror(43789);
@ -2808,7 +2814,10 @@ implementation
end. end.
{ {
$Log$ $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/ * bug 294 fixed: parameters can have now the same name as the function/
procedure, this is compatible with TP/Delphi procedure, this is compatible with TP/Delphi