Changeset 299 for Include


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

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

Location:
Include
Files:
6 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
Note: See TracChangeset for help on using the changeset viewer.