Changeset 145 for Include

Timestamp:

Mar 11, 2007, 2:12:03 AM (18 years ago)

Author:

dai

Message:

malloc/freeなどのメモリ操作関数のGC呼び出し部分を修正。

File:

• Include/basic/function.sbp (modified) (4 diffs)

Include/basic/function.sbp

@@ -694 +694 @@
     Dim temp[255] As Char
     _sntprintf(temp, Len (temp) \ SizeOf (Char), "%I64d", value)
-    Str$ = temp
+    Str$ = New String( temp )
 End Function
 
@@ -755 +755 @@
 
     If buf[0]=Asc("&") Then
-        temporary = buf
+        temporary = New String( buf )
         temporary.ToUpper()
         TempPtr = StrPtr(temporary)
@@ -898 +898 @@
 
 Function malloc(stSize As SIZE_T) As VoidPtr
-    Return _System_GC.__malloc(stSize,_System_GC_FLAG_NEEDFREE)
+    Return _System_pGC->__malloc(stSize,_System_GC_FLAG_NEEDFREE or _System_GC_FLAG_ATOMIC)
 End Function
 
 Function calloc(stSize As SIZE_T) As VoidPtr
-    Return _System_GC.__malloc(stSize,_System_GC_FLAG_NEEDFREE or _System_GC_FLAG_INITZERO)
+    Return _System_pGC->__malloc(stSize,_System_GC_FLAG_NEEDFREE or _System_GC_FLAG_ATOMIC or _System_GC_FLAG_INITZERO)
 End Function
 
@@ -909 +909 @@
         Return malloc(stSize)
     Else
-        Return _System_GC.__realloc(lpMem,stSize)
+        Return _System_pGC->__realloc(lpMem,stSize)
     End If
 End Function
 
 Sub free(lpMem As VoidPtr)
-    _System_GC.__free(lpMem)
+    _System_pGC->__free(lpMem)
 End Sub