FIX: removing unreferenced local variables

Author: Oldes

src/core/c-do.c

@@ -2208,7 +2208,7 @@ xx*/	REBVAL *Do_Path(REBVAL **path_val, REBVAL *val)
 	//REBVAL *val;
 	REBOL_STATE state;
 	REBVAL *val;
-	int MERGE_WITH_Do_String;
+//	int MERGE_WITH_Do_String;
 //	static D = 0;
 //	int depth = D++;
 

src/core/f-extension.c

@@ -313,7 +313,7 @@ x*/	int Do_Callback(REBSER *obj, u32 name, RXIARG *args, RXIARG *result)
 	REBEXT *ext;
 	RXICAL call;
 	REBSER *src;
-	int Remove_after_first_run;
+//	int Remove_after_first_run;
 	//Check_Security(SYM_EXTENSION, POL_EXEC, val);
 
 	if (!D_REF(2)) { // No /dispatch, use the DLL file:

src/core/n-crypt.c

@@ -115,7 +115,6 @@ REBNATIVE(aes)
     REBVAL *ret = D_RET;
 	REBSER *ctx;
 	REBINT  len, pad_len;
-	REBYTE *data;
 
 	if (ref_key) {
     	//key defined - setup new context

src/core/p-file.c

@@ -262,7 +262,7 @@ REBINT Mode_Syms[] = {
 {
 	REBI64 len;  // maximum size
 	REBI64 cnt;
-	int what_if_it_changed;
+//	int what_if_it_changed;
 
 	// Compute and bound bytes remaining:
 	len = file->file.size - file->file.index; // already read

src/core/t-integer.c

@@ -56,9 +56,7 @@
 	REBI64 arg;
 	REBINT n;
 
-	REBU64 p, a, b; // for overflow detection
-	REBCNT a1, a0, b1, b0;
-	REBFLG sgn;
+	REBU64 p; // for overflow detection
 	REBI64 anum;
 
 	num = VAL_INT64(val);

src/core/t-map.c

@@ -205,7 +205,6 @@
 	REBSER *hser = series->series; // can be null
 	REBCNT *hashes;
 	REBCNT hash;
-	REBVAL *v;
 	REBCNT n;
 
 	if (IS_NONE(key) || hser == NULL) return 0;

src/core/u-gif.c

@@ -301,7 +301,7 @@ void Chrom_Key_Alpha(REBVAL *v,REBCNT col,REBINT blitmode) {
 		Decode_LZW(dp, &cp, colormap, w, h, interlaced);
 
 		if(transparency_index >= 0) {
-			int ADD_alpha_key_detection;
+			//int ADD_alpha_key_detection;
 			REBYTE *p=colormap+3*transparency_index;
 			///Chroma_Key_Alpha(Temp_Value, (REBCNT)(p[2]|(p[1]<<8)|(p[0]<<16)), BLIT_MODE_COLOR);
 		}

src/core/u-parse.c

@@ -184,7 +184,7 @@ void Print_Parse_Index(REBCNT type, REBVAL *rules, REBSER *series, REBCNT index)
 	REBSER *series = parse->series;
 	REBSER *ser;
 	REBCNT flags = parse->flags | AM_FIND_MATCH | AM_FIND_TAIL;
-	int rewrite_needed;
+//	int rewrite_needed;
 
 	if (Trace_Level) {
 		Trace_Value(7, item);

src/os/win32/dev-stdio.c

@@ -198,7 +198,7 @@ static void close_stdio(void)
 ***********************************************************************/
 {
 	REBDEV *dev;
-	HANDLE win;
+//	HANDLE win;
 
 	dev = Devices[req->device];