64Bit Datentyp prüfen

[venice2]

Wie kann man am schnellsten prüfen ob der gesetzte Datentyp 64Bit tauglich ist.
Gibt es dafür einen Profiler oder ähnliches?

Gibt es die Möglichkeit überhaupt ohne jede einzelne Variable oder Funktion zu prüfen?

[Uwe Raabe]

Wie definierst du denn 64-Bit tauglich?

Es gibt Datentypen, die in 64-Bit anders sind als unter 32-Bit. Es gibt sogar Datentypen, die sind unter Posix-64 anders als sonst. Ob man diese unter 64-Bit verwenden muss hängt stark vom Kontext ab. Man kann z.B. nicht generell sagen, Integer sei nicht 64-Bit tauglich.

In der Regel weist einen der Compiler schon auf Fehler hin. Eine Ausnahme ist das kürzlich von dir geschilderte Problem mit dem untypisierten Prozedurpointer. In dem Fall kann vermutlich gar nichts helfen.

[venice2]

Zitat von Uwe Raabe:

Wie definierst du denn 64-Bit tauglich?

Es gibt Datentypen, die in 64-Bit anders sind als unter 32-Bit. Es gibt sogar Datentypen, die sind unter Posix-64 anders als sonst. Ob man diese unter 64-Bit verwenden muss hängt stark vom Kontext ab. Man kann z.B. nicht generell sagen, Integer sei nicht 64-Bit tauglich.

In der Regel weist einen der Compiler schon auf Fehler hin. Eine Ausnahme ist das kürzlich von dir geschilderte Problem mit dem untypisierten Prozedurpointer. In dem Fall kann vermutlich gar nichts helfen.

Ok Danke dann werde ich mich wohl da durchwurschteln müssen.

[Dennis07]

Ich habe etwa genauso (wenig) verstanden was du exakt suchst. Aber eventuell hilft dir System.SizeOf und die Direktiven-Funktion Declared(...) zusammen mit der Bedingung CPUX64.

[venice2]

Zitat von Dennis07:

Ich habe etwa genauso (wenig) verstanden was du exakt suchst. Aber eventuell hilft dir System.SizeOf und die Direktiven-Funktion Declared(...) zusammen mit der Bedingung CPUX64.

Du hast es nicht verstanden Uwe hingegen schon und hat es entsprechend beantwortet.

[himitsu]

Natürlich kann man alles möglich prüfen, was man will

Delphi-Quellcode:

SizeOf(Igendwas) = 8 // immer 64 Bit
SizeOf(Igendwas) = SizeOf(Pointer) // so groß wie aktuell ein Zeiger
(SizeOf(Igendwas) = 8) and Defined(CPUX64) // nur 64 Bit, wenn 64 Bit, sonst egal
(SizeOf(Igendwas) = 8) and Declared(Sonstwas) // nur 64 Bit, wenn was Anderes vorhanden, sonst egal
SizeOf(Igendwas) * 8 = 64 // wirklich 64 Bit und nicht etwa 8 Byte
...

Delphi-Quellcode:

{$IF SizeOf(Igendwas) <> SizeOf(Pointer)}
  {$MESSAGE Error 'paßt ni'}
{$IFEND}

// oder erst zur Laufzeit
Assert(SizeOf(Igendwas) = SizeOf(Pointer), 'paßt ni');