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

* tp_procvar mode call->loadn fixed

Browse Source
This commit is contained in:
peter 1999-08-12 14:34:28 +00:00
parent 420127efe6
commit 631d19fc85
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/tccal.pas
View File

@ -344,7 +344,7 @@ implementation
oldcallprocsym : pprocsym;
nextprocsym : pprocsym;
def_from,def_to,conv_to : pdef;
pt,inlinecode : ptree;
hpt,pt,inlinecode : ptree;
exactmatch,inlined : boolean;
paralength,l,lastpara : longint;
lastparatype : pdef;
@ -599,12 +599,15 @@ implementation
if not(assigned(p^.left)) and
(m_tp_procvar in aktmodeswitches) then
begin
p^.treetype:=loadn;
p^.resulttype:=pprocsym(p^.symtableprocentry)^.definition;
p^.symtableentry:=p^.symtableprocentry;
p^.is_first:=false;
p^.disposetyp:=dt_nothing;
firstpass(p);
if (p^.symtableprocentry^.owner^.symtabletype=objectsymtable) and
(pobjectdef(p^.symtableprocentry^.owner^.defowner)^.is_class) then
hpt:=genloadmethodcallnode(pprocsym(p^.symtableprocentry),p^.symtableproc,
getcopy(p^.methodpointer))
else
hpt:=genloadcallnode(pprocsym(p^.symtableprocentry),p^.symtableproc);
disposetree(p);
firstpass(hpt);
p:=hpt;
end
else
begin
@ -1195,7 +1198,10 @@ implementation
end.
{
$Log$
Revision 1.57 1999-08-05 16:53:19 peter
Revision 1.58 1999-08-12 14:34:28 peter
* tp_procvar mode call->loadn fixed
Revision 1.57 1999/08/05 16:53:19 peter
* V_Fatal=1, all other V_ are also increased
* Check for local procedure when assigning procvar
* fixed comment parsing because directives