paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 14:49:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* allow setting of name in dictionary always. Otherwise it is never

Browse Source 
possible to create an item with a name and rename before insert
    this is used in the symtable to hide the current symbol
This commit is contained in:
peter 2004-05-24 17:30:09 +00:00
parent b418b29283
commit 7fc9369945
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/cclasses.pas
View File

@ -1229,8 +1229,6 @@ end;
procedure TNamedIndexItem.setname(const n:string); procedure TNamedIndexItem.setname(const n:string);
begin
if speedvalue=cardinal($ffffffff) then
begin begin
if assigned(FName) then if assigned(FName) then
stringdispose(FName); stringdispose(FName);
@ -1241,7 +1239,6 @@ end;
FName:=stringdup(n); FName:=stringdup(n);
{$endif} {$endif}
end; end;
end;
function TNamedIndexItem.GetName:string; function TNamedIndexItem.GetName:string;
@ -2303,7 +2300,12 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.32 2004-05-23 14:31:31 peter Revision 1.33 2004-05-24 17:30:09 peter
* allow setting of name in dictionary always. Otherwise it is never
possible to create an item with a name and rename before insert
this is used in the symtable to hide the current symbol
Revision 1.32 2004/05/23 14:31:31 peter
* count fixes for tlinkedlist * count fixes for tlinkedlist
Revision 1.31 2004/04/28 18:02:54 peter Revision 1.31 2004/04/28 18:02:54 peter