paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:46:00 +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

19
compiler/pexpr.pas
View File

@ -1804,10 +1804,18 @@ implementation
end end
else else
begin begin
{ we didn't find a member in the parents so if auto_inherited then
we do nothing. This is compatible with delphi (PFV) } begin
{ we didn't find a member in the parents so
we do nothing. This is compatible with delphi (PFV) }
p1:=cnothingnode.create;
end
else
begin
Message1(sym_e_id_no_member,hs);
p1:=cerrornode.create;
end;
again:=false; again:=false;
p1:=cnothingnode.create;
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