Generate debug messages

These are the messages seen in vysheng#103 (comment)

structures.c

@@ -2080,13 +2080,13 @@ void tgls_free_reply_markup (struct tgl_state *TLS, struct tgl_message_reply_mar
     }
     tfree (R->buttons, R->row_start[R->rows] * sizeof (void *));
     tfree (R->row_start, 4 * (R->rows + 1));
-    tfree (R, sizeof (*R));
+    // tfree (R, sizeof (*R)); // FIXME Something's buggy around here -- needed to disable this temporarily.
   } else {
     assert (R->refcnt > 0);
   }
 }
 
-void tgls_free_message (struct tgl_state *TLS, struct tgl_message *M) {
+void tgls_free_message (struct tgl_state *TLS, struct tgl_message *M) {vlogprintf (E_WARNING, "freeing message at %p\n", M);
   tgls_clear_message (TLS, M);
   if (M->reply_markup) {
     tgls_free_reply_markup (TLS, M->reply_markup);
@@ -2462,12 +2462,12 @@ void tgls_free_message_gw (struct tgl_message *M, void *TLS) {
   tgls_free_message (TLS, M);
 }
 
-void tgl_free_all (struct tgl_state *TLS) {
+void tgl_free_all (struct tgl_state *TLS) { vlogprintf (E_WARNING, "Begin tgl_free_all\n");
   tree_act_ex_peer (TLS->peer_tree, tgls_free_peer_gw, TLS);
   TLS->peer_tree = tree_clear_peer (TLS->peer_tree);
-  TLS->peer_by_name_tree = tree_clear_peer_by_name (TLS->peer_by_name_tree);
+  TLS->peer_by_name_tree = tree_clear_peer_by_name (TLS->peer_by_name_tree); vlogprintf (E_WARNING, "freeing TLS->message_tree\n");
   tree_act_ex_message (TLS->message_tree, tgls_free_message_gw, TLS);
-  TLS->message_tree = tree_clear_message (TLS->message_tree);
+  TLS->message_tree = tree_clear_message (TLS->message_tree); vlogprintf (E_WARNING, "freeing TLS->message_unsent_tree\n");
   tree_act_ex_message (TLS->message_unsent_tree, tgls_free_message_gw, TLS);
   TLS->message_unsent_tree = tree_clear_message (TLS->message_unsent_tree);
   tglq_query_free_all (TLS);