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

* fixed object(unknown) crash

Browse Source
This commit is contained in:
peter 1998-10-20 13:09:13 +00:00
parent 1e126715b8
commit 309ac0b4cb
1 changed files with 19 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/pdecl.pas
View File

@ -1156,11 +1156,14 @@ unit pdecl;
begin begin
Message(type_e_class_type_expected); Message(type_e_class_type_expected);
childof:=nil; childof:=nil;
end; end
else
begin
{ a mix of class and object isn't allowed } { a mix of class and object isn't allowed }
if (((childof^.options and oo_is_class)<>0) and not is_a_class) or if (((childof^.options and oo_is_class)<>0) and not is_a_class) or
(((childof^.options and oo_is_class)=0) and is_a_class) then (((childof^.options and oo_is_class)=0) and is_a_class) then
Message(parser_e_mix_of_classes_and_objects); Message(parser_e_mix_of_classes_and_objects);
end;
if assigned(fd) then if assigned(fd) then
begin begin
{ the forward of the child must be resolved to get { the forward of the child must be resolved to get
@ -2078,7 +2081,10 @@ unit pdecl;
end. end.
{ {
$Log$ $Log$
Revision 1.73 1998-10-19 08:54:56 pierre Revision 1.74 1998-10-20 13:09:13 peter
* fixed object(unknown) crash
Revision 1.73 1998/10/19 08:54:56 pierre
* wrong stabs info corrected once again !! * wrong stabs info corrected once again !!
+ variable vmt offset with vmt field only if required + variable vmt offset with vmt field only if required
implemented now !!! implemented now !!!