|
@@ -336,7 +336,7 @@ implementation
|
|
begin
|
|
begin
|
|
consume(_SET);
|
|
consume(_SET);
|
|
consume(_OF);
|
|
consume(_OF);
|
|
- read_anon_type(tt2,true);
|
|
|
|
|
|
+ read_type(tt2,'',true);
|
|
if assigned(tt2.def) then
|
|
if assigned(tt2.def) then
|
|
begin
|
|
begin
|
|
case tt2.def.deftype of
|
|
case tt2.def.deftype of
|