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

* fixed for with and local object loading

Browse Source
This commit is contained in:
peter 2000-09-16 12:21:56 +00:00
parent 0161dba7ca
commit 0eab87b16a
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/cg386cal.pas
View File

@ -557,7 +557,8 @@ implementation
r^.base:=procinfo^.framepointer;
end; }
r^:=ptree(pwithsymtable(p^.symtable)^.withnode)^.withreference^;
if (not pwithsymtable(p^.symtable)^.direct_with) or
if ((not ptree(pwithsymtable(p^.symtable)^.withnode)^.islocal) and
(not pwithsymtable(p^.symtable)^.direct_with)) or
pobjectdef(p^.methodpointer^.resulttype)^.is_class then
emit_ref_reg(A_MOV,S_L,r,R_ESI)
else
@ -1588,7 +1589,10 @@ implementation
end.
{
$Log$
Revision 1.8 2000-09-10 20:18:06 peter
Revision 1.9 2000-09-16 12:21:56 peter
* fixed for with and local object loading
Revision 1.8 2000/09/10 20:18:06 peter
* fixed open array with cdecl
* fixed finalize call with unused function return