{"id":464,"date":"2006-09-06T18:02:12","date_gmt":"2006-09-06T09:02:12","guid":{"rendered":"http:\/\/dev.activebasic.com\/dai\/?p=464"},"modified":"2006-09-06T18:02:12","modified_gmt":"2006-09-06T09:02:12","slug":"%e6%97%a9%e9%80%9f%e3%80%81gc%e3%81%ae%e5%ae%9f%e8%a3%85%e3%82%b5%e3%83%b3%e3%83%97%e3%83%ab%e3%82%92%e3%82%b3%e3%83%bc%e3%83%87%e3%82%a3%e3%83%b3%e3%82%b0","status":"publish","type":"post","link":"https:\/\/dev.activebasic.com\/dai\/archives\/464","title":{"rendered":"\u65e9\u901f\u3001GC\u306e\u5b9f\u88c5\u30b5\u30f3\u30d7\u30eb\u3092\u30b3\u30fc\u30c7\u30a3\u30f3\u30b0"},"content":{"rendered":"
\n

\u8abf\u3079\u7269\u3092\u3059\u308b\u3060\u3051\u3067\u306f\u308f\u304b\u3089\u306a\u3044\u306e\u3067\u3001\u65e9\u901f\u3001\u52d5\u304f\u3082\u306e\u3092\u4f5c\u3063\u3066\u307f\u307e\u3057\u305f\uff08\u4e0b\u8a18\u30b3\u30fc\u30c9\u3092\u53c2\u7167\u306e\u3053\u3068\uff09\u3002<\/p>\n

<\/p>\n

\/*\n\u203b\u3053\u308c\u3089\u306e\u5909\u6570\u306f\u30b3\u30f3\u30d1\u30a4\u30e9\u304c\u81ea\u52d5\u7684\u306b\u5b9a\u7fa9\u3057\u307e\u3059\u3002\nDim _System_gc_GlobalRoot_StartPtr As VoidPtr\nDim _System_gc_GlobalRoot_Size As Long\nDim _System_gc_StackRoot_StartPtr As VoidPtr\n *\/\n\nFunction _System_GetSp() As LONG_PTR                    'dummy\nEnd Function\n\n\nClass _System_CGarbageCollection\n    ppPtr As **VoidPtr\n    pSize As *Long\n    pbAtomic As *Byte\n    n As Long\nPublic\n    Sub _System_CGarbageCollection()\n        ppPtr=malloc(1)\n        pSize=malloc(1)\n        pbAtomic=malloc(1)\n        n=0\n    End Sub\n    Sub ~_System_CGarbageCollection()\n        Dim i As Long\n        For i=0 To ELM(n)\n            If ppPtr[i] Then free(ppPtr[i])\n        Next\n        free(ppPtr)\n\n        free(pSize)\n        free(pbAtomic)\n    End Sub\n\n    Sub add(new_ptr As VoidPtr, size As Long,fAtomic As Byte)\n        Dim i As Long\n        For i=0 To ELM(n)\n            If ppPtr[i]=0 Then\n                ppPtr[i]=new_ptr\n                pSize[i]=size\n                pbAtomic[i]=fAtomic\n                Exit Sub\n            End If\n        Next\n\n        ppPtr=realloc(ppPtr,(n+1)*SizeOf(VoidPtr))\n        ppPtr[n]=new_ptr\n\n        pSize=realloc(pSize,(n+1)*SizeOf(Long))\n        pSize[n]=size\n\n        pbAtomic=realloc(pbAtomic,(n+1)*SizeOf(Byte))\n        pbAtomic[n]=fAtomic\n\n        n++\n    End Sub\n\n    Function __malloc(size As Long,fAtomic As Byte) As VoidPtr\n        Dim pTemp As VoidPtr\n        pTemp=malloc(size)\n        add(pTemp,size,fAtomic)\n        Return pTemp\n    End Function\n\n    Sub sweep()\n        pbMark=calloc(n*SizeOf(Byte))\n\n        '\u30b0\u30ed\u30fc\u30d0\u30eb\u9818\u57df\u3092\u30eb\u30fc\u30c8\u306b\u6307\u5b9a\u3057\u3066\u30b9\u30ad\u30e3\u30f3\n        scan(_System_gc_GlobalRoot_StartPtr,_System_gc_GlobalRoot_Size)\n\n        '\u30ed\u30fc\u30ab\u30eb\u9818\u57df\u3092\u30eb\u30fc\u30c8\u306b\u6307\u5b9a\u3057\u3066\u30b9\u30ad\u30e3\u30f3\n        Dim NowSp As LONG_PTR\n        NowSp=_System_GetSp()\n        scan(_System_gc_StackRoot_StartPtr,(_System_gc_StackRoot_StartPtr As LONG_PTR)-NowSp)\n\n        '\u4f7f\u308f\u308c\u3066\u3044\u306a\u3044\u30e1\u30e2\u30ea\u3092\u89e3\u653e\u3059\u308b\n        Dim i As Long\n        For i=0 To ELM(n)\n            If pbMark[i]=0 and ppPtr[i]<>0 Then\n                free(ppPtr[i])\n                ppPtr[i]=0\n                pSize[i]=0\n            End If\n        Next\n\n        free(pbMark)\n    End Sub\n\n\nPrivate\n\n    pbMark As *Byte\n\n    Function HitTest(pSample As VoidPtr) As Long\n        Dim i As Long\n        For i=0 To ELM(n)\n            If (ppPtr[i] As LONG_PTR)<=(pSample As LONG_PTR) and (pSample As LONG_PTR)<((ppPtr[i] As LONG_PTR)+pSize[i]) Then\n                Return i\n            End If\n        Next\n        Return -1\n    End Function\n\n    Sub scan(pStartPtr As *LONG_PTR, size As Long)\n        Dim i As Long, count As Long, index As Long\n        count=size\/SizeOf(LONG_PTR)\n        For i=0 To ELM(count)\n            index=HitTest(pStartPtr[i])\n            If index<>-1 Then\n                If pbMark[index]=0 Then\n                    pbMark[index]=1\n\n                    If pbAtomic[index]=0 Then\n                        '\u30d2\u30fc\u30d7\u9818\u57df\u304c\u30dd\u30a4\u30f3\u30bf\u5024\u3092\u542b\u3080\u53ef\u80fd\u6027\u304c\u3042\u308b\u3068\u304d\n                        scan(ppPtr[index],pSize[index])\n                    End If\n                End If\n            End If\n        Next\n    End Sub\nEnd Class\nDim _System_GC As _System_CGarbageCollection\n\n\n\nFunction GC_malloc(size As Long) As VoidPtr\n    ' sweep\n    _System_GC.sweep()\n\n    'allocate\n    Return _System_GC.__malloc(size,0)\nEnd Function\n\nFunction GC_malloc_atomic(size As Long) As VoidPtr\n    ' sweep\n    _System_GC.sweep()\n\n    'allocate\n    Return _System_GC.__malloc(size,1)\nEnd Function<\/pre>\n<\/p>\n
<\/p>\n
\u3061\u306a\u307f\u306b\u3001\u3053\u306e\u30b3\u30fc\u30c9\u306fAB4\u3084AB5CP2\u3067\u306f\u52d5\u4f5c\u3057\u307e\u305b\u3093\u306e\u3067\u3001\u3042\u3057\u304b\u3089\u305a\u3002\u98fd\u304f\u307e\u3067\u3082\u30b3\u30f3\u30d1\u30a4\u30e9\u3092\u62e1\u5f35\u3057\u305f\u5f62\u3067\u306e\u63d0\u4f9b\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n
<\/p>\n
\u3053\u306e\u30b3\u30fc\u30c9\u304c\u30d7\u30ed\u30b0\u30e9\u30de\u306b\u63d0\u4f9b\u3059\u308b\u95a2\u6570\u306f\u4e0b\u8a18\u306e2\u3064\u3067\u3059\u3002<\/p>\n
<\/p>\n