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

* Find the correct procvar to load when using @ in fpc mode

Browse Source
This commit is contained in:
peter 2003-01-16 22:12:22 +00:00
parent da14652287
commit 14f92fa36f
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/pexpr.pas
View File

@ -649,8 +649,12 @@ implementation
to get the address in some cases } to get the address in some cases }
if assigned(getprocvardef) then if assigned(getprocvardef) then
begin begin
if (block_type=bt_const) then if (block_type=bt_const) or
getaddr:=true getaddr then
begin
aprocdef:=Tprocsym(sym).search_procdef_byprocvardef(getprocvardef);
getaddr:=true;
end
else else
if (m_tp_procvar in aktmodeswitches) then if (m_tp_procvar in aktmodeswitches) then
begin begin
@ -2320,7 +2324,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.100 2003-01-15 01:44:32 peter Revision 1.101 2003-01-16 22:12:22 peter
* Find the correct procvar to load when using @ in fpc mode
Revision 1.100 2003/01/15 01:44:32 peter
* merged methodpointer fixes from 1.0.x * merged methodpointer fixes from 1.0.x
Revision 1.98 2003/01/12 17:51:42 peter Revision 1.98 2003/01/12 17:51:42 peter