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

* removed invalid code from proc_get_importname where the result could be empty

Browse Source 
git-svn-id: trunk@6926 -
This commit is contained in:
peter 2007-03-18 21:35:42 +00:00
parent 6ed78067b6
commit 6db1d803fa
1 changed files with 9 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/pdecsub.pas
View File

@ -2116,24 +2116,16 @@ const
need to use the normal name since to functions can refer to the need to use the normal name since to functions can refer to the
same DLL function. This is also needed for compatability same DLL function. This is also needed for compatability
with Delphi and TP7 } with Delphi and TP7 }
case target_info.system of if assigned(pd.import_name) then
system_i386_emx, begin
system_i386_os2 : if target_info.system in system_all_windows then
begin { cprefix is not used in DLL imports under Windows }
{ keep normal mangledname } result:=pd.import_name^
end;
else
if assigned(pd.import_name) then
begin
if target_info.system in system_all_windows then
{ cprefix is not used in DLL imports under Windows }
result:=pd.import_name^
else
result:=maybe_cprefix(pd.import_name^);
end
else else
result:=ExtractFileName(pd.import_dll^)+'_index_'+tostr(pd.import_nr); result:=maybe_cprefix(pd.import_name^);
end; end
else
result:=ExtractFileName(pd.import_dll^)+'_index_'+tostr(pd.import_nr);
end end
else else
result:=maybe_cprefix(pd.import_name^); result:=maybe_cprefix(pd.import_name^);