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

* fix for tw3261

Browse Source
This commit is contained in:
peter 2004-08-25 15:57:19 +00:00
parent db2ac3bc57
commit d3545c4e4c
1 changed files with 5 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/pdecsub.pas
View File

@ -1206,7 +1206,6 @@ var
import_dll, import_dll,
import_name : string; import_name : string;
import_nr : word; import_nr : word;
hpd : tprocdef;
begin begin
if pd.deftype<>procdef then if pd.deftype<>procdef then
internalerror(2003042615); internalerror(2003042615);
@ -1243,17 +1242,7 @@ begin
current_module.uses_imports:=true; current_module.uses_imports:=true;
importlib.preparelib(current_module.modulename^); importlib.preparelib(current_module.modulename^);
end; end;
if not(m_repeat_forward in aktmodeswitches) then importlib.importprocedure(tprocdef(pd),import_dll,import_nr,import_name);
begin
{ we can only have one overloaded here ! }
if tprocsym(tprocdef(pd).procsym).procdef_count>1 then
hpd:=tprocsym(tprocdef(pd).procsym).procdef[2]
else
hpd:=tprocdef(pd);
end
else
hpd:=tprocdef(pd);
importlib.importprocedure(hpd,import_dll,import_nr,import_name);
end end
else else
begin begin
@ -2275,7 +2264,10 @@ const
end. end.
{ {
$Log$ $Log$
Revision 1.188 2004-08-22 20:11:38 florian Revision 1.189 2004-08-25 15:57:19 peter
* fix for tw3261
Revision 1.188 2004/08/22 20:11:38 florian
* morphos now takes any pointer var. as libbase * morphos now takes any pointer var. as libbase
* alignment for sparc fixed * alignment for sparc fixed
* int -> double conversion on sparc fixed * int -> double conversion on sparc fixed