From: Esa Ilari Vuokko <ei@vuokko.info>
Date: Sun, 13 Aug 2006 11:10:29 +0000 (+0000)
Subject: Remove few format-warnings by adding casts
X-Git-Tag: Before_FC_branch_merge~154
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=aba81b16e17d8dbd3081d20e062dbc8f9e2f783b

Remove few format-warnings by adding casts
---

diff --git a/rts/win32/AsyncIO.c b/rts/win32/AsyncIO.c
index 7bcf571..2ff92d9 100644
--- a/rts/win32/AsyncIO.c
+++ b/rts/win32/AsyncIO.c
@@ -161,7 +161,7 @@ startupAsyncIO()
     completed_hw = 0;
     if ( !(completed_table_sema = CreateSemaphore (NULL, MAX_REQUESTS, MAX_REQUESTS, NULL)) ) {
 	DWORD rc = GetLastError();
-	fprintf(stderr, "startupAsyncIO: CreateSemaphore failed 0x%x\n", rc);
+	fprintf(stderr, "startupAsyncIO: CreateSemaphore failed 0x%x\n", (int)rc);
 	fflush(stderr);
     }
 
@@ -300,7 +300,7 @@ start:
 	    /* Signal that there's completed table slots available */
 	    if ( !ReleaseSemaphore(completed_table_sema, 1, NULL) ) {
 		DWORD dw = GetLastError();
-		fprintf(stderr, "awaitRequests: failed to signal semaphore (error code=0x%x)\n", dw);
+		fprintf(stderr, "awaitRequests: failed to signal semaphore (error code=0x%x)\n", (int)dw);
 		fflush(stderr);
 	    }
 	}