ZLib Speed much slower than ZLibEx

[user69]

ZIP hab ich nicht weiter getestet - ich nutz die gzip Komprimierung on the fly während dem Speichern und Laden.
Eine DLL kommt leider für meinen Einsatz nicht in Frage.

Ich vermute auch das in 64bit folgende ZLibEx.pas Zeile Probleme macht:

Move(Pointer(Integer(param^.InBuffer) + param^.InPosition)^, buffer, result); //in ZBufferRead

Müsste das nicht eher zu NativeInt geändert werden um 64 bit kompatibel zu sein?

Move(Pointer(NativeInt(param^.InBuffer) + param^.InPosition)^, buffer, result);

[himitsu]

Ja.

Oder weglassen?
-> Direkt nach Pointer casten.
Ups, bei den Klammern verrutscht.

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


Es müsste auch eine .O .OBJ geben, bzw. die sollte man sich aus den Quellcodes kompilieren können,
welche sich dann wie ZLib/RegEx/JPeg/... ins Delphi einkompilieren liese. (wenn jemand so schlau ist und die passende ImportUnit dafür schreiben kann)

[user69]

>Direkt nach Pointer casten
Wie würde das gehen (wegen der Addition)? Beispiel?

[himitsu]

War ein Denk-/Guckfehler.
Hatte es grade oben im Post nochmal berichtig.

Ja, würde gehen, aber nur mit einem Typen, der hierfür 1 Byte groß sind.
z.B. PByte


Würde das Offset z.B. 4 sein, also p+x*4, dann wäre auch ein 4 Byte-Typ OK und dann das *4 weglassen, weil es implizit über den Typ vom Compiler rein kommt.

[user69]

Grad gesehen

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.


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

(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.
(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 )

[dummzeuch]

Zitat von himitsu:

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.