vm: add compact-gc command to factorbug

diff --git a/vm/debug.cpp b/vm/debug.cpp
index 9ca7691e9e0f840339b2c2c53207ee0ad0af5413..b3e179f6363fd709fe4b21a874498710b46b5e7a 100755 (executable)
--- a/vm/debug.cpp
+++ b/vm/debug.cpp
@@ -460,6 +460,7 @@ void factor_vm::factorbug_usage(bool advanced_p)
                std::cout << "  refs <addr>      -- find data heap references to object" << std::endl;
                std::cout << "  push <addr>      -- push object on data stack - NOT SAFE" << std::endl;
                std::cout << "  gc               -- trigger full GC - NOT SAFE" << std::endl;
+               std::cout << "  compact-gc       -- trigger compacting GC - NOT SAFE" << std::endl;
                std::cout << "  code             -- code heap dump" << std::endl;
                std::cout << "  abort            -- call abort()" << std::endl;
                std::cout << "  breakpoint       -- trigger system breakpoint" << std::endl;
@@ -612,6 +613,8 @@ void factor_vm::factorbug()
                        dump_code_heap();
                else if(strcmp(cmd,"gc") == 0)
                        primitive_full_gc();
+               else if(strcmp(cmd,"compact-gc") == 0)
+                       primitive_compact_gc();
                else if(strcmp(cmd,"help") == 0)
                        factorbug_usage(true);
                else if(strcmp(cmd,"abort") == 0)