mes: Make debug levels 4 and 5 usable.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 27 May 2019 19:30:48 +0000 (21:30 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 27 May 2019 19:30:48 +0000 (21:30 +0200)
* HACKING: Update debug policy.
* lib/linux/read.c (read): Print read in level 5.
* src/mes.c (eval_apply): Print module in level 6.
(main): Likewise.  Remove redundant module printing.
* src/gc.c (gc): Print symbols in level 6.

HACKING
lib/linux/read.c
src/gc.c
src/mes.c

diff --git a/HACKING b/HACKING
index 047e2e3ad40a7d29d4d3713e5d6ef2a28c838771..740390faeddf00df7a6f540926b4aa28620b3a1f 100644 (file)
--- a/HACKING
+++ b/HACKING
@@ -132,8 +132,10 @@ enough to work on compiling tinycc's tcc.c albeit a somewhat modified version.
      - list of symbol
      - opened input strings
      - gc details
-  5) usage of opened input strings
-
+  5) lots of data
+     - usage of opened input strings
+     - bytes read
+  6) globals
 
 * Bugs
 ** mes: performance, Mes is now 2-10x slower than Guile.
index 9c3917c2e1e5cb4db0336b414b714c06a80ad6aa..9f9ae4af18332ad866d821a0843a9b671226fed5 100644 (file)
@@ -22,7 +22,7 @@ ssize_t
 read (int filedes, void *buffer, size_t size)
 {
   ssize_t bytes = _sys_call3 (SYS_read, (int) filedes, (long) buffer, (long) size);
-  if (__mes_debug () > 3)
+  if (__mes_debug () > 4)
     {
       if (bytes == 1)
         {
index 696bcf8151d643ac65d931d8a4ff706cf2151c62..6b822c09617f35a386ab1606cb45ff9225f52d3f 100644 (file)
--- a/src/gc.c
+++ b/src/gc.c
@@ -225,7 +225,7 @@ gc_ ()                          ///((internal))
 SCM
 gc ()
 {
-  if (g_debug > 4)
+  if (g_debug > 5)
     {
       eputs ("symbols: ");
       write_error_ (g_symbols);
@@ -237,7 +237,7 @@ gc ()
   gc_push_frame ();
   gc_ ();
   gc_pop_frame ();
-  if (g_debug > 4)
+  if (g_debug > 5)
     {
       eputs ("symbols: ");
       write_error_ (g_symbols);
index b54bd4a6a81032fb463491337dd1abc13f524ca0..6b0aafa5811f663d4a2ce660a938e36d72d62ff1 100644 (file)
--- a/src/mes.c
+++ b/src/mes.c
@@ -1547,7 +1547,7 @@ begin_expand:
 
               push_cc (input, r2, r0, cell_vm_return);
               x = read_input_file_env (r0);
-              if (g_debug > 3)
+              if (g_debug > 5)
                 module_printer (m0);
               gc_pop_frame ();
               input = r1;
@@ -2307,7 +2307,7 @@ main (int argc, char *argv[])
   m0 = make_initial_module (a);
   g_macros = make_hash_table_ (0);
 
-  if (g_debug > 3)
+  if (g_debug > 5)
     module_printer (m0);
 
   SCM program = read_boot ();
@@ -2334,7 +2334,7 @@ main (int argc, char *argv[])
     }
   if (g_debug)
     {
-      if (g_debug > 3)
+      if (g_debug > 5)
         module_printer (m0);
 
       eputs ("\ngc stats: [");
@@ -2345,25 +2345,9 @@ main (int argc, char *argv[])
       eputs (" => ");
       eputs (itoa (g_free));
       eputs ("]\n");
-      if (g_debug > 3)
-        module_printer (m0);
-      eputs ("\n");
-
-      gc (g_stack);
-      eputs (" => ");
-      eputs (itoa (g_free));
-      eputs ("]\n");
-      if (g_debug > 3)
-        module_printer (m0);
       eputs ("\n");
 
-      gc (g_stack);
-      eputs (" => ");
-      eputs (itoa (g_free));
-      eputs ("]\n");
-      if (g_debug > 3)
-        module_printer (m0);
-      if (g_debug > 3)
+      if (g_debug > 5)
         {
           eputs ("ports:");
           write_error_ (g_ports);