Illegal type conversion: "TIPKInject" to "LongInt"

[Targion]

Hallo!
Um Libs mit PIC-Code zu erstellen nutze ich derzeit FPC 2.3.1, da die PIC-unterstützung in FPC 2.2.4 komplett vermurkst ist. Nun bekomme ich beim kompilieren meines Codes aber folgenden Fehler, der vorher (mit FPC 2.2.4) nicht da war:

Code: Alles auswählen

ERROR: Illegal type conversion: "TIPKInject" to "LongInt"

An dieser Stelle:

Code: Alles auswählen

function TIPKInject.GetHandle: THandle;
begin
  Result := THandle(Self);
end;

Was soll das? Gibt eine sauberere Methode?

[theo]

Hast du THandle selber definiert?
Müsste doch eigentlich QWord sein auf 64bit.

[Targion]

Nein, THandle ist die Standarddefinition.
Wäre

Code: Alles auswählen

Result := THandle(@self);

auch eine Lösung?

[theo]

Aber irgend etwas muss doch hier als longint betrachtet werden (siehe Fehlermeldung).
Das kann unter 64bit afaik weder "Self" noch THandle sein. Oder?

Wie ist denn THandle bei dir definiert auf der fraglichen Plattform?

[Socke]

Versuchs mal mit:

Code: Alles auswählen

Result := PtrInt(Self)

Da funktioniert die Umwandlung immer; die kann dann schon mal ausgeschlossen werden.

[Targion]

Okay, ich probier's mal so.