TypeInfo() bei Attributen

[Der schöne Günther]

Das ist ein Bug, oder?

Die Doku spricht:

Zitat:

You Can Only Use Constant Expressions as Attribute Parameters [...] You can use TypeInfo() to pass type information because the RTTI block addresses are known at compile time.

Sprich: Wenn ich den Konstruktor eines Attributes mit beispielsweise TypeInfo(Single) füttere sollte er das auch erhalten. Tatsächlich erhält er einen Zeiger der um 4 Byte (32 Bit) bzw. 8 Byte (64 Bit) zu niedrig ist.

Getestet mit XE7 und XE8.

Seht ihr das auch so, dass das ein Fehler ist? Beispielprojekt im Anhang. Haltepunkt auf den Anfang des Konstrktors

Delphi-Quellcode:

constructor IsAliasForAttribute.Create(const originalType: Pointer);
begin
   inherited Create();
   PByte(self.originalType) := PByte(originalType) + SizeOf(Pointer);
   // The "+SizeOf(Pointer)" should not be necessary
end;

setzen und wundern.

Danke im Voraus fürs Mitfiebern.

[Stevie]

Nimm halt den richtigen Typen für den ctor Parameter (PTypeInfo), dann klappts auch.

Der entsprechende Code, der zu deinem Fehler führt, befindet sich in der System.Rtti.pas in der Funktion ConstructAttributes Zeile 4519 (XE8) - da wird nämlich für Params vom Typ PTypeInfo anders verfahren, als für andersartige Pointer. Und somit bekommst du den PPTypeInfo rein. Kannst auch testen, indem du deine Funktion entsprechend änderst.

P.S. Wusst ich übrigens bisher auch noch nicht, aber ich kann ja Delphi Sourcecode lesen