ZLib Speed much slower than ZLibEx

[user69]

Grad gesehen :-D

Die Frage wäre was Funktioniert in 64 bit sicher?

1)Move(Pointer(Integer(param^.InBuffer) + param^.InPosition)^, buffer, result);
2)Move(Pointer(NativeInt(param^.InBuffer) + param^.InPosition)^, buffer, result);
3)PByte für solche Casts

>Wenn Pointer-Arithmetik aktiv ist (könnte aber jemand so unnet sein und es deaktivieren), dann kann man z.B. auch PByte für solche Casts benutzen.
Dann dies als Beispiel?

[himitsu]

Ja klar, 64 Bit sollte ja die selben mathematischen Gesetze verwenden, so wie das ganze Universum auch. :angle:

Delphi-Quellcode:

Pointer(NativeInt(param^.InBuffer) + param^.InPosition)^

Delphi-Quellcode:

(PByte(param^.InBuffer) + param^.InPosition)^

Und Delphi macht quasi implizit ein *1 da rein ... OK, diese 1 wird wegoptimiert, weil unnötig, drum findeste es hier nicht im Compilat/Assembler,
aber für Neugierige zum Nachgucken darfst es gern mal mit PLongInt versuchen.

Delphi-Quellcode:

(PByte(param^.InBuffer) + param^.InPosition * SizeOf(Byte))^

Die Pointeraritmetik, könnte man oben in der Unit über einen Compilerschalter aktivieren (bzw. den Code danach davor schützten, dass es z.B. in den Projektoptionen deaktiviert wird, wobei aber hoffentlich niemand so dumm sein sollte sowas zu machen :stupid:)

[dummzeuch]

Zitat:

Zitat von himitsu (Beitrag 1488703)

Wenn Pointer-Arithmetik aktiv ist (könnte aber jemand so unnet sein und es deaktivieren), dann kann man z.B. auch PByte für solche Casts benutzen.

[delete]Wenn eine Unit Pointerarithmetik benötigt, sollte man sie in der Unit explizit einschalten, dann braucht man keine Angst haben, dass jemand "unnet" (unnett?) ist.[/delete] Wobei Pointerarithmetik nicht in allen Delphi-Versionen möglich ist. Inc / Dec geht aber "schon immer". Und zur Not schreibt man sich eine Funktion dafür, die nach Integer/Int64 castet, rechnet und wieder einen Pointer zurückliefert. Für halbwegs aktuelle Delphis dann mit inline.