Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

Diff of /src/c/gbc.d [661db1] .. [e5072a] Maximize Restore

  Switch to side-by-side view

--- a/src/c/gbc.d
+++ b/src/c/gbc.d
@@ -378,18 +378,6 @@
 		if (p == NULL)
 			break;
 		for (i = 0, j = x->instance.length;  i < j;  i++)
-			mark_object(p[i]);
-		mark_contblock(p, j*sizeof(cl_object));
-		break;
-
-	case t_gfun:
-		mark_object(x->gfun.name);
-		mark_object(x->gfun.method_hash);
-		mark_object(x->gfun.instance);
-		p = x->gfun.specializers;
-		if (p == NULL)
-			break;
-		for (i = 0, j = x->gfun.arg_no;  i < j;  i++)
 			mark_object(p[i]);
 		mark_contblock(p, j*sizeof(cl_object));
 		break;
@@ -869,9 +857,7 @@
     fflush(stdout);
   }
 
-#ifdef unix
   if (interrupt_flag) sigint();
-#endif
 
   end_critical_section();
 }