Update of /cvsroot/perl-win32-gui/Win32-GUI In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25185
Modified Files: CHANGELOG GUI.xs Log Message: Fix MinGW build errors and warnings Index: GUI.xs =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/GUI.xs,v retrieving revision 1.55 retrieving revision 1.56 diff -C2 -d -r1.55 -r1.56 *** GUI.xs 14 Apr 2006 01:52:25 -0000 1.55 --- GUI.xs 20 Apr 2006 22:20:20 -0000 1.56 *************** *** 5586,5595 **** void GetDllVersion(filename) ! LPCTSTR filename PREINIT: HINSTANCE hinstDll; ! DWORD major = -1; ! DWORD minor = -1; ! DWORD build = -1; PPCODE: hinstDll = LoadLibrary(filename); --- 5586,5595 ---- void GetDllVersion(filename) ! LPTSTR filename PREINIT: HINSTANCE hinstDll; ! DWORD major = 0xFFFFFFFF; ! DWORD minor = 0xFFFFFFFF; ! DWORD build = 0xFFFFFFFF; PPCODE: hinstDll = LoadLibrary(filename); *************** *** 5618,5622 **** } ! if(major == -1) { DWORD size; DWORD handle; --- 5618,5622 ---- } ! if(major == 0xFFFFFFFF) { DWORD size; DWORD handle; *************** *** 5642,5646 **** } ! if(major == -1) { XSRETURN_UNDEF; } --- 5642,5646 ---- } ! if(major == 0xFFFFFFFF) { XSRETURN_UNDEF; } Index: CHANGELOG =================================================================== RCS file: /cvsroot/perl-win32-gui/Win32-GUI/CHANGELOG,v retrieving revision 1.78 retrieving revision 1.79 diff -C2 -d -r1.78 -r1.79 *** CHANGELOG 14 Apr 2006 01:52:25 -0000 1.78 --- CHANGELOG 20 Apr 2006 22:20:20 -0000 1.79 *************** *** 6,9 **** --- 6,14 ---- Win32-GUI ChangeLog =================== + + [Robert May] : 20 Apr 2006 - Fix build under MinGW + - GUI.xs correct typo in type definition (LPCTSTR vs LPTSTR); + use 0xFFFFFFFF instead of -1 to avoid gcc warning when assigning + to UINT. + + [Robert May] : 14 Apr 2006 - Fix build/test on Perl 5.6.1 - GUI.h GUI.xs add GetDllVersion call to replace use of