From 3920d392b079880cbc1567bfa03cf0c0abaeac5f Mon Sep 17 00:00:00 2001
From: Coldy <Coldy@kolibrios.org>
Date: Sat, 12 Feb 2022 12:40:07 +0000
Subject: [PATCH] cmm: fixed bug (double free error) for #undef directive

git-svn-id: svn://kolibrios.org@9714 a494cfbc-eb01-0410-851d-a64ba20cac60
---
 programs/develop/cmm/toke.cpp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/programs/develop/cmm/toke.cpp b/programs/develop/cmm/toke.cpp
index 2f501c6bb5..9d3c949cc2 100644
--- a/programs/develop/cmm/toke.cpp
+++ b/programs/develop/cmm/toke.cpp
@@ -4844,7 +4844,11 @@ int cmpresult,ocmpresult=0;
 
 	if(ptr!=NULL){	//найден объект удаления
 
-		if(ptr->newid)free(ptr->newid);	//удалить доп информ.
+		if(ptr->newid){
+			free(ptr->newid);	//удалить доп информ.
+			// Fixed by Coldy, thx turbocat (double free error)
+			ptr->newid = NULL;
+		}
 
 		leftptr=ptr->left;	//дите