UnicodeString Swap?

[jaenicke]

Mein Vorschlag:

Delphi-Quellcode:

procedure SwapString(var S1, S2: string);
{$if defined(CPUX86)}
asm
  push [edx]
  mov ecx, [eax]
  mov [edx], ecx
  pop ecx
  mov [eax], ecx
end;
{$elseif defined(CPUX64)}
asm
  push [rdx]
  mov r9, [rcx]
  mov [edx], r9
  pop r9
  mov [rcx], r9
end;
{$else}
var
  Temp: string;
begin // ergibt mehr als 200 Assemblerbefehle
  Temp := S1;
  S1 := S2;
  S2 := Temp;
end;
{$endif}

Bei ARM kann ich das jetzt nicht direkt aus dem Hut ziehen, deshalb dafür rein Pascal. Durch die Compiler Magic, die hinter den String Zuweisungen abläuft, ist der Aufwand da aber um ein Vielfaches höher als bei dem reinen Pointertausch.

[logout]

Ah, dankeschön. Ich probiere das mal aus und vergleiche alle drei Varianten.

Ich muss unbedingt Assembler lernen

[jaenicke]

Nebenbei würde auch das funktionieren:

Delphi-Quellcode:

var
  Temp: Pointer;
begin
  Temp := Pointer(S1);
  Pointer(S1) := Pointer(S2);
  Pointer(S2) := Temp;
end;

Das sind aber immer noch einige Assemblerbefehle mehr. Es ist aber dennoch um einiges schneller als die Variante mit Strings.

[himitsu]

Wobei ich dennoch denke, daß der Flaschenhals nicht unbedingt beim Vertauschen liegt.
Du machst doch bestimmt noch andere Dinge, wie z.B. das Vergleichen von den Strings?


PS: meine Variante ist dafür sogar threadsave und fehlerunanfällig.
(man weiß ja nicht wie sich der Strings weiterentwickelt, vorallem in Hinblick auf die mobilen Plattformen)
(wobei die sich auch noch etwas optimieren läßt, indem man den unnötigen Codeanteil wegläßt und den Rest wia ASM nachbait)