paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 21:50:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed crash with an errordef

Browse Source
This commit is contained in:
peter 1999-11-14 15:57:35 +00:00
parent 2537225035
commit 8cbc068314
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pexpr.pas
View File

@ -1029,7 +1029,8 @@ unit pexpr;
{ we don't need sym reference when it's in the
current unit or system unit, because those
units are always loaded (PFV) }
if (pd^.owner^.unitid=0) or
if not(assigned(pd^.owner)) or
(pd^.owner^.unitid=0) or
(pd^.owner^.unitid=1) then
p1:=gentypenode(pd,nil)
else
@ -2113,7 +2114,10 @@ _LECKKLAMMER : begin
end.
{
$Log$
Revision 1.157 1999-11-08 14:02:16 florian
Revision 1.158 1999-11-14 15:57:35 peter
* fixed crash with an errordef
Revision 1.157 1999/11/08 14:02:16 florian
* problem with "index X"-properties solved
* typed constants of class references are now allowed