Welcome to the CHICKEN Scheme pasting service

alignment added by megane on Tue Jul 2 09:05:40 2019

diff --git a/runtime.c b/runtime.c
index 30620a22..a1fbf02e 100644
--- a/runtime.c
+++ b/runtime.c
@@ -13076,6 +13076,8 @@ static void C_ccall dump_heap_state_2(C_word c, C_word *av)
       }
     }
 
+    hdump_count(C_fix(-1), 1, C_align(bytes) - bytes); // XXX: something's not adding up here
+
     scan = (C_byte *)sbp + C_align(bytes) + sizeof(C_word);
   }
 
@@ -13089,6 +13091,7 @@ static void C_ccall dump_heap_state_2(C_word c, C_word *av)
 
       switch(b->key) {
       case C_fix(1): C_fprintf(C_stderr,              C_text("fixnum         ")); break;
+      case C_fix(-1): C_fprintf(C_stderr,             C_text("alignment      ")); break;
       case C_SCHEME_TRUE: C_fprintf(C_stderr,         C_text("boolean        ")); break;
       case C_SCHEME_END_OF_LIST: C_fprintf(C_stderr,  C_text("null           ")); break;
       case C_SCHEME_UNDEFINED  : C_fprintf(C_stderr,  C_text("void           ")); break;

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which module provides `foreign-declare'?
Visually impaired? Let me spell it for you (wav file) download WAV