FIX: fixing more compiler warnings

Oldes · Jan 2, 2019 · d273f4a · d273f4a
1 parent ff51753
commit d273f4a
Show file tree

Hide file tree

Showing 10 changed files with 16 additions and 16 deletions.
diff --git a/src/core/b-init.c b/src/core/b-init.c
@@ -51,7 +51,7 @@ extern const REBYTE Str_Banner[];
 
 /***********************************************************************
 **
-*/	static void Assert_Basics()
+*/	static void Assert_Basics(void)
 /*
 ***********************************************************************/
 {
@@ -434,7 +434,7 @@ extern const REBYTE Str_Banner[];
 
 /***********************************************************************
 **
-*/	void Init_UType_Proto()
+*/	void Init_UType_Proto(void)
 /*
 **		Create prototype func object for UTypes.
 **
@@ -560,7 +560,7 @@ extern const REBYTE Str_Banner[];
 
 /***********************************************************************
 **
-*/	static void Init_System_Object()
+*/	static void Init_System_Object(void)
 /*
 **		The system object is defined in boot.r.
 **
@@ -627,7 +627,7 @@ extern const REBYTE Str_Banner[];
 
 /***********************************************************************
 **
-*/	static void Init_Contexts_Object()
+*/	static void Init_Contexts_Object(void)
 /*
 ***********************************************************************/
 {
@@ -715,7 +715,7 @@ extern const REBYTE Str_Banner[];
 
 /***********************************************************************
 **
-*/	static void Init_Codecs()
+*/	static void Init_Codecs(void)
 /*
 ***********************************************************************/
 {

diff --git a/src/core/c-do.c b/src/core/c-do.c
@@ -135,7 +135,7 @@ static REBVAL *Func_Word(REBINT dsf)
 
 /***********************************************************************
 **
-*/  REBINT Eval_Depth()
+*/  REBINT Eval_Depth(void)
 /*
 ***********************************************************************/
 {

diff --git a/src/core/c-error.c b/src/core/c-error.c
@@ -206,7 +206,7 @@ static REBOL_STATE Top_State; // Boot var: holds error state during boot
 
 /***********************************************************************
 **
-*/	void Trap_Stack()
+*/	void Trap_Stack(void)
 /*
 ***********************************************************************/
 {
@@ -222,7 +222,7 @@ static REBOL_STATE Top_State; // Boot var: holds error state during boot
 
 /***********************************************************************
 **
-*/	REBCNT Stack_Depth()
+*/	REBCNT Stack_Depth(void)
 /*
 ***********************************************************************/
 {

diff --git a/src/core/c-frame.c b/src/core/c-frame.c
@@ -90,7 +90,7 @@
 
 /***********************************************************************
 **
-*/	void Check_Bind_Table()
+*/	void Check_Bind_Table(void)
 /*
 ***********************************************************************/
 {

diff --git a/src/core/p-event.c b/src/core/p-event.c
@@ -61,7 +61,7 @@ REBREQ *req;		//!!! move this global
 
 /***********************************************************************
 **
-*/	REBVAL *Append_Event()
+*/	REBVAL *Append_Event(void)
 /*
 **		Append an event to the end of the current event port queue.
 **		Return a pointer to the event value.

diff --git a/src/core/t-tuple.c b/src/core/t-tuple.c
@@ -188,7 +188,7 @@
 	REBVAL	*arg;
 	REBYTE	*vp = NULL;
 	REBYTE	*ap = NULL;
-	REBINT	len;
+	REBINT	len = 0;
 	REBINT	alen;
 	REBINT	v;
 	REBINT	a;

diff --git a/src/os/dev-net.c b/src/os/dev-net.c
@@ -214,7 +214,7 @@ static REBOOL Nonblocking_Mode(SOCKET sock)
 		return DR_ERROR;
 	}
 
-	sock->socket = result;
+	sock->socket = (int)result;
 	SET_FLAG(sock->state, RSM_OPEN);
 
 	// Set socket to non-blocking async mode:

diff --git a/src/os/host-main.c b/src/os/host-main.c
@@ -86,7 +86,7 @@ extern void Init_Ext_Test(void);	// see: host-ext-test.c
 extern void Open_StdIO(void);
 extern void Close_StdIO(void);
 extern void Put_Str(REBYTE *buf);
-extern REBYTE *Get_Str();
+extern REBYTE *Get_Str(void);
 
 void Host_Crash(char *reason) {
 	OS_Crash(cb_cast("REBOL Host Failure"), cb_cast(reason));

diff --git a/src/os/posix/dev-file.c b/src/os/posix/dev-file.c
@@ -318,7 +318,7 @@ static int Get_File_Info(REBREQ *file)
 	// Fetch file size (if fails, then size is assumed zero):
 	if (fstat(h, &info) == 0) {
 		file->file.size = info.st_size;
-		file->file.time.l = (long)(info.st_mtime);
+		file->file.time.l = (i32)(info.st_mtime);
 	}
 
 	file->id = h;
@@ -417,7 +417,7 @@ static int Get_File_Info(REBREQ *file)
 		else file->error = -RFE_BAD_WRITE;
 		return DR_ERROR;
 	} else {
-		file->actual = num_bytes;
+		file->actual = (u32)num_bytes;
 	}
 
 	return DR_DONE;

diff --git a/src/os/posix/dev-stdio.c b/src/os/posix/dev-stdio.c
@@ -206,7 +206,7 @@ static void Close_Stdio(void)
 			//FLUSH();
 		//}
 
-		req->actual = total;
+		req->actual = (u32)total;
 	}
 
 	if (Std_Echo) {