Changeset 249 for Include/system/gc.sbp

Timestamp:

May 15, 2007, 2:44:41 AM (18 years ago)

Author:

dai

Message:

[32bitコンパイラ]ByRef指定のInteger/Byte型のローカル変数に値を代入すると強制終了してしまうバグを修正。
（呼び出し単体コードも対応→）関数の戻り値オブジェクトのメンバ・メソッドを一時オブジェクトを介さずに参照できるようにした。
オブジェクトの先頭バッファのサイズを4ポインタ分に拡張した。

File:

• Include/system/gc.sbp (modified) (2 diffs)

Include/system/gc.sbp

@@ -288 +288 @@
                     If pdwFlags[index] and _System_GC_FLAG_OBJECT Then
                         ' オブジェクトの場合
-                        If ScanObject( (ppPtr[index] + 3*SizeOf(LONG_PTR)) As *Object, pbMark) = False Then
+                        If ScanObject( (ppPtr[index] + 4*SizeOf(LONG_PTR)) As *Object, pbMark) = False Then
                             Dim maxNum = (pSize[index]\SizeOf(LONG_PTR)) As Long
                             Scan(ppPtr[index] As *LONG_PTR, maxNum, pbMark)
@@ -371 +371 @@
                         ・オブジェクトのサイズ
                         ・デストラクタの関数ポインタ
+                        ・リザーブ領域
                         を考慮 */
-                    _System_SweepingDelete (ptr + SizeOf( LONG_PTR ) * 3 )
+                    _System_SweepingDelete (ptr + SizeOf( LONG_PTR ) * 4 )
                 Else
                     HeapFree(_System_hProcessHeap,0,ptr)