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

* fixed crash with forward declared class of ...

Browse Source
This commit is contained in:
peter 1999-01-25 20:13:48 +00:00
parent ea2c9773fb
commit ad379bc2dd
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/pdecl.pas
View File

@ -2015,6 +2015,7 @@ unit pdecl;
{ check if it is the definition of a forward defined class } { check if it is the definition of a forward defined class }
if assigned(srsym) and (token=_CLASS) and if assigned(srsym) and (token=_CLASS) and
(srsym^.typ=typesym) and (srsym^.typ=typesym) and
(assigned(ptypesym(srsym)^.definition)) and
(ptypesym(srsym)^.definition^.deftype=objectdef) and (ptypesym(srsym)^.definition^.deftype=objectdef) and
((pobjectdef(ptypesym(srsym)^.definition)^.options and oo_isforward)<>0) and ((pobjectdef(ptypesym(srsym)^.definition)^.options and oo_isforward)<>0) and
((pobjectdef(ptypesym(srsym)^.definition)^.options and oo_is_class)<>0) then ((pobjectdef(ptypesym(srsym)^.definition)^.options and oo_is_class)<>0) then
@ -2139,7 +2140,10 @@ unit pdecl;
end. end.
{ {
$Log$ $Log$
Revision 1.94 1999-01-19 12:17:00 peter Revision 1.95 1999-01-25 20:13:48 peter
* fixed crash with forward declared class of ...
Revision 1.94 1999/01/19 12:17:00 peter
* fixed constant strings > 255 chars * fixed constant strings > 255 chars
Revision 1.93 1999/01/15 13:08:23 peter Revision 1.93 1999/01/15 13:08:23 peter