diff options
| author | Steve Hay <SteveHay@planit.com> | 2005-06-22 12:31:59 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-06-22 12:31:59 +0000 |
| commit | 1c127fab650cf6427045f36d9e941565f5163fda (patch) | |
| tree | e8fd09c938fbca566ab78c94e9d4bbd714035625 | |
| parent | 804599610624faf0c46c8ed90e2d6d4956f5b897 (diff) | |
| download | perl-1c127fab650cf6427045f36d9e941565f5163fda.tar.gz | |
Silence some bcc32 compiler warnings
("Superfluous & with function")
p4raw-id: //depot/perl@24937
| -rw-r--r-- | perlvars.h | 2 | ||||
| -rw-r--r-- | pp.c | 2 | ||||
| -rw-r--r-- | win32/win32.c | 4 |
3 files changed, 4 insertions, 4 deletions
diff --git a/perlvars.h b/perlvars.h index 35af2dcad6..9f3a399161 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 @@ -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 21e04244b2..d570264cf5 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); } |