Changeset 220

Timestamp:

Apr 29, 2007, 2:51:11 AM (19 years ago)

Author:

dai

Message:

Namespaceステートメントを実装した。
3番目に確保されるメモリオブジェクトが解放されないバグを修正。

Files:

• Include/Classes/System/Threading/Thread.ab (modified) (1 diff)
• Include/Classes/System/TypeInfo.ab (modified) (1 diff)
• bin/BasicCompiler32.exe (modified) ( previous)
• bin/BasicCompiler64.exe (modified) ( previous)

Include/Classes/System/Threading/Thread.ab

@@ -237 +237 @@
                     ppobj_Thread[i]=0
                     pStackBase[i]=0
+                    Delete ppException[i]
+                    ppException[i]=0
                     Exit For
                 End If

Include/Classes/System/TypeInfo.ab

@@ -241 +241 @@
         '例:
         'Add( New _System_TypeForClass( "System", "String", [__offsets...], __numOfOffsets ) )
-        'Search( "String" ).SetBaseType( Search( "Object" ) )
+        'Search( "System","String" ).SetBaseType( Search( "System","Object" ) )
     End Sub