Implemented GCSetMode(). Added GCGetMode().

blitz.mod/blitz.bmx

@@ -452,7 +452,7 @@ End Rem
 Function MemMove( dst:Byte Ptr,src:Byte Ptr,size:Size_T )="void bbMemMove( void *,const void *,size_t )"
 
 Rem
-bbdoc: Set garbage collector mode
+bbdoc: Sets the garbage collector mode
 about:
 @mode can be one of the following:<br/>
 1 : automatic GC - memory will be automatically garbage collected<br/>
@@ -462,6 +462,17 @@ The default GC mode is automatic GC.
 End Rem
 Function GCSetMode( Mode:Int )="bbGCSetMode"
 
+Rem
+bbdoc: Gets the garbage collector mode
+about:
+@mode can be one of the following:<br/>
+1 : automatic GC - memory will be automatically garbage collected<br/>
+2 : manual GC - no memory will be collected until a call to GCCollect is made<br/>
+<br/>
+The default GC mode is automatic GC.
+End Rem
+Function GCGetMode:Int()="bbGCGetMode"
+
 Rem
 bbdoc: Suspend garbage collector
 about:

blitz.mod/blitz_gc.c

@@ -151,6 +151,19 @@ int bbGCCollectALittle() {
 }
 
 void bbGCSetMode( int mode ){
+	if (mode == 1) {
+		GC_set_disable_automatic_collection(0);
+	} else if (mode == 2) {
+		GC_set_disable_automatic_collection(1);
+	}
+}
+
+int bbGCGetMode(){
+	if (GC_get_disable_automatic_collection()) {
+		return 2;
+	} else {
+		return 1;
+	}
 }
 
 void bbGCSetDebug( int debug ){

blitz.mod/blitz_gc.h

@@ -54,6 +54,7 @@ struct BBGCMem{
 
 void		bbGCStartup();
 void		bbGCSetMode( int mode );
+int			bbGCGetMode();
 void		bbGCSetDebug( int debug );
 void*	bbGCMalloc( int size,int flags );
 BBObject*	bbGCAllocObject( unsigned int size,BBClass *clas,int flags );