anchor.diff:          {$IFDEF FPC}
           Inc(MethodInfo);
           {$ELSE}
  -        Inc(PByte(MethodInfo), MethodInfo^.Len);
  +        Inc(NativeUInt(MethodInfo), MethodInfo^.Len);
           {$ENDIF}
           Dec(Count);
         end;
  
positive.code:       Inc(PCardinal(MethodInfo));
        {$ELSE}
        Count := PWord(MethodInfo)^;
        Inc(PWord(MethodInfo));
        {$ENDIF}
        while Count > 0 do begin
          Result[I] := MethodInfo;
  
negative.code:         {$IFDEF FPC}
          Inc(Result);
          {$ELSE}
          Inc(NativeUInt(Result), Result^.Len);
          {$ENDIF}
          Dec(Count);
        end;
  