UniqueString aus system.pas
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:
Und noch was aufgefallen als ich mir eben InternalUniqueStringA angeschaut habe:
procedure UniqueString(var str: _AnsiStr);
{$IFDEF PUREPASCAL} begin InternalUniqueStringA(str); end; {$ELSE !PUREPASCAL} {$IFDEF CPUX86} asm JMP InternalUniqueStringA end;
Code:
Warum gibt's diese Result := Pointer(Str); Zuweisung zweimal?
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} Ist der zweite Aufruf nicht überflüssig? |
AW: UniqueString aus system.pas
Zu 1.: Ja, es gibt bei keiner Methode sowohl eine RawByteString- als auch eine AnsiString-Überladung. Zumindest kenne ich keine.
|
AW: UniqueString aus system.pas
Hallo,
Zitat:
|
AW: UniqueString aus system.pas
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 |
AW: UniqueString aus system.pas
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). |
AW: UniqueString aus system.pas
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 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:04 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz