Important Bug fix:

- Fixed memory errors and leaks in DataTreeCore:
  - Initial values not set correctly for Name, Next/PrevPeer
  - Correctly set Last/FirstChild & Prev/NextPeer references on delete
  - Added methods SetValuePtr()
- Fixed memory errors and leaks in JSONparseCore:
  - Set set string/int/float values by passing pointers, ie. SetValuePtr()

DataTreeCore.cpp

@@ -16,15 +16,18 @@
 
 CDataMember::CDataMember( const char * pName, const int pLen )
 {
-    if (Name) {
+    if (pName) {
         NameLen  = (pLen == -1)? strlen( pName ) : pLen ;
         Name = (char *)malloc( NameLen+1 );
         memcpy( Name, pName, NameLen );
         Name[ NameLen ] = 0;
     }
+    else {
+        Name    = NULL;
+        NameLen = 0;
+    }
 
     Type    = jtNull;
-
     Value   = NULL;
     Len     = 0;
 
@@ -45,9 +48,12 @@ CDataMember::CDataMember( CDataMember * pParent, const char * pName, const int p
         memcpy( Name, pName, NameLen );
         Name[ NameLen ] = 0;
     }
+    else {
+        Name    = NULL;
+        NameLen = 0;
+    }
 
     Type    = jtNull;
-
     Value   = NULL;
     Len     = 0;
 
@@ -69,12 +75,17 @@ CDataMember::CDataMember( CDataMember * pParent, const char * pName, const int p
         // Insert into Parent & Peer lists
         Parent->Len++;
         if (!Parent->FirstChild) {
+            PrevPeer = NULL;
+            NextPeer = NULL;
+
             Parent->FirstChild = this;
             Parent->LastChild = this;
         }
         else {
             PrevPeer = Parent->LastChild;
             Parent->LastChild->NextPeer = this;
+            NextPeer = NULL;
+
             Parent->LastChild = this;
         }
     }
@@ -84,13 +95,21 @@ CDataMember::CDataMember( CDataMember * pParent, const char * pName, const int p
 CDataMember::~CDataMember()
 {
     // Remove from parent
-    if (Parent)
+    if (Parent) {
         Parent->Len--;
         if (this == Parent->LastChild) {
             Parent->LastChild = PrevPeer;
         }
+        if (this == Parent->FirstChild) {
+            Parent->FirstChild = NextPeer;
+        }
+    }
+    if (PrevPeer) {
         PrevPeer->NextPeer = NextPeer;
+    }
+    if (NextPeer) {
         NextPeer->PrevPeer = PrevPeer;
+    }
 
     // Destroy value/children
     Clear();
@@ -332,6 +351,20 @@ bool  CDataMember::Delete( const char * Path )
 }
 //---------------------------------------------------------------------------
 
+bool  CDataMember::SetValuePtr( EDataType pType, const char * pValue, int pLen )
+{
+    Clear();
+    Type  = pType;
+
+    if ((pType == jtString) || (pType == jtFloat) || (pType == jtInt) || (pType == jtBool))
+    {
+        Len   = (pLen == -1)? strlen(pValue) : pLen;
+        Value = (char*)pValue;
+    }
+    return true;
+}
+//---------------------------------------------------------------------------
+
 bool  CDataMember::SetValue( EDataType pType, const char * pValue, int pLen )
 {
     Clear();

DataTreeCore.h

@@ -42,6 +42,7 @@ class CDataMember
 
     // Set Member value
     bool   SetValue( EDataType Type, const char * Value = NULL, int Len = -1 );
+    bool  SetValuePtr( EDataType pType, const char * pValue, int pLen = -1 );
 
 public:
     CDataMember( const char * pName = NULL, const int pLen = -1 );

JSONparseCore.cpp

@@ -681,7 +681,7 @@ bool CJSONparse::ParseString( CDataMember * Member )
     }
 
     // Set string
-    Member->SetValue( jtString, Value, Len );
+    Member->SetValuePtr( jtString, Value, Len );
     return true;
 }
 //---------------------------------------------------------------------------
@@ -712,7 +712,7 @@ bool CJSONparse::ParsePrimitive( CDataMember * Member )
 
     // Check for primitive values
     if ((Len == 4) && !strncasecmp( Mark, "null", 4 )) {
-        Member->SetValue( jtNull, NULL, -1 );
+        Member->SetValue( jtNull );
     }
     else if ((Len == 4) && !strncasecmp( Mark, "true", 4 )) {
         Member->SetValue( jtBool, "1" );
@@ -727,7 +727,7 @@ bool CJSONparse::ParsePrimitive( CDataMember * Member )
             Value = (char*)malloc( Len+1 );
             memcpy( Value, Mark, Len );
             Value[Len] = 0;
-            Member->SetValue( jtInt, Value, Len );
+            Member->SetValuePtr( jtInt, Value, Len );
         }
         else {
             // Try conversion to float
@@ -736,7 +736,7 @@ bool CJSONparse::ParsePrimitive( CDataMember * Member )
                 Value = (char*)malloc( Len+1 );
                 memcpy( Value, Mark, Len );
                 Value[Len] = 0;
-                Member->SetValue( jtFloat, Value, Len );
+                Member->SetValuePtr( jtFloat, Value, Len );
             }
             else {
                 Error = true;