Einzelnen Beitrag anzeigen

Der schöne Günther

Registriert seit: 6. Mär 2013
6.093 Beiträge
 
Delphi 10 Seattle Enterprise
 
#1

TypeInfo() bei Attributen

  Alt 23. Sep 2015, 19:47
Delphi-Version: XE7
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.
Angehängte Dateien
Dateityp: dpr AliasChecker.dpr (443 Bytes, 3x aufgerufen)
Dateityp: pas Alias.pas (1,1 KB, 3x aufgerufen)
  Mit Zitat antworten Zitat