Anzahl eines Zeichens im String ermitteln

[jaenicke]

Die Assemblervariante scheitert unter 64-Bit doch nur an dem Unterschied edi <> rdi. Sprich so funktioniert diese unter beidem:

Delphi-Quellcode:

function CharCountAsm(AStr: PChar; AChar: Char; len: Integer): Integer;
label loop_start, loop_ende, ende;
asm
{$ifdef cpux86}
  push edi
{$else}
  push rdi
{$endif}
  cld
{$ifdef cpux86}
  mov edi, AStr
{$else}
  mov rdi, AStr
{$endif}
  mov ax, AChar
  mov ecx, len
  xor edx, edx
loop_start:
  repnz scasw
  jecxz loop_ende
  inc edx
  jmp loop_start
loop_ende:
  jnz ende
  inc edx
ende:
  mov result, edx
{$ifdef cpux86}
  pop edi
{$else}
  pop rdi
{$endif}
end;

Unter 64-Bit sieht das Ergebnis bei mir dann so aus:

Zitat:

Calibrate - Target missed: 0 <> 7982
00000 Calibrate
07331 1234588 miep
06882 Ydobon
07321 marabu
09920 Missionar
07356 alzaimar
09430 Uwe Raabe StringCountChar
07289 Uwe Raabe StringCountCharFor
02684 KodeZwerg CountCharInString
07353 KodeZwerg CharInStringA
03509 Neutral General CharCountAsm
06809 Uwe Raabe CharCount
10014 Egon Hugeist CharCount_1
06651 Egon Hugeist CharCount_2
05407 Egon Hugeist CharCount_Double_Sided_3
05814 Egon Hugeist CharCount_Double_Sided_4
04472 Delphi CountChar
Benchmark finished!

Da ist die Assemblerversion schon recht schnell.