Changeset 299 for Include

Timestamp:

Aug 24, 2007, 2:10:26 AM (17 years ago)

Author:

dai

Message:

【32bitコンパイラ】
静的リンクライブラリを実装
ジェネリクスを実装
※64bitコンパイラは未実装

Location:

Include

Files:

• Classes/ActiveBasic/Core/TypeInfo.ab (modified) (4 diffs)
• Classes/System/Collections/index.ab (modified) (1 diff)
• Classes/System/Math.ab (modified) (1 diff)
• Classes/System/index.ab (modified) (1 diff)
• basic.sbp (modified) (4 diffs)
• system/gc.sbp (modified) (2 diffs)

Include/Classes/ActiveBasic/Core/TypeInfo.ab

@@ -174 +174 @@
 Class _System_TypeBase
     Static pTypes As *TypeBaseImpl
-    Static count As Long
+
     Static isReady = False
 
@@ -207 +207 @@
 
 Public
-
+    Static count As Long
     Static Sub Initialize()
         pTypes = GC_malloc( 1 )
@@ -230 +230 @@
     Static Function Search( strNamespace As LPSTR, typeName As LPSTR ) As TypeBaseImpl
         ' TODO: 名前空間に対応する
+
         Dim i As Long
         For i = 0 To ELM( count )
@@ -251 +252 @@
 End Namespace
 End Namespace
+
+Function _System_TypeBase_Search( strNamespace As LPSTR, typeName As LPSTR ) As ActiveBasic.Core.TypeBaseImpl
+    Return ActiveBasic.Core._System_TypeBase.Search( strNamespace, typeName )
+End Function

Include/Classes/System/Collections/index.ab

@@ -1 +1 @@
 #require <Classes/System/Collections/misc.ab>
 #require <Classes/System/Collections/ArrayList.ab>
+#require <Classes/System/Collections/List.ab>

Include/Classes/System/Math.ab

@@ -13 +13 @@
         return 2.7182818284590452354
     End Function
-
+/*
     Static Function PI() As Double
         return _System_PI
     End Function
-
+*/
     Static Function Abs(value As Double) As Double
         SetQWord(VarPtr(Abs), GetQWord(VarPtr(value)) And &h7fffffffffffffff)

Include/Classes/System/index.ab

@@ -11 +11 @@
 #require "./UInt32.ab"
 
+#require "./Collections/index.ab"
 #require "./Diagnostics/index.ab"
 #require "./IO/index.ab"

Include/basic.sbp

@@ -1 +1 @@
 'basic.sbp
+
+#_core
 
 ' Unicodeが不安定な間の暫定対応
@@ -136 +138 @@
 Sub _System_StartupProgram()
     'Unsafe
-
         'この関数はアプリケーションの起動時にシステムからコールバックされます
 
@@ -149 +150 @@
         ActiveBasic.Core._System_TypeBase.Initialize()
 
-        'Initialize static variables
+        ' Initialize static variables
         _System_InitStaticLocalVariables()
 
@@ -177 +178 @@
 
 
-
+#include <system\interface.ab>
+#include <system\built_in.ab>
 #include <system\string.sbp>
 #include <system\debug.sbp>

Include/system/gc.sbp

@@ -6 +6 @@
 /*
 ※これらの変数はコンパイラが自動的に定義します。
-Dim _System_gc_GlobalRoot_StartPtr As VoidPtr
-Dim _System_gc_GlobalRoot_Size As Long
 Dim _System_gc_StackRoot_StartPtr As VoidPtr
 */
@@ -468 +466 @@
         HeapFree(_System_hProcessHeap,0,pbMark)
 
-        If iBackAllSize=iAllSize Then
+        If iBackAllSize <= iAllSize * 2 Then
             If iAllSize > limitMemorySize Then
                 limitMemorySize = iAllSize