|
|
@@ -1960,10 +1960,9 @@
|
|
|
procedure check_rec_inittable(s : pnamedindexobject);
|
|
|
|
|
|
begin
|
|
|
- if (psym(s)^.typ=varsym) and
|
|
|
- ((pvarsym(s)^.definition^.deftype<>objectdef) or
|
|
|
- not(pobjectdef(pvarsym(s)^.definition)^.is_class)) then
|
|
|
- binittable:=pvarsym(s)^.definition^.needs_inittable;
|
|
|
+ if (not binittable) and
|
|
|
+ (psym(s)^.typ=varsym) then
|
|
|
+ binittable:=pvarsym(s)^.definition^.needs_inittable;
|
|
|
end;
|
|
|
|
|
|
|
|
|
@@ -3859,7 +3858,10 @@ Const local_symtable_index : longint = $8001;
|
|
|
|
|
|
{
|
|
|
$Log$
|
|
|
- Revision 1.168 1999-10-01 10:05:44 peter
|
|
|
+ Revision 1.169 1999-10-03 19:41:38 peter
|
|
|
+ * inittable for record fixed (it was only checking for classes)
|
|
|
+
|
|
|
+ Revision 1.168 1999/10/01 10:05:44 peter
|
|
|
+ procedure directive support in const declarations, fixes bug 232
|
|
|
|
|
|
Revision 1.167 1999/10/01 08:02:48 peter
|
peter