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

* fixed DLL importing by name

Browse Source 
git-svn-id: trunk@29540 -
This commit is contained in:
Tomas Hajny 2015-01-24 00:35:49 +00:00
parent 2f92aa8d48
commit f0132e252c
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/systems/t_os2.pas
View File

@ -330,17 +330,13 @@ begin
if index<>0 then if index<>0 then
begin begin
str(index,tmp3); str(index,tmp3);
(*
tmp3:=func+'='+module+'.'+tmp3;
*)
tmp3:=Name+'='+module+'.'+tmp3; tmp3:=Name+'='+module+'.'+tmp3;
end end
else else
tmp3:=Name+'='+module+'.'+name; (* tmp3:=Name+'='+module+'.'+name;
(*
tmp3:=func+'='+module+'.'+name;
aout_sym(tmp2,n_imp1+n_ext,0,0,0);
*) *)
tmp3 := MangledName + '=' + module + '.' + target_info.Cprefix + name;
aout_sym(tmp2,n_imp1+n_ext,0,0,0); aout_sym(tmp2,n_imp1+n_ext,0,0,0);
aout_sym(tmp3,n_imp2+n_ext,0,0,0); aout_sym(tmp3,n_imp2+n_ext,0,0,0);
aout_finish; aout_finish;