Changeset 400 for trunk/Include/Classes/ActiveBasic/Core/TypeInfo.ab

Timestamp:

Jan 22, 2008, 9:19:59 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

_System_CThreadCollectionでのクラスインスタンスへのポインタの使用を除去、参照変数構文へ。

File:

• trunk/Include/Classes/ActiveBasic/Core/TypeInfo.ab (modified) (2 diffs)

trunk/Include/Classes/ActiveBasic/Core/TypeInfo.ab

@@ -160 +160 @@
 
     Static Sub InitializeValueType()
-        types = New System.Collections.Generic.Dictionary<String, TypeBaseImpl>(8192)
+        types = New System.Collections.Generic.Dictionary<String, TypeBaseImpl>(8191)
 
         ' 値型の追加
@@ -222 +222 @@
         End If
 
-        If Object.ReferenceEquals( types.Item(fullName), Nothing ) Then
-            OutputDebugString( "TypeSearch Failed: " )
-            OutputDebugString( fullName )
-            OutputDebugString( Ex"\r\n" )
+        Search = types.Item(fullName)
+
+        If Object.ReferenceEquals( Search, Nothing ) Then
+            OutputDebugString("TypeSearch Failed: ")
+            If Not ActiveBasic.IsNothing(fullName) Then
+                OutputDebugStringW(StrPtr(fullName) As PWSTR)
+                OutputDebugString(Ex"\r\n")
+                OutputDebugStringA(StrPtr(fullName) As PSTR)
+            End If
+            OutputDebugString(Ex"\r\n")
         End If
-
-        Return types.Item(fullName)
     End Function