higher level disassemble function.

* lisplib.c (asm_set_entries): Autoload on usr:disassemble.

* share/txr/stdlib/asm.tl (assembler): Drop initializer
from bstr slot. Requires complex initialization for the
case when the buf is supplied by the constructor caller
for the sake of disassembling existing code.
(assembler :postinit): Handle cases when only one of
buf or bstr are set, and when both are not set,
for the greatest flexibility.
(disassemble-c-d, disassemble): New functions.

* vm.c (vm_desc_datavec): New static function.
(vm_init): Registered vm-desc-datavec intrinsic.

1 files changed, 7 insertions, 2 deletions

diff --git a/lisplib.c b/lisplib.c
index 50c52356..a8e68c4a 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -630,12 +630,17 @@ static val asm_instantiate(val set_fun)
 
 static val asm_set_entries(val dlt, val fun)
 {
-  val name[] = {
+  val sys_name[] = {
     lit("assembler"),
     nil
   };
+  val name[] = {
+    lit("disassemble"),
+    nil
+  };
 
-  set_dlt_entries_sys(dlt, name, fun);
+  set_dlt_entries_sys(dlt, sys_name, fun);
+  set_dlt_entries(dlt, name, fun);
   return nil;
 }