app/src/gambas3-selftest/.project

@@ -8,6 +8,7 @@ Component=gb.image
 Component=gb.gui
 Component=gb.debug
 Component=gb.pcre
+StartupEnvironment=GB_JIT_CC=gcc
 Description="Quick & (not 'very' anymore) dirty unit tester for Gambas itself. Does not test GUI parts."
 Authors="Jussi Lahtinen <jussi.lahtinen@gmail.com>\nChristof Thalhofer <christof@deganius.de>"
 TabSize=4

app/src/gambas3-selftest/.test

 [TestSuites]
 Count=4
-TestWith=0
+TestWith=2
 Default="GambasSelftests.IntegerOverflows;IntegerOverflowsUnsafe"
 
 [TestSuites/1]

app/src/gambas3-selftest/.version

+3.18.90
\ No newline at end of file

main/lib/jit/gb.jit/.src/CCompilation.class

@@ -23,8 +23,8 @@ Static Public Sub Init()
   
   sCompiler = Env["GB_JIT_CC"]
   If Not sCompiler Then
-    $sCompiler = System.Find("clang")
-    If Not $sCompiler Then $sCompiler = System.Find("gcc")
+    $sCompiler = System.Find("gcc")
+    If Not $sCompiler Then $sCompiler = System.Find("clang")
   Else
     $sCompiler = System.Find(sCompiler)
   Endif

main/lib/jit/gb.jit/.version

+3.18.90
\ No newline at end of file

main/lib/jit/gb.jit/jit.h

@@ -362,7 +362,7 @@ enum
 #define GET_S(_ref, _addr, _type) GET_OBJECT(JIT.static_struct((_ref), (_type), (_addr)), _type)
 #define GET_A(_class, _ref, _addr, _type, _desc) ({ \
   SP = sp; \
-  GET_OBJECT(JIT.static_array((_class), (_ref), (void *)(_desc), (_addr)), _type); \
+  GET_OBJECT(JIT.static_array((void *)(_class), (_ref), (GB_CLASS)(_desc), (char *)(_addr)), _type); \
 })
 
 #define SET_b(_addr, _val) (GET_b(_addr) = ((_val) ? -1 : 0))

main/lib/jit/jit_body.c

@@ -168,7 +168,7 @@ static void enter_function(FUNCTION *func, int index)
 	if (func->vararg)
 	{
 		JIT_print("  VALUE *fp = FP, *pp = PP, *bp = BP;\n");
-		JIT_print("  FP = %p; PP = v; BP = sp;\n", func);
+		JIT_print("  FP = (void *)%p; PP = v; BP = sp;\n", func);
 	}
 
 	JIT_print("  VALUE *ssp = sp;\n"); // fprintf(stderr, \"bp = %%p\\n\", bp);\n");
@@ -953,9 +953,9 @@ static void push_static_variable(CLASS *class, CTYPE ctype, char *addr)
 			else
 			{
 				if (TYPE_is_pure_object(type))
-					push(type, "({ JIT.load_class(%p); GET_o(%p, CLASS(%p)); })", class, addr, (CLASS *)type);
+					push(type, "({ JIT.load_class((void *)%p); GET_o(%p, CLASS(%p)); })", class, addr, (CLASS *)type);
 				else
-					push(type, "({ JIT.load_class(%p); GET_o(%p, GB_T_OBJECT); })", class, addr);
+					push(type, "({ JIT.load_class((void *)%p); GET_o(%p, GB_T_OBJECT); })", class, addr);
 			}
 			break;
 			
@@ -963,7 +963,7 @@ static void push_static_variable(CLASS *class, CTYPE ctype, char *addr)
 			if (class == JIT_class)
 				push(type, "GET_%s(%p)", JIT_get_type(type), addr);
 			else
-				push(type, "({ JIT.load_class(%p); GET_%s(%p); })", class, JIT_get_type(type), addr);
+				push(type, "({ JIT.load_class((void *)%p); GET_%s(%p); })", class, JIT_get_type(type), addr);
 	}
 }
 
@@ -1958,7 +1958,7 @@ static bool push_subr_cat(ushort code)
 	else if (PCODE_is(code_pop, C_POP_STATIC))
 	{
 		void *addr = &JIT_class->stat[JIT_class->load->stat[index].pos];
-		JIT_print("  JIT.add_string_global(%p, as);\n", addr);
+		JIT_print("  JIT.add_string_global((char *)%p, as);\n", addr);
 	}
 	else if (PCODE_is(code_pop, C_POP_DYNAMIC))
 	{