mattias 6 лет назад
Родитель
Сommit
a7f83de90c
1 измененных файлов с 0 добавлено и 1 удалено
  1. 0 1
      compiler/packages/fcl-passrc/src/pasresolver.pp

+ 0 - 1
compiler/packages/fcl-passrc/src/pasresolver.pp

@@ -16935,7 +16935,6 @@ var
   AncestorScope, HelperScope: TPasClassScope;
   AncestorScope, HelperScope: TPasClassScope;
   C: TClass;
   C: TClass;
 begin
 begin
-  writeln('AAA1 TPasResolver.GroupScope_AddTypeAndAncestors ',GetObjName(HiType));
   HiType:=ResolveAliasType(HiType,false);
   HiType:=ResolveAliasType(HiType,false);
   LoType:=ResolveAliasType(HiType);
   LoType:=ResolveAliasType(HiType);
   IsClass:=LoType.ClassType=TPasClassType;
   IsClass:=LoType.ClassType=TPasClassType;