From: Steve Hay <SteveHay@planit.com>
Date: Wed, 22 Jun 2005 12:31:59 +0000 (+0000)
Subject: Silence some bcc32 compiler warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1c127fab650cf6427045f36d9e941565f5163fda;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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);
     }