Change 33083: [PATCH] util.c: some consting

[Rafael Garcia-Suarez]

Change 33083 by [EMAIL PROTECTED] on 2008/01/28 10:02:24

        Subject: [PATCH] util.c: some consting
        From: Steven Schubiger <[EMAIL PROTECTED]>
        Date: Fri, 25 Jan 2008 01:10:52 +0100
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/embed.fnc#563 edit
... //depot/perl/global.sym#352 edit
... //depot/perl/proto.h#897 edit
... //depot/perl/util.c#648 edit

Differences ...

==== //depot/perl/embed.fnc#563 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#562~33080~   2008-01-26 09:54:29.000000000 -0800
+++ perl/embed.fnc      2008-01-28 02:02:24.000000000 -0800
@@ -525,7 +525,7 @@
 #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

==== //depot/perl/global.sym#352 (text+w) ====
Index: perl/global.sym
--- perl/global.sym#351~32934~  2008-01-09 16:32:20.000000000 -0800
+++ perl/global.sym     2008-01-28 02:02:24.000000000 -0800
@@ -464,7 +464,7 @@
 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

==== //depot/perl/proto.h#897 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#896~33080~     2008-01-26 09:54:29.000000000 -0800
+++ perl/proto.h        2008-01-28 02:02:24.000000000 -0800
@@ -1391,7 +1391,7 @@
                        __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);
 

==== //depot/perl/util.c#648 (text) ====
Index: perl/util.c
--- perl/util.c#647~32861~      2008-01-05 14:33:12.000000000 -0800
+++ perl/util.c 2008-01-28 02:02:24.000000000 -0800
@@ -425,7 +425,7 @@
     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 @@
 }
 
 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 @@
 
 #ifdef DUMP_FDS
 void
-Perl_dump_fds(pTHX_ char *s)
+Perl_dump_fds(pTHX_ const char *const s)
 {
     int fd;
     Stat_t tmpstatbuf;
End of Patch.