diff options
| author | Steven Schubiger <schubiger@cpan.org> | 2008-01-25 02:10:52 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-01-28 10:02:24 +0000 |
| commit | c9289b7b6da6fbd0919642909a950203eda422ad (patch) | |
| tree | d21811ec3a64eec69de88991b4c7df241fd049a9 | |
| parent | b900987b60cce8e0dffc3b8fd3835992d58ce664 (diff) | |
| download | perl-c9289b7b6da6fbd0919642909a950203eda422ad.tar.gz | |
util.c: some consting
Message-ID: <20080125001052.GA29980@refcnt.homeunix.org>
p4raw-id: //depot/perl@33083
| -rw-r--r-- | embed.fnc | 2 | ||||
| -rw-r--r-- | global.sym | 2 | ||||
| -rw-r--r-- | proto.h | 2 | ||||
| -rw-r--r-- | util.c | 6 |
4 files changed, 6 insertions, 6 deletions
@@ -525,7 +525,7 @@ Anp |void* |my_memset |NN char* loc|I32 ch|I32 len #endif Ap |I32 |my_pclose |NULLOK PerlIO* ptr Ap |PerlIO*|my_popen |NN const char* cmd|NN const char* mode -Ap |PerlIO*|my_popen_list |NN char* mode|int n|NN SV ** args +Ap |PerlIO*|my_popen_list |NN const char* mode|int n|NN SV ** args Ap |void |my_setenv |NULLOK const char* nam|NULLOK const char* val Ap |I32 |my_stat Ap |char * |my_strftime |NN const char *fmt|int sec|int min|int hour|int mday|int mon|int year|int wday|int yday|int isdst diff --git a/global.sym b/global.sym index 1d7bf879ab..5423985109 100644 --- a/global.sym +++ b/global.sym @@ -464,7 +464,7 @@ Perl_save_scalar Perl_save_pptr Perl_save_vptr Perl_save_re_context -Perl_save_padsv +Perl_save_padsv_and_mortalize Perl_save_sptr Perl_save_svref Perl_scan_bin @@ -1391,7 +1391,7 @@ PERL_CALLCONV PerlIO* Perl_my_popen(pTHX_ const char* cmd, const char* mode) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2); -PERL_CALLCONV PerlIO* Perl_my_popen_list(pTHX_ char* mode, int n, SV ** args) +PERL_CALLCONV PerlIO* Perl_my_popen_list(pTHX_ const char* mode, int n, SV ** args) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_3); @@ -425,7 +425,7 @@ Perl_ninstr(pTHX_ const char *big, const char *bigend, const char *little, const if (little >= lend) return (char*)big; { - char first = *little++; + const char first = *little++; const char *s, *x; bigend -= lend - little; OUTER: @@ -2213,7 +2213,7 @@ Perl_my_swabn(void *ptr, int n) } PerlIO * -Perl_my_popen_list(pTHX_ char *mode, int n, SV **args) +Perl_my_popen_list(pTHX_ const char *mode, int n, SV **args) { #if (!defined(DOSISH) || defined(HAS_FORK) || defined(AMIGAOS)) && !defined(OS2) && !defined(VMS) && !defined(__OPEN_VM) && !defined(EPOC) && !defined(MACOS_TRADITIONAL) && !defined(NETWARE) && !defined(__LIBCATAMOUNT__) dVAR; @@ -2597,7 +2597,7 @@ Perl_my_fork(void) #ifdef DUMP_FDS void -Perl_dump_fds(pTHX_ char *s) +Perl_dump_fds(pTHX_ const char *const s) { int fd; Stat_t tmpstatbuf; |