Explorar o código

Fixed to use the offset for the superclass.

woollybah %!s(int64=11) %!d(string=hai) anos
pai
achega
6c4cf61b95
Modificáronse 1 ficheiros con 5 adicións e 1 borrados
  1. 5 1
      reflection.mod/reflection.bmx

+ 5 - 1
reflection.mod/reflection.bmx

@@ -789,7 +789,11 @@ Type TTypeId
 		If _fields Or Not _class Return
 		_fields=New TList
 		_methods=New TList
-		_super=TTypeId( _classMap.ValueForKey( New TClass.SetClass( _class ) ) )
+?x86
+		_super=TTypeId( _classMap.ValueForKey( New TClass.SetClass( (Int Ptr _class)[0] ) ) )
+?x64
+		_super=TTypeId( _classMap.ValueForKey( New TClass.SetClass( (Long Ptr _class)[0] ) ) )
+?
 		If Not _super _super=ObjectTypeId
 		If Not _super._derived _super._derived=New TList
 		_super._derived.AddLast Self