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

* better check for maybe_call_procvar

Browse Source
This commit is contained in:
peter 2004-03-04 17:22:10 +00:00
parent 53818575d3
commit 9625256d22
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/pstatmnt.pas
View File

@ -923,12 +923,14 @@ implementation
p:=expr; p:=expr;
{ When a colon follows a intconst then transform it into a label } { When a colon follows a intconst then transform it into a label }
if try_to_consume(_COLON) then if (p.nodetype=ordconstn) and
try_to_consume(_COLON) then
begin begin
s:=tostr(tordconstnode(p).value); s:=tostr(tordconstnode(p).value);
p.free; p.free;
searchsym(s,srsym,srsymtable); searchsym(s,srsym,srsymtable);
if assigned(srsym) then if assigned(srsym) and
(srsym.typ=labelsym) then
begin begin
if tlabelsym(srsym).defined then if tlabelsym(srsym).defined then
Message(sym_e_label_already_defined); Message(sym_e_label_already_defined);
@ -954,11 +956,11 @@ implementation
resulttypepass(tlabelnode(p).left); resulttypepass(tlabelnode(p).left);
end end
else else
begin
{ change a load of a procvar to a call. this is also { change a load of a procvar to a call. this is also
supported in fpc mode } supported in fpc mode }
maybe_call_procvar(p,false); if p.nodetype in [vecn,derefn,typeconvn,subscriptn,loadn] then
end; maybe_call_procvar(p,false);
{ blockn support because a read/write is changed into a blocknode } { blockn support because a read/write is changed into a blocknode }
{ with a separate statement for each read/write operation (JM) } { with a separate statement for each read/write operation (JM) }
@ -1100,7 +1102,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.131 2004-02-26 16:14:48 peter Revision 1.132 2004-03-04 17:22:10 peter
* better check for maybe_call_procvar
Revision 1.131 2004/02/26 16:14:48 peter
* withsymtables need to have the original tobject owner instead of * withsymtables need to have the original tobject owner instead of
the parent objectdef. Needed to check for visibility the parent objectdef. Needed to check for visibility