zip-bugs@lists.wku.edu

Hello,

   I've build UnZip 5.51 on OpenVMS VAX (7.2) with DEC C and found a small 
   problem in vms.c. During compilation the following warning is generated:
   
$ cc/INCLUDE=SYS$DISK:[]/define=(RETURN_CODES,DATE_FORMAT=DF_YMD,DELETE_IF_FULL,MODERN) /OBJ=vms.VAX_DECC_obj; [.vms]vms.c
        extern int SYS$SETDFPROT();
        ...........^
%CC-W-DUPEXTERN, The declaration of "SYS$SETDFPROT" will map to the same
 external name as the declaration of "sys$setdfprot" at line 2931 in STARLET.
                At line number 2258 in PUBLIC$ROOT:[UTIL.UNZIP.VMS]VMS.C;1.
		
   This can be easily fixed by using the canonical lowercase name 
   sys$setfdprot in the declaration. A patch implementing this is attached 
   below. This was crosstested against builds on OpenVMS Alpha (7.2-1, 7.3 and 
   7.3-2). Other platforms are not affected. I hope you might consider this 
   for inclusion in the next versioin of UnZip.
   
                                      Greetings, Martin
				      		
*** vms/vms.c.orig	2003-09-26 17:57:00.000000000 -0500
--- vms/vms.c	2004-06-13 11:02:48.000000000 -0500
***************
*** 2255,2261 ****
                      /* and DESCRIP.MMS */
  
  #ifdef SETDFPROT
! extern int SYS$SETDFPROT();
  #endif
  
  
--- 2255,2261 ----
                      /* and DESCRIP.MMS */
  
  #ifdef SETDFPROT
! extern int sys$setdfprot();
  #endif
  
  
***************
*** 2280,2286 ****
  
  #ifdef SETDFPROT    /* Undef this if linker cat't resolve SYS$SETDFPROT */
          defprot = (ulg)0L;
!         if ( !ERR(SYS$SETDFPROT(0,&defprot)) )
          {
              sysdef = defprot & ( (1L<<XAB$S_SYS)-1 ) << XAB$V_SYS;
              owndef = defprot & ( (1L<<XAB$S_OWN)-1 ) << XAB$V_OWN;
--- 2280,2286 ----
  
  #ifdef SETDFPROT    /* Undef this if linker cat't resolve SYS$SETDFPROT */
          defprot = (ulg)0L;
!         if ( !ERR(sys$setdfprot(0,&defprot)) )
          {
              sysdef = defprot & ( (1L<<XAB$S_SYS)-1 ) << XAB$V_SYS;
              owndef = defprot & ( (1L<<XAB$S_OWN)-1 ) << XAB$V_OWN;