Silence some bcc32 compiler warnings

("Superfluous & with function")

p4raw-id: //depot/perl@24937

diff --git a/perlvars.h b/perlvars.h
index 35af2dc..9f3a399 100644 (file)
--- a/perlvars.h
+++ b/perlvars.h
@@ -67,7 +67,7 @@ PERLVAR(Gsigfpe_saved,        Sighandler_t)
 PERLVAR(Gsv_placeholder, SV)
 
 #ifndef PERL_MICRO
-PERLVARI(Gcsighandlerp,        Sighandler_t, &Perl_csighandler)        /* Pointer to C-level sighandler */
+PERLVARI(Gcsighandlerp,        Sighandler_t, Perl_csighandler) /* Pointer to C-level sighandler */
 #endif
 
 #ifndef PERL_USE_SAFE_PUTENV

diff --git a/pp.c b/pp.c
index 5ebea62..11ca9ce 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -2562,7 +2562,7 @@ PP(pp_i_modulo)
          /* The assumption is to use hereafter the old vanilla version... */
          PL_op->op_ppaddr =
               PL_ppaddr[OP_I_MODULO] =
-                  &Perl_pp_i_modulo_0;
+                  Perl_pp_i_modulo_0;
          /* .. but if we have glibc, we might have a buggy _moddi3
           * (at least glicb 2.2.5 is known to have this bug), in other
           * words our integer modulus with negative quad as the second

diff --git a/win32/win32.c b/win32/win32.c
index 21e0424..d570264 100644 (file)
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -5139,8 +5139,8 @@ Perl_sys_intern_init(pTHX)
     {
 #  endif
        /* Force C runtime signal stuff to set its console handler */
-       signal(SIGINT,&win32_csighandler);
-       signal(SIGBREAK,&win32_csighandler);
+       signal(SIGINT,win32_csighandler);
+       signal(SIGBREAK,win32_csighandler);
        /* Push our handler on top */
        SetConsoleCtrlHandler(win32_ctrlhandler,TRUE);
     }