Ein gutes Beispiel für Codes, die in 64 Bit gnadenlos abrauchen.
Na dann klär mich mal auf! Hättest du FPC anstatt von nur "64 Bit" geschrien dann hättest du meiner bescheidenen Meinung nach recht.
Edit:
Code:
function CharCount(const S: string; C: Char): Cardinal;
var
P, PEnd: PChar;
begin
Result := 0;
P := Pointer(S);
if P = nil then Exit;
{$IFNDEF FPC}
PEnd := P + PLongInt(NativeUInt(P) - SizeOf(LongInt))^;
{$ELSE}
PEnd := P + PSizeInt(NativeUInt(P) - SizeOf(SizeInt))^;
{$ENDIF}
while P < PEnd do begin
Inc(Result, Ord(P^ = C));
Inc(P);
end;
end;