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

* loadn procsym need to return procdef

Browse Source
This commit is contained in:
peter 2003-05-23 17:05:13 +00:00
parent e13e129c3c
commit 5b3a91188b
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/nld.pas
View File

@ -425,11 +425,10 @@ implementation
procdef:=tprocsym(symtableentry).first_procdef;
end;
{ Delphi returns Pointer as type }
if not(m_tp_procvar in aktmodeswitches) then
resulttype.setdef(procdef)
else
resulttype:=voidpointertype;
{ the result is a procdef, addrn and proc_to_procvar
typeconvn need this as resulttype so they know
that the address needs to be returned }
resulttype.setdef(procdef);
{ process methodpointer }
if assigned(left) then
@ -1214,7 +1213,10 @@ begin
end.
{
$Log$
Revision 1.94 2003-05-23 14:27:35 peter
Revision 1.95 2003-05-23 17:05:13 peter
* loadn procsym need to return procdef
Revision 1.94 2003/05/23 14:27:35 peter
* remove some unit dependencies
* current_procinfo changes to store more info