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

* problem with DOM solved: it crashes when accessing a property in a method

Browse Source
This commit is contained in:
florian 1998-05-04 11:22:26 +00:00
parent dfe798412e
commit f0daa16b41
1 changed files with 22 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/pexpr.pas
View File

@ -497,8 +497,15 @@ unit pexpr;
begin
if assigned(paras) then
message(parser_e_no_paras_allowed);
p1:=gensubscriptnode(pvarsym(
ppropertysym(sym)^.readaccesssym),p1);
{ subscribed access? }
if p1=nil then
begin
p1:=genloadnode(pvarsym(ppropertysym(sym)^.readaccesssym),
ppropertysym(sym)^.readaccesssym^.owner);
end
else
p1:=gensubscriptnode(pvarsym(
ppropertysym(sym)^.readaccesssym),p1);
{ to be on the save side }
oldafterassignment:=afterassignment;
consume(ASSIGNMENT);
@ -530,8 +537,15 @@ unit pexpr;
begin
if assigned(paras) then
message(parser_e_no_paras_allowed);
p1:=gensubscriptnode(pvarsym(
ppropertysym(sym)^.readaccesssym),p1);
{ subscribed access? }
if p1=nil then
begin
p1:=genloadnode(pvarsym(ppropertysym(sym)^.readaccesssym),
ppropertysym(sym)^.readaccesssym^.owner);
end
else
p1:=gensubscriptnode(pvarsym(
ppropertysym(sym)^.readaccesssym),p1);
end
else if ppropertysym(sym)^.readaccesssym^.typ=procsym then
begin
@ -1665,7 +1679,10 @@ unit pexpr;
end.
{
$Log$
Revision 1.10 1998-05-01 16:38:45 florian
Revision 1.11 1998-05-04 11:22:26 florian
* problem with DOM solved: it crashes when accessing a property in a method
Revision 1.10 1998/05/01 16:38:45 florian
* handling of private and protected fixed
+ change_keywords_to_tp implemented to remove
keywords which aren't supported by tp