anchor.diff:    pprio: integer;
     tmp, pname, packn, ppackn: string;
     i,j:  integer;
  +  tpar: TUClass;
   begin
     guard('CreateClassTree');
     pprio := 0;
  
positive.code:         // in case of a partially qualified name, duplicate parent classname
          // check for a local (in this package) parent and use that
          if ((packn = '') and (parent <> nil) and DuplicateHash.Exists(LowerCase(parent.name))) then begin
            if (classlist[i].package.classes.Find(parent.name) <> parent) then begin
              InternalLog('Scanner: Found local parent class for '+classlist[i].FullName, ltInfo, CreateLogEntry(classlist[i]));
              continue;
            end;
  
negative.code:   Purpose:
      UnrealScript package scanner, search for UnrealScript classes
  
    $Id: unit_packages.pas,v 1.53 2007-01-07 14:02:50 elmuerte Exp $
  *******************************************************************************}
  
  {
  