fix bug with not marking instruction stack

Author: dragoncoder047

pickle.cpp

@@ -59,6 +59,7 @@ void pickle::mark_globals() {
     this->markobject(this->queue_tail);  // in case queue gets detached
     this->markobject(this->globals);
     this->markobject(this->stack);
+    this->markobject(this->instruction_stack);
 }
 
 void pickle::step() {

pickle_test.cpp

@@ -4,8 +4,6 @@
 #include <cstdio>
 #include <csignal>
 
-char* me = NULL; // The name of this executable -- captured at the top of main()
-
 void on_segfault(int signal, siginfo_t* info, void* arg) {
     fprintf(stderr, "Segmentation fault at %p\n", info->si_addr);
     DBG("Segmentation fault at %p", info->si_addr);
@@ -20,20 +18,19 @@ void start_catch_segfault() {
     sigaction(SIGSEGV, &x, NULL);
 }
 
-int main(int argc, char** argv) {
-    if (argc > 0) me = argv[0];
+int main() {
     start_catch_segfault();
     pickle::pickle vm;
-    vm.push_instruction(vm.make_symbol("foo"));
-    vm.push_instruction(vm.make_symbol("bar"), vm.make_symbol("error"));
-    vm.push_instruction(vm.make_symbol("baz"));
-    vm.push_instruction(vm.make_symbol("baz"), vm.make_symbol("test long symbol with spaces"));
-    vm.push_instruction(vm.make_symbol("baz"));
-    vm.push_instruction(vm.make_symbol("baz"));
-    vm.push_instruction(vm.make_symbol("baz"));
+    for (size_t i = 0; i < 100; i++) {
+        vm.push_instruction(vm.make_symbol("foo"));
+        vm.push_instruction(vm.make_symbol("bar"), vm.make_symbol("error"));
+        vm.push_instruction(vm.make_symbol("baz"));
+        vm.push_instruction(vm.make_symbol("baz"), vm.make_symbol("test long symbol with spaces"));
+        vm.push_instruction(vm.make_symbol("baz"));
+        vm.push_instruction(vm.make_symbol("baz"));
+    }
     pickle::dump(vm.instruction_stack);
     putchar('\n');
-    
     vm.gc();
     printf("all done -- cleaning up\n");
     return 0;