Add -GCTEST commandline option which invokes the garbage collector on every allocation, for testing purposes.

Author: StavromulaBeta

Makefile

@@ -35,6 +35,10 @@ $(TESTS): cognac
 	@rm -f $@.log $@.c $@
 	./cognac $@.cog > $@.log
 	./$@ >> $@.log
-	./cognac $@.cog -debug >> $@.log
-	./$@ >> $@.log
+	./cognac $@.cog -debug > $@-debug.log
+	./$@ >> $@-debug.log
+	./cognac $@.cog -GCTEST > $@-GCTEST.log
+	./$@ >> $@-GCTEST.log
 	@! grep "^FAIL" $@.log --color
+	@! grep "^FAIL" $@-debug.log --color
+	@! grep "^FAIL" $@-GCTEST.log --color

src/cognac.c

@@ -32,6 +32,7 @@ int usleep (unsigned int);
 char* strdup (const char*);
 
 bool debug = false;
+bool gc_test = false;
 
 static bool is_prelude(module_t* mod)
 {
@@ -820,13 +821,15 @@ void to_exe(module_t* mod)
 	char* debug_args[] = {
 		STR(CC), c_source_path, "-o", exe_path,
 		"-O0", "-ggdb3", "-g", "-rdynamic", "-DDEBUG",
-		"-lm", "-Wall", "-Wpedantic", "-Wno-unused", NULL
+		"-lm", "-Wall", "-Wpedantic", "-Wno-unused",
+		gc_test ? "-DGCTEST" : NULL, NULL
 	} ;
 
 	char* normal_args[] = {
 		STR(CC), c_source_path, "-o", exe_path,
 		"-O3", "-flto", "-s", "-w",
-		"-lm", "-Wall", "-Wpedantic", "-Wno-unused", NULL
+		"-lm", "-Wall", "-Wpedantic", "-Wno-unused",
+		gc_test ? "-DGCTEST" : NULL, NULL
 	};
 
 	char** args = debug ? debug_args : normal_args;
@@ -3283,6 +3286,7 @@ int main(int argc, char** argv)
 	for (int i = 1 ; i < argc ; ++i)
 	{
 		if (!strcmp(argv[i], "-debug")) debug = true;
+		else if (!strcmp(argv[i], "-GCTEST")) gc_test = true;
 		else
 		{
 			char* ext = strrchr(argv[i], '.');

src/runtime.h

@@ -1099,7 +1099,9 @@ static void* gc_malloc(size_t sz)
 {
 	static ptrdiff_t interval = 1024l*1024l*10;
 	interval -= sz;
+	#ifndef GCTEST
 	if unlikely(interval < 0)
+	#endif
 	{
 		gc_collect();
 		interval = 1024l*1024l*10l + alloc[z] * 6;
@@ -1118,7 +1120,9 @@ static void* gc_flatmalloc(size_t sz)
 {
 	static ptrdiff_t interval = 1024l*1024l*10;
 	interval -= sz;
+	#ifndef GCTEST
 	if unlikely(interval < 0)
+	#endif
 	{
 		gc_collect();
 		interval = 1024l*1024l*10l + alloc[z] * 6;