* typecanbeforward wasn't always restored in object_dec which

sometimes caused strange effects
This commit is contained in:
florian 1999-03-22 22:10:25 +00:00
parent cb0660deaa
commit 706eedfedd

View File

@ -1149,6 +1149,7 @@ unit pdecl;
Message(type_e_class_type_expected); Message(type_e_class_type_expected);
object_dec:=new(perrordef,init); object_dec:=new(perrordef,init);
end; end;
typecanbeforward:=storetypeforwardsallowed;
exit; exit;
end end
{ forward class } { forward class }
@ -1172,6 +1173,7 @@ unit pdecl;
aktclass^.insertvmt; aktclass^.insertvmt;
object_dec:=aktclass; object_dec:=aktclass;
typecanbeforward:=storetypeforwardsallowed;
exit; exit;
end; end;
end; end;
@ -2216,7 +2218,11 @@ unit pdecl;
end. end.
{ {
$Log$ $Log$
Revision 1.102 1999-03-05 01:14:26 pierre Revision 1.103 1999-03-22 22:10:25 florian
* typecanbeforward wasn't always restored in object_dec which
sometimes caused strange effects
Revision 1.102 1999/03/05 01:14:26 pierre
* bug0198 : call conventions for methods * bug0198 : call conventions for methods
not yet implemented is the control of same calling convention not yet implemented is the control of same calling convention
for virtual and child's virtual for virtual and child's virtual