Brucey преди 3 години
родител
ревизия
b6149cd866
променени са 1 файла, в които са добавени 4 реда и са изтрити 2 реда
  1. 4 2
      mbedtls.mod/mbedtls.bmx

+ 4 - 2
mbedtls.mod/mbedtls.bmx

@@ -188,13 +188,15 @@ Type TNetContext
 	Method Free()
 	Method Free()
 		If contextPtr Then
 		If contextPtr Then
 			bmx_mbedtls_net_free(contextPtr)
 			bmx_mbedtls_net_free(contextPtr)
-			bmx_mbedtls_net_delete(contextPtr)
-			contextPtr = Null
 		End If
 		End If
 	End Method
 	End Method
 	
 	
 	Method Delete()
 	Method Delete()
 		Free()
 		Free()
+		If contextPtr Then
+			bmx_mbedtls_net_delete(contextPtr)
+			contextPtr = Null
+		End If
 	End Method
 	End Method
 	
 	
 End Type
 End Type