paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 07:34:28 +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
hp1 : timportList;
hp2 : twin32imported_item;
{$ifdef arm}
mangledstring : string;
{$endif arm}
begin
AsmPrefix:='imp'+Lower(current_module.modulename^);
idatalabnr:=0;
@ -429,11 +431,15 @@ implementation
hp2:=twin32imported_item(hp1.imported_items.first);
while assigned(hp2) do
begin
{$ifdef arm}
if assigned(hp2.procdef) then
mangledstring:=hp2.procdef.mangledname
else
mangledstring:=hp2.name^;
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);
end;
EndImport;