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

* allow doubles in TLinkContainer needed for double libraries

Browse Source
This commit is contained in:
pierre 1999-10-28 13:14:00 +00:00
parent 0ebed10479
commit 4849432ede
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/files.pas
View File

@ -733,8 +733,8 @@ end;
var var
newnode : plinkcontaineritem; newnode : plinkcontaineritem;
begin begin
if find(s) then {if find(s) then
exit; exit; }
new(newnode,init(s,m)); new(newnode,init(s,m));
inherited insert(newnode); inherited insert(newnode);
end; end;
@ -1340,7 +1340,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.104 1999-09-27 23:40:12 peter Revision 1.105 1999-10-28 13:14:00 pierre
* allow doubles in TLinkContainer needed for double libraries
Revision 1.104 1999/09/27 23:40:12 peter
* fixed macro within macro endless-loop * fixed macro within macro endless-loop
Revision 1.103 1999/09/16 08:00:50 pierre Revision 1.103 1999/09/16 08:00:50 pierre