paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 01:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fix for win32 cycle

Browse Source
This commit is contained in:
michael 2004-11-18 10:06:19 +00:00
parent 5856d367b9
commit 4963306976
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/systems/t_win32.pas
View File

@ -141,12 +141,12 @@ implementation
current_module.imports.concat(hp1);
end;
{ search for reuse of old import item }
if name<>'' then
if assigned(aprocdef) then
begin
hp2:=twin32imported_item(hp1.imported_items.first);
while assigned(hp2) do
begin
if (hp2.name^=name) then
if (hp2.procdef=aprocdef) then
break;
hp2:=twin32imported_item(hp2.next);
end;
@ -156,7 +156,7 @@ implementation
hp2:=twin32imported_item(hp1.imported_items.first);
while assigned(hp2) do
begin
if (hp2.ordnr=index) then
if (hp2.func^=func) then
break;
hp2:=twin32imported_item(hp2.next);
end;
@ -1623,7 +1623,10 @@ initialization
end.
{
$Log$
Revision 1.44 2004-11-17 22:22:12 peter
Revision 1.45 2004-11-18 10:06:19 michael
+ Fix for win32 cycle
Revision 1.44 2004/11/17 22:22:12 peter
mangledname setting moved to place after the complete proc declaration is read
import generation moved to place where body is also parsed (still gives problems with win32)