paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 10:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for rev 3349.

Browse Source 
git-svn-id: trunk@3353 -
This commit is contained in:
yury 2006-04-29 11:54:06 +00:00
parent 600af6c9d0
commit 2fc45056c7
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/systems/t_win.pas
View File

@ -413,7 +413,9 @@ implementation
var var
hp1 : timportList; hp1 : timportList;
hp2 : twin32imported_item; hp2 : twin32imported_item;
{$ifdef arm}
mangledstring : string; mangledstring : string;
{$endif arm}
begin begin
AsmPrefix:='imp'+Lower(current_module.modulename^); AsmPrefix:='imp'+Lower(current_module.modulename^);
idatalabnr:=0; idatalabnr:=0;
@ -429,11 +431,15 @@ implementation
hp2:=twin32imported_item(hp1.imported_items.first); hp2:=twin32imported_item(hp1.imported_items.first);
while assigned(hp2) do while assigned(hp2) do
begin begin
{$ifdef arm}
if assigned(hp2.procdef) then if assigned(hp2.procdef) then
mangledstring:=hp2.procdef.mangledname mangledstring:=hp2.procdef.mangledname
else else
mangledstring:=hp2.name^; mangledstring:=hp2.name^;
AddImport(hp2.name^,mangledstring,hp2.ordnr,hp2.is_var); AddImport(hp2.name^,mangledstring,hp2.ordnr,hp2.is_var);
{$else arm}
AddImport(hp2.name^,hp2.name^,hp2.ordnr,hp2.is_var);
{$endif arm}
hp2:=twin32imported_item(hp2.next); hp2:=twin32imported_item(hp2.next);
end; end;
EndImport; EndImport;