paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 07:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* duplicate imports fix for gdb (merged)

Browse Source
This commit is contained in:
peter 2001-10-12 16:06:27 +00:00
parent e178da120d
commit b5d198ee3c
1 changed files with 30 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
compiler/targets/t_win32.pas
View File

@ -204,6 +204,7 @@ implementation
var
hp1 : timportlist;
importname : string;
suffix : integer;
hp2 : timported_item;
lhead,lname,lcode,
lidata4,lidata5 : tasmlabel;
@ -288,11 +289,23 @@ implementation
if assigned(hp2.name) then
begin
importname:='__imp_'+hp2.name^;
suffix:=0;
while assigned(getasmsymbol(importname)) do
begin
inc(suffix);
importname:='__imp_'+hp2.name^+'_'+tostr(suffix);
end;
importssection.concat(tai_symbol.createname(importname,4));
end
else
begin
importname:='__imp_by_ordinal'+tostr(hp2.ordnr);
suffix:=0;
while assigned(getasmsymbol(importname)) do
begin
inc(suffix);
importname:='__imp_by_ordinal'+tostr(hp2.ordnr)+'_'+tostr(suffix);
end;
importssection.concat(tai_symbol.createname(importname,4));
end;
end;
@ -334,6 +347,7 @@ implementation
hp2 : timported_item;
l1,l2,l3,l4 : tasmlabel;
importname : string;
suffix : integer;
r : preference;
begin
if (aktoutputformat<>as_i386_asw) and
@ -409,11 +423,23 @@ implementation
if assigned(hp2.name) then
begin
importname:='__imp_'+hp2.name^;
suffix:=0;
while assigned(getasmsymbol(importname)) do
begin
inc(suffix);
importname:='__imp_'+hp2.name^+'_'+tostr(suffix);
end;
importssection.concat(tai_symbol.createname(importname,4));
end
else
begin
importname:='__imp_by_ordinal'+tostr(hp2.ordnr);
suffix:=0;
while assigned(getasmsymbol(importname)) do
begin
inc(suffix);
importname:='__imp_by_ordinal'+tostr(hp2.ordnr)+'_'+tostr(suffix);
end;
importssection.concat(tai_symbol.createname(importname,4));
end;
end;
@ -1559,7 +1585,10 @@ initialization
end.
{
$Log$
Revision 1.19 2001-09-30 21:29:47 peter
Revision 1.20 2001-10-12 16:06:27 peter
* duplicate imports fix for gdb (merged)
Revision 1.19 2001/09/30 21:29:47 peter
* gdb fixes merged
Revision 1.18 2001/09/18 11:32:00 michael