UniqueString aus system.pas

[TurboMagic]

Hallo,

in System.pas ist eine UniqueString routine für diverse string Typen (Unicode, WideString und AnsiString) enthalten,
nicht jedoch für RawByteString. Hier aus Auszug die AnsiString Variante aus 10.1 Berlin. Kann diese auch mit
RawByteString korrekt benutzt werden, da man diesen als eine Sonderform des AnsiStrings betrachten darf?

Code:

procedure UniqueString(var str: _AnsiStr);
{$IFDEF PUREPASCAL}
begin
  InternalUniqueStringA(str);
end;
{$ELSE !PUREPASCAL}
{$IFDEF CPUX86}
asm
        JMP     InternalUniqueStringA
end;

Und noch was aufgefallen als ich mir eben InternalUniqueStringA angeschaut habe:

Code:

function InternalUniqueStringA(var Str: _AnsiStr): Pointer;
{$IFDEF PUREPASCAL}
var
  P: PStrRec;
begin
  Result := Pointer(Str);
  if Result <> nil then
  begin
    Result := Pointer(Str);
    P := Pointer(PByte(Str) - sizeof(StrRec));
    if P.refCnt <> 1 then
    begin
      Result := _NewAnsiString(P.length, P.codePage);
      Move(_PAnsiChr(Str)^, _PAnsiChr(Result)^, P.length);
      _LStrClr(Str);
      Pointer(Str) := Result;
    end;
  end;
end;
{$ELSE !PUREPASCAL}

Warum gibt's diese Result := Pointer(Str); Zuweisung zweimal?
Ist der zweite Aufruf nicht überflüssig?

[Redeemer]

Zu 1.: Ja, es gibt bei keiner Methode sowohl eine RawByteString- als auch eine AnsiString-Überladung. Zumindest kenne ich keine.

[hoika]

Hallo,

Zitat:

Ist der zweite Aufruf nicht überflüssig?

Ja, sieht überflüssig aus.

[TurboMagic]

Das mit dem UniqueString ist doch nicht so einfach!

Diese UniqueString Methode gibt's mehrfach überladen, z.B. mit UnicodeString oder WideString.
Das am besten passende Overload aus System.pas ist dieses hier:

procedure UniqueString(var str: _AnsiStr);

Nur wie bekomme ich einen RawByteString nach _AnsiStr und das auch noch auf allen Plattformen?

Die doppelte zuweisung hab' ich übrigens als Report erfasst:

https://quality.embarcadero.com/browse/RSP-21565

[Dennis07]

Ist aber alles eh nicht sonderlich von Bedeutung, denn in der ASM-Version (die ja standardmäßig Aufgerufen wird) findet sich das ohnehin nicht. Ist nur in der PUREPASCAL-Übersetzung.
Warum? Ich vermute, dass die Funktion früher mal anders ausgesehen hat. Denkbar wäre, dass hier eine Rekursion stattfand oder die Reihenfolge der Befehle anders war. Wenn ich mir die Pascal-Implementierung so anschaue, so sieht die allgemein nicht sonderlich optimal aus. Da könnte man Performance-technisch noch so einiges rausholen. Wird aber wohl nicht gemacht, weil es keiner benutzt (zu mindest denkt man das bei Emb).

[TurboMagic]

Hallo,

danke für die Antwort.

1. Ich habe inzwischen eine Kopie des betreffenden Codes gemacht und entsprechedn angepasst. Da bin ich durch.

2. Ich habe etwas gemacht was du so ähnlich auch tun solltest: ich habe einen QP Rport über diesen fehlenden
overload geschrieben, der ist soweit ich mich erinnere schon offen.

3. Du solltest möglichst einen QP Report über die fehlende Performance Optimierung schreiben. Vielleicht hat
ja doch mal wer bei EMBT Zeit dafür. Nur ohne Report wird sich sicher nichts tun.

Grüße

TurboMagic