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
|
