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