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

* small error fix

Browse Source
This commit is contained in:
pierre 2000-06-19 19:56:43 +00:00
parent 9fee5cffce
commit dc05338a37
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/browcol.pas
View File

@ -867,6 +867,7 @@ begin
S:=GetStr(Name)+' '+IntToStr(Index);
if Assigned(Symbol) and (UpcaseStr(Symbol^.GetName)<>UpcaseStr(GetStr(Name))) then
S:=S+' ('+Symbol^.GetName+')';
GetDisplayText:=S;
end;
destructor TExport.Done;
@ -2077,7 +2078,10 @@ begin
end.
{
$Log$
Revision 1.40 2000-06-16 06:08:44 pierre
Revision 1.41 2000-06-19 19:56:43 pierre
* small error fix
Revision 1.40 2000/06/16 06:08:44 pierre
*Gabor's changes
Revision 1.39 2000/05/29 10:04:40 pierre
@ -2147,4 +2151,4 @@ end.
* moved bitmask constants to sets
* some other type/const renamings
}
}