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

* fixed tw2273

Browse Source
This commit is contained in:
peter 2003-01-14 23:48:09 +00:00
parent 9addbba86a
commit ea989e01cc
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/pexpr.pas
View File

@ -1803,11 +1803,19 @@ implementation
include(p1.flags,nf_auto_inherited); include(p1.flags,nf_auto_inherited);
end end
else else
begin
if auto_inherited then
begin begin
{ we didn't find a member in the parents so { we didn't find a member in the parents so
we do nothing. This is compatible with delphi (PFV) } we do nothing. This is compatible with delphi (PFV) }
again:=false;
p1:=cnothingnode.create; p1:=cnothingnode.create;
end
else
begin
Message1(sym_e_id_no_member,hs);
p1:=cerrornode.create;
end;
again:=false;
end; end;
{ turn auto inheriting off } { turn auto inheriting off }
auto_inherited:=false; auto_inherited:=false;
@ -2312,7 +2320,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.98 2003-01-12 17:51:42 peter Revision 1.99 2003-01-14 23:48:09 peter
* fixed tw2273
Revision 1.98 2003/01/12 17:51:42 peter
* tp procvar handling fix for tb0448 * tp procvar handling fix for tb0448
Revision 1.97 2003/01/05 22:44:14 peter Revision 1.97 2003/01/05 22:44:14 peter