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

* fixed crash with error in child definition (merged)

Browse Source
This commit is contained in:
peter 2000-10-26 21:54:03 +00:00
parent 992275e5d4
commit c10d4a9846
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/pdecobj.pas
View File

@ -827,9 +827,11 @@ unit pdecobj;
consume(_LKLAMMER);
id_type(tt,pattern,false);
childof:=pobjectdef(tt.def);
if (childof^.deftype<>objectdef) then
if (not assigned(childof)) or
(childof^.deftype<>objectdef) then
begin
Message1(type_e_class_type_expected,childof^.typename);
if assigned(childof) then
Message1(type_e_class_type_expected,childof^.typename);
childof:=nil;
aktclass:=new(pobjectdef,init(n,nil));
end
@ -1077,7 +1079,10 @@ unit pdecobj;
end.
{
$Log$
Revision 1.2 2000-10-21 18:16:11 florian
Revision 1.3 2000-10-26 21:54:03 peter
* fixed crash with error in child definition (merged)
Revision 1.2 2000/10/21 18:16:11 florian
* a lot of changes:
- basic dyn. array support
- basic C++ support

6
compiler/ptype.pas
View File

@ -147,6 +147,7 @@ implementation
if (ptypesym(srsym)^.restype.def=generrordef) then
begin
Message(sym_e_error_in_type_def);
tt.setdef(generrordef);
exit;
end;
{ Only use the definitions for system/current unit, becuase
@ -582,7 +583,10 @@ implementation
end.
{
$Log$
Revision 1.11 2000-10-21 18:16:12 florian
Revision 1.12 2000-10-26 21:54:03 peter
* fixed crash with error in child definition (merged)
Revision 1.11 2000/10/21 18:16:12 florian
* a lot of changes:
- basic dyn. array support
- basic C++ support