How can I create residents with new version ? Because I updated from 1.3 PR 1.870 to 1.3 PR 1.874 and now, with same code, that doesn't create residents :
Code:
Import "C:\Program Files\PureBasic\Compilers\ObjectManager.lib"
Object_GetOrAllocateID (Objects, Object.l) As "_PB_Object_GetOrAllocateID@8"
Object_GetObject (Objects, Object.l) As "_PB_Object_GetObject@8"
Object_IsObject (Objects, Object.l) As "_PB_Object_IsObject@8"
Object_EnumerateAll (Objects, ObjectEnumerateAllCallback, *VoidData) As "_PB_Object_EnumerateAll@12"
Object_EnumerateStart (Objects) As "_PB_Object_EnumerateStart@4"
Object_EnumerateNext (Objects, *object.Long) As "_PB_Object_EnumerateNext@8"
Object_EnumerateAbort (Objects) As "_PB_Object_EnumerateAbort@4"
Object_FreeID (Objects, Object.l) As "_PB_Object_FreeID@8"
Object_Init (StructureSize.l, IncrementStep.l, ObjectFreeFunction) As "_PB_Object_Init@12"
Object_GetThreadMemory (MemoryID.l) As "_PB_Object_GetThreadMemory@4"
Object_InitThreadMemory (Size.l, InitFunction, EndFunction) As "_PB_Object_InitThreadMemory@12"
EndImport
;{ Structures
Structure S_RLog
ID.l
Default_Level.l
Default_Category.s
Default_Formatter.s
OutputFile.s
OutputFile_Append.l
Filter_Activate_Level.l
Filter_Operator_Level.l
Filter_Content_Level.l
Filter_Activate_Date.l
Filter_Operator_Date.l
Filter_Content_Date.l
Filter_Activate_Category.l
Filter_Operator_Category .l
Filter_Content_Category.s
EndStructure
Structure S_RLog_Log
ID_Log.l
Level.l
Date.l
Content.s
Category.s
EndStructure
;}
;{ Enumerations
Enumeration
#RLog_Level_Debug
#RLog_Level_Info
#RLog_Level_Notice
#RLog_Level_Warn
#RLog_Level_Error
#RLog_Level_Critical
#RLog_Level_Alert
#RLog_Level_Emergency
EndEnumeration
Enumeration 1
#RLog_Filter_Level
#RLog_Filter_Date
#RLog_Filter_Category
EndEnumeration
Enumeration 1
#RLog_Operator_Inferior
#RLog_Operator_InferiorOrEqual
#RLog_Operator_Superior
#RLog_Operator_SuperiorOrEqual
#RLog_Operator_Equal
#RLog_Operator_NotEqual
EndEnumeration
;}
;{ Macros
Macro RLOG_ID(object)
Object_GetObject(RLogObjects, object)
EndMacro
Macro RLOG_ISID(object)
Object_IsObject(RLogObjects, object)
EndMacro
Macro RLOG_NEW(object)
Object_GetOrAllocateID(RLogObjects, object)
EndMacro
Macro RLOG_FREEID(object)
If object <> #PB_Any And RLog_Is(object) = #True
Object_FreeID(RLogObjects, object)
EndIf
EndMacro
Macro RLOG_INITIALIZE(hCloseFunction)
Object_Init(SizeOf(S_RLog), 1, hCloseFunction)
EndMacro
;}
Global NewList LL_RLog_Logs.S_RLog_Log()