paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 02:30:48 +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; procdef:=tprocsym(symtableentry).first_procdef;
end; end;
{ Delphi returns Pointer as type } { the result is a procdef, addrn and proc_to_procvar
if not(m_tp_procvar in aktmodeswitches) then typeconvn need this as resulttype so they know
resulttype.setdef(procdef) that the address needs to be returned }
else resulttype.setdef(procdef);
resulttype:=voidpointertype;
{ process methodpointer } { process methodpointer }
if assigned(left) then if assigned(left) then
@ -1214,7 +1213,10 @@ begin
end. end.
{ {
$Log$ $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 * remove some unit dependencies
* current_procinfo changes to store more info * current_procinfo changes to store more info