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

* merged

Browse Source
This commit is contained in:
peter 1999-07-22 16:12:28 +00:00
parent 519af9bdcc
commit ca4715fee8
1 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/win_targ.pas
View File

@ -169,8 +169,19 @@ unit win_targ;
hp1:=new(pimportlist,init(hs));
current_module^.imports^.concat(hp1);
end;
hp2:=new(pimported_item,init(func,name,index));
hp1^.imported_items^.concat(hp2);
{ search for reuse of old import item }
hp2:=pimported_item(hp1^.imported_items^.first);
while assigned(hp2) do
begin
if hp2^.func^=func then
break;
hp2:=pimported_item(hp2^.next);
end;
if not assigned(hp2) then
begin
hp2:=new(pimported_item,init(func,name,index));
hp1^.imported_items^.concat(hp2);
end;
end;
@ -717,10 +728,16 @@ unit win_targ;
end.
{
$Log$
Revision 1.28 1999-07-18 10:20:03 florian
Revision 1.29 1999-07-22 16:12:28 peter
* merged
Revision 1.28 1999/07/18 10:20:03 florian
* made it compilable with Dlephi 4 again
+ fixed problem with large stack allocations on win32
Revision 1.27.2.1 1999/07/22 16:09:30 peter
* reuse old import entries
Revision 1.27 1999/05/27 19:45:30 peter
* removed oldasm
* plabel -> pasmlabel