Repository : ssh://darcs.haskell.org//srv/darcs/packages/Win32 On branch : master
http://hackage.haskell.org/trac/ghc/changeset/690c205b7dd43986e4d41090f484c740f3a1a5e3 >--------------------------------------------------------------- commit 690c205b7dd43986e4d41090f484c740f3a1a5e3 Author: Ian Lynagh <[email protected]> Date: Fri Mar 16 13:47:51 2012 +0000 Remove an unused variable in dumpBMP.c Fixes warnings with recent gcc >--------------------------------------------------------------- cbits/dumpBMP.c | 8 -------- 1 files changed, 0 insertions(+), 8 deletions(-) diff --git a/cbits/dumpBMP.c b/cbits/dumpBMP.c index 18a5ba5..4137f2f 100644 --- a/cbits/dumpBMP.c +++ b/cbits/dumpBMP.c @@ -38,7 +38,6 @@ void CreateBMPFile(LPCTSTR pszFileName, HBITMAP hBmp, HDC hDC) { HANDLE hFile; HBITMAP hTmpBmp, hBmpOld; - BOOL bSuccess; BITMAPFILEHEADER bfh; LPBITMAPINFO pbmi; PBYTE pBits; @@ -48,7 +47,6 @@ void CreateBMPFile(LPCTSTR pszFileName, HBITMAP hBmp, HDC hDC) DWORD dwBytesWritten; - bSuccess = TRUE; #if 0 if (ghPal) { SelectPalette(hDC, ghPal, FALSE); @@ -112,7 +110,6 @@ void CreateBMPFile(LPCTSTR pszFileName, HBITMAP hBmp, HDC hDC) // if ((pbmi = (LPBITMAPINFO)GlobalAlloc(GMEM_FIXED | GMEM_ZEROINIT, sizBMI )) == NULL) { fprintf(stderr, "Failed in Memory Allocation for pbmi!"); - bSuccess = FALSE; goto ErrExit1; } // @@ -153,7 +150,6 @@ void CreateBMPFile(LPCTSTR pszFileName, HBITMAP hBmp, HDC hDC) // if (WriteFile(hFile, (LPCVOID)&bfh, sizeof(BITMAPFILEHEADER), &dwBytesWritten, NULL) == -1) { fprintf(stderr, "Failed in WriteFile!"); - bSuccess = FALSE; goto ErrExit3; } @@ -167,12 +163,10 @@ void CreateBMPFile(LPCTSTR pszFileName, HBITMAP hBmp, HDC hDC) hBmpOld = SelectObject(hDC, hTmpBmp); if ((GetDIBits(hDC, hBmp, 0, pbmi->bmiHeader.biHeight, (LPSTR)pBits, pbmi, DIB_RGB_COLORS))==0){ fprintf(stderr, "Failed in GetDIBits!"); - bSuccess = FALSE; goto ErrExit4; } } else { fprintf(stderr, "Failed in creating bitmap!"); - bSuccess = FALSE; goto ErrExit3; } @@ -181,7 +175,6 @@ void CreateBMPFile(LPCTSTR pszFileName, HBITMAP hBmp, HDC hDC) // if (WriteFile(hFile, (LPCVOID)pbmi, sizBMI, &dwBytesWritten, NULL) == -1) { fprintf(stderr, "Failed in WriteFile!"); - bSuccess = FALSE; goto ErrExit4; } @@ -190,7 +183,6 @@ void CreateBMPFile(LPCTSTR pszFileName, HBITMAP hBmp, HDC hDC) // if (WriteFile(hFile, (LPCVOID)pBits, pbmi->bmiHeader.biSizeImage, &dwBytesWritten, NULL) == -1) { fprintf(stderr, "Failed in WriteFile!"); - bSuccess = FALSE; goto ErrExit4; } _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
