Added global count enabler.

blitz.mod/blitz.bmx

@@ -556,6 +556,7 @@ End Rem
 Function IsEmptyArray:Int(obj:Object)="int bbObjectIsEmptyArray(BBOBJECT)!"
 
 Function DumpObjectCounts(buffer:Byte Ptr, size:Int, includeZeros:Int)="bbObjectDumpInstanceCounts"
+Global CountObjectInstances:Int="bbCountInstances"
 
 End Extern
 

blitz.mod/blitz_gc.c

@@ -107,12 +107,15 @@ BBObject * bbGCAllocObject( int sz,BBClass *clas,int flags ){
 	++bbGCAllocCount;
 	#endif
 	q->clas=clas;
-	bbAtomicAdd(&clas->instance_count, 1);
-	//if( flags & BBGC_FINALIZE ){
-		GC_finalization_proc ofn;
-		void *ocd;
-		GC_REGISTER_FINALIZER_NO_ORDER( q,gc_finalizer,clas,&ofn,&ocd );
-	//}
+	if (bbCountInstances) {
+		bbAtomicAdd(&clas->instance_count, 1);
+	} else {
+		if( flags & BBGC_FINALIZE ){
+			GC_finalization_proc ofn;
+			void *ocd;
+			GC_REGISTER_FINALIZER_NO_ORDER( q,gc_finalizer,clas,&ofn,&ocd );
+		}
+	}
 	return q;	
 }
 

blitz.mod/blitz_object.c

@@ -3,6 +3,8 @@
 
 #define REG_GROW 256
 
+int bbCountInstances = 0;
+
 static BBClass **reg_base,**reg_put,**reg_end;
 static BBInterface **ireg_base,**ireg_put,**ireg_end;
 
@@ -62,7 +64,9 @@ BBObject *bbObjectAtomicNewNC( BBClass *clas ){
 void bbObjectFree( BBObject *o ){
 	BBClass *clas=o->clas;
 
-	bbAtomicAdd(&clas->instance_count, -1);
+	if (bbCountInstances) {
+		bbAtomicAdd(&clas->instance_count, -1);
+	}
 
 	if (clas->dtor != bbObjectDtor) {
 		clas->dtor( o );

blitz.mod/blitz_object.h

@@ -82,6 +82,8 @@ BBObject*	bbObjectArraycast( BBObject *o );
 void		bbObjectRegisterType( BBClass *clas );
 BBClass**	bbObjectRegisteredTypes( int *count );
 void bbObjectDumpInstanceCounts();
+extern int bbCountInstances;
+
 
 void bbObjectRegisterInterface( BBInterface * ifc );
 BBInterface **bbObjectRegisteredInterfaces( int *count );