Changeset 413 for trunk/Include/system/gc.sbp

Timestamp:

Feb 24, 2008, 7:03:07 PM (16 years ago)

Author:

dai

Message:

ポインタ型の型情報取得に対応した。

File:

• trunk/Include/system/gc.sbp (modified) (1 diff)

trunk/Include/system/gc.sbp

@@ -471 +471 @@
         End If
 
+        If Object.ReferenceEquals( classTypeInfo, ActiveBasic.Core._System_TypeBase.selfTypeInfo ) Then
+            ' TypeInfoクラスの場合はTypeBaseImplクラスとして扱う
+            classTypeInfo = _System_TypeBase_Search( "ActiveBasic.Core.TypeBaseImpl" ) As ActiveBasic.Core._System_TypeForClass
+        End If
+
         /*
         _System_DebugOnly_OutputDebugString( "  (scanning object)" )