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


Reply via email to