Changeset 214 for Include/Classes/System/TypeInfo.ab

Timestamp:

Apr 15, 2007, 1:55:46 AM (18 years ago)

Author:

dai

Message:

GCでのメモリ回収処理を、実行時型情報を元に行うようにした。

File:

• Include/Classes/System/TypeInfo.ab (modified) (7 diffs)

Include/Classes/System/TypeInfo.ab

@@ -13 +13 @@
     Sub ~TypeInfo()
     End Sub
+
+    Override Function GetType() As TypeInfo
+        Return _System_TypeBase.selfTypeInfo
+    End Function
 
 
@@ -162 +166 @@
 Class _System_TypeForClass
     Inherits TypeBaseImpl
-Public
+
+Public
+    referenceOffsets As *Long
+    numOfReference As Long
+
+    Sub _System_TypeForClass( strNamespace As String, name As String, referenceOffsets As *Long, numOfReference As Long )
+        TypeBaseImpl( strNamespace, name )
+
+        This.referenceOffsets = referenceOffsets
+        This.numOfReference = numOfReference
+    End Sub
     Sub _System_TypeForClass( strNamespace As String, name As String )
         TypeBaseImpl( strNamespace, name )
@@ -168 +182 @@
     Sub ~_System_TypeForClass()
     End Sub
+
     Override Function IsClass() As Boolean
         Return True
@@ -225 +240 @@
 
         '例:
-        'Add( New _System_TypeForClass( "System", "String" ) )
+        'Add( New _System_TypeForClass( "System", "String", [__offsets...], __numOfOffsets ) )
         'Search( "String" ).SetBaseType( Search( "Object" ) )
     End Sub
@@ -242 +257 @@
         InitializeUserTypes()
 
+        selfTypeInfo = _System_TypeBase.Search( "System", "TypeInfo" ) As TypeInfo
 
         OutputDebugString( Ex"ready dynamic meta datas!\r\n" )
@@ -251 +267 @@
 
     Static Function Search( strNamespace As LPSTR, typeName As LPSTR ) As TypeBaseImpl
-
         ' TODO: 名前空間に対応する
         Dim i As Long
@@ -267 +282 @@
     End Function
 
+    Static selfTypeInfo = Nothing As TypeInfo
+
 End Class