paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 11:49:24 +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); procedure TNamedIndexItem.setname(const n:string);
begin begin
if speedvalue=cardinal($ffffffff) then if assigned(FName) then
begin stringdispose(FName);
if assigned(FName) then fspeedvalue:=getspeedvalue(n);
stringdispose(FName); {$ifdef compress}
fspeedvalue:=getspeedvalue(n); FName:=stringdup(minilzw_encode(n));
{$ifdef compress} {$else}
FName:=stringdup(minilzw_encode(n)); FName:=stringdup(n);
{$else} {$endif}
FName:=stringdup(n);
{$endif}
end;
end; end;
@ -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