This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove sources of "unreferenced label" warning on Win32
authorSteve Hay <steve.m.hay@googlemail.com>
Tue, 30 Dec 2014 12:00:54 +0000 (12:00 +0000)
committerSteve Hay <steve.m.hay@googlemail.com>
Wed, 31 Dec 2014 13:53:44 +0000 (13:53 +0000)
and then remove the disabling of that warning.

pp_sys.c
win32/win32.c
win32/win32.h

index c81e67f..5f00bbe 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3633,11 +3633,13 @@ PP(pp_chdir)
 #endif
     RETURN;
 
+#ifdef HAS_FCHDIR
  nuts:
     report_evil_fh(gv);
     SETERRNO(EBADF,RMS_IFI);
     PUSHi(0);
     RETURN;
+#endif
 }
 
 
index 6024623..1510805 100644 (file)
@@ -3247,7 +3247,6 @@ win32_chsize(int fd, Off_t size)
            retval = -1;
        }
     }
-finish:
     win32_lseek(fd, cur, SEEK_SET);
     return retval;
 #else
index 2d5eda9..5a48b0b 100644 (file)
@@ -243,8 +243,6 @@ typedef long                gid_t;
 typedef unsigned short mode_t;
 #endif
 
-#pragma  warning(disable: 4102)        /* "unreferenced label" */
-
 #if _MSC_VER < 1800
 #define isnan          _isnan  /* Defined already in VC++ 12.0 */
 #endif