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

* fixed crash with assigned()

Browse Source
This commit is contained in:
peter 1999-09-01 22:08:58 +00:00
parent e767ef9897
commit 678aa200f1
1 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/pexpr.pas
View File

@ -265,15 +265,19 @@ unit pexpr;
p1:=comp_expr(true);
Must_be_valid:=true;
do_firstpass(p1);
case p1^.resulttype^.deftype of
pointerdef,
procvardef,
classrefdef : ;
objectdef : if not(pobjectdef(p1^.resulttype)^.is_class) then
Message(parser_e_illegal_parameter_list);
else
Message(parser_e_illegal_parameter_list);
end;
if not codegenerror then
begin
case p1^.resulttype^.deftype of
pointerdef,
procvardef,
classrefdef : ;
objectdef :
if not(pobjectdef(p1^.resulttype)^.is_class) then
Message(parser_e_illegal_parameter_list);
else
Message(parser_e_illegal_parameter_list);
end;
end;
p2:=gencallparanode(p1,nil);
p2:=geninlinenode(in_assigned_x,false,p2);
consume(_RKLAMMER);
@ -2076,7 +2080,10 @@ _LECKKLAMMER : begin
end.
{
$Log$
Revision 1.136 1999-08-15 22:47:45 peter
Revision 1.137 1999-09-01 22:08:58 peter
* fixed crash with assigned()
Revision 1.136 1999/08/15 22:47:45 peter
* fixed property writeaccess which was buggy after my previous
subscribed property access