paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 20:50:42 +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

26
compiler/cclasses.pas
View File

@ -1230,17 +1230,14 @@ end;
procedure TNamedIndexItem.setname(const n:string);
begin
if speedvalue=cardinal($ffffffff) then
begin
if assigned(FName) then
stringdispose(FName);
fspeedvalue:=getspeedvalue(n);
{$ifdef compress}
FName:=stringdup(minilzw_encode(n));
{$else}
FName:=stringdup(n);
{$endif}
end;
if assigned(FName) then
stringdispose(FName);
fspeedvalue:=getspeedvalue(n);
{$ifdef compress}
FName:=stringdup(minilzw_encode(n));
{$else}
FName:=stringdup(n);
{$endif}
end;
@ -2303,7 +2300,12 @@ end;
end.
{
$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
Revision 1.31 2004/04/28 18:02:54 peter