Changeset 299


Ignore:
Timestamp:
Aug 24, 2007, 2:10:26 AM (17 years ago)
Author:
dai
Message:

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

Files:
13 edited

Legend:

Unmodified
Added
Removed

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

    r275 r299  
    174174Class _System_TypeBase
    175175    Static pTypes As *TypeBaseImpl
    176     Static count As Long
     176
    177177    Static isReady = False
    178178
    … …  
    207207
    208208Public
    209 
     209    Static count As Long
    210210    Static Sub Initialize()
    211211        pTypes = GC_malloc( 1 )
    … …  
    230230    Static Function Search( strNamespace As LPSTR, typeName As LPSTR ) As TypeBaseImpl
    231231        ' TODO: 名前空間に対応する
     232
    232233        Dim i As Long
    233234        For i = 0 To ELM( count )
    … …  
    251252End Namespace
    252253End Namespace
     254
     255Function _System_TypeBase_Search( strNamespace As LPSTR, typeName As LPSTR ) As ActiveBasic.Core.TypeBaseImpl
     256    Return ActiveBasic.Core._System_TypeBase.Search( strNamespace, typeName )
     257End Function

  • Include/Classes/System/Collections/index.ab

    r118 r299  
    11#require <Classes/System/Collections/misc.ab>
    22#require <Classes/System/Collections/ArrayList.ab>
     3#require <Classes/System/Collections/List.ab>

  • Include/Classes/System/Math.ab

    r285 r299  
    1313        return 2.7182818284590452354
    1414    End Function
    15 
     15/*
    1616    Static Function PI() As Double
    1717        return _System_PI
    1818    End Function
    19 
     19*/
    2020    Static Function Abs(value As Double) As Double
    2121        SetQWord(VarPtr(Abs), GetQWord(VarPtr(value)) And &h7fffffffffffffff)

  • Include/Classes/System/index.ab

    r294 r299  
    1111#require "./UInt32.ab"
    1212
     13#require "./Collections/index.ab"
    1314#require "./Diagnostics/index.ab"
    1415#require "./IO/index.ab"

  • Include/basic.sbp

    r275 r299  
    11'basic.sbp
     2
     3#_core
    24
    35' Unicodeが不安定な間の暫定対応
    … …  
    136138Sub _System_StartupProgram()
    137139    'Unsafe
    138 
    139140        'この関数はアプリケーションの起動時にシステムからコールバックされます
    140141
    … …  
    149150        ActiveBasic.Core._System_TypeBase.Initialize()
    150151
    151         'Initialize static variables
     152        ' Initialize static variables
    152153        _System_InitStaticLocalVariables()
    153154
    … …  
    177178
    178179
    179 
     180#include <system\interface.ab>
     181#include <system\built_in.ab>
    180182#include <system\string.sbp>
    181183#include <system\debug.sbp>

  • Include/system/gc.sbp

    r284 r299  
    66/*
    77※これらの変数はコンパイラが自動的に定義します。
    8 Dim _System_gc_GlobalRoot_StartPtr As VoidPtr
    9 Dim _System_gc_GlobalRoot_Size As Long
    108Dim _System_gc_StackRoot_StartPtr As VoidPtr
    119*/
    … …  
    468466        HeapFree(_System_hProcessHeap,0,pbMark)
    469467
    470         If iBackAllSize=iAllSize Then
     468        If iBackAllSize <= iAllSize * 2 Then
    471469            If iAllSize > limitMemorySize Then
    472470                limitMemorySize = iAllSize

  • TestCase/SimpleTestCase/ActiveBasic.StringsTest.ab

    r272 r299  
    1 #require <Classes/ActiveBasic/Strings/Strings.ab>
    2 
    31'--------------------------------------------------------------------
    42' Test case of AcitveBasic.Strings Namespace
    … …  
    1412    Dim tw[1] = [2, 1] As WCHAR
    1513    Dim tm[1] = [1, 0] As CHAR
    16 
    1714
    1815    UnitTest("ChrCmp WC =", ChrCmp(VarPtr(w[1]), tw, 2 As SIZE_T) = 0)

  • TestCase/SimpleTestCase/GCHandleTest.ab

    r283 r299  
    1 #require <Classes/System/Runtime/InteropServices/GCHandle.ab>
    2 
    31'--------------------------------------------------------------------
    42' Test case of GCHandle Class

  • TestCase/SimpleTestCase/PathTest.ab

    r271 r299  
    22' Test case of Path Class
    33'--------------------------------------------------------------------
    4 #require <Classes\System\IO\Path.ab>
    54
    65Namespace PathTest

  • TestCase/SimpleTestCase/StringBuilderTest.ab

    r272 r299  
    1 #require <Classes/System/Text/StringBuilder.ab>
    2 
    31'--------------------------------------------------------------------
    42' Test case of System.Text.StringBuilder Class

  • TestCase/SimpleTestCase/VersionTest.ab

    r257 r299  
    22' Test case of Version Class
    33'--------------------------------------------------------------------
    4 
    5 #require <Classes/System/Version.ab>
    64
    75Namespace VersionTest
Note: See TracChangeset for help on using the changeset viewer.