changeset 105959:ba3ffbd9c422

* process.c (ifflag_def): Make flag_sym constant. (Fnetwork_interface_info): Use a constant pointer. (ifflag_table): * xfns.c (cursor_bits): * xdisp.c (power_letter): * termcap.c (speeds, esctab): * sysdep.c (baud_convert): * keyboard.c (lispy_accent_codes, modifier_names): * image.c (xbm_format, xpm_format, pbm_format, png_format) (jpeg_format, tiff_format, gif_format, svg_format) (interlace_start, interlace_increment, gs_format): * gtkutil.c (separator_names): * fringe.c (swap_nibble): * fns.c (base64_value_to_char, base64_char_to_value): * fileio.c (make_temp_name_tbl): * coding.c (suffixes): Make constant.
author Dan Nicolaescu <dann@ics.uci.edu>
date Wed, 11 Nov 2009 20:11:51 +0000
parents 341a779db1d0
children 61e7ce7dcc26
files src/ChangeLog src/coding.c src/fileio.c src/fns.c src/fringe.c src/gtkutil.c src/image.c src/keyboard.c src/process.c src/sysdep.c src/termcap.c src/xdisp.c src/xfns.c
diffstat 13 files changed, 45 insertions(+), 35 deletions(-) [+]
line wrap: on
line diff
--- a/src/ChangeLog	Wed Nov 11 19:25:24 2009 +0000
+++ b/src/ChangeLog	Wed Nov 11 20:11:51 2009 +0000
@@ -1,5 +1,22 @@
 2009-11-11  Dan Nicolaescu  <dann@ics.uci.edu>
 
+	* process.c (ifflag_def): Make flag_sym constant.
+	(Fnetwork_interface_info): Use a constant pointer.
+	(ifflag_table):
+	* xfns.c (cursor_bits):
+	* xdisp.c (power_letter):
+	* termcap.c (speeds, esctab):
+	* sysdep.c (baud_convert):
+	* keyboard.c (lispy_accent_codes, modifier_names):
+	* image.c (xbm_format, xpm_format, pbm_format, png_format)
+	(jpeg_format, tiff_format, gif_format, svg_format)
+	(interlace_start, interlace_increment, gs_format):
+	* gtkutil.c (separator_names):
+	* fringe.c (swap_nibble):
+	* fns.c (base64_value_to_char, base64_char_to_value):
+	* fileio.c (make_temp_name_tbl):
+	* coding.c (suffixes): Make constant.
+
 	* frame.c (make_initial_frame):
 	* buffer.c (init_buffer_once): Use make_pure_c_string instead of
 	build_string.
@@ -18,6 +35,7 @@
 	* lread.c (syms_of_lread):
 	* keyboard.c (syms_of_keyboard): Use make_pure_c_string instead of
 	build_string.
+
 	* doc.c (Fsnarf_documentation): Purecopy Vbuild_files.
 
 2009-11-10  Stefan Monnier  <monnier@iro.umontreal.ca>
--- a/src/coding.c	Wed Nov 11 19:25:24 2009 +0000
+++ b/src/coding.c	Wed Nov 11 20:11:51 2009 +0000
@@ -9621,7 +9621,7 @@
   return Fnreverse (val);
 }
 
-static char *suffixes[] = { "-unix", "-dos", "-mac" };
+static const char *const suffixes[] = { "-unix", "-dos", "-mac" };
 
 static Lisp_Object
 make_subsidiaries (base)
--- a/src/fileio.c	Wed Nov 11 19:25:24 2009 +0000
+++ b/src/fileio.c	Wed Nov 11 20:11:51 2009 +0000
@@ -657,7 +657,7 @@
 				STRING_MULTIBYTE (directory));
 }
 
-static char make_temp_name_tbl[64] =
+static const char make_temp_name_tbl[64] =
 {
   'A','B','C','D','E','F','G','H',
   'I','J','K','L','M','N','O','P',
--- a/src/fns.c	Wed Nov 11 19:25:24 2009 +0000
+++ b/src/fns.c	Wed Nov 11 20:11:51 2009 +0000
@@ -3189,7 +3189,7 @@
   while (IS_BASE64_IGNORABLE (c))
 
 /* Table of characters coding the 64 values.  */
-static char base64_value_to_char[64] =
+static const char base64_value_to_char[64] =
 {
   'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J',	/*  0- 9 */
   'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T',	/* 10-19 */
@@ -3201,7 +3201,7 @@
 };
 
 /* Table of base64 values for first 128 characters.  */
-static short base64_char_to_value[128] =
+static const short base64_char_to_value[128] =
 {
   -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,	/*   0-  9 */
   -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,	/*  10- 19 */
--- a/src/fringe.c	Wed Nov 11 19:25:24 2009 +0000
+++ b/src/fringe.c	Wed Nov 11 20:11:51 2009 +0000
@@ -1330,7 +1330,7 @@
 */
 
 #if defined (HAVE_X_WINDOWS)
-static unsigned char swap_nibble[16] = {
+static const unsigned char swap_nibble[16] = {
   0x0, 0x8, 0x4, 0xc,           /* 0000 1000 0100 1100 */
   0x2, 0xa, 0x6, 0xe,           /* 0010 1010 0110 1110 */
   0x1, 0x9, 0x5, 0xd,           /* 0001 1001 0101 1101 */
--- a/src/gtkutil.c	Wed Nov 11 19:25:24 2009 +0000
+++ b/src/gtkutil.c	Wed Nov 11 20:11:51 2009 +0000
@@ -2013,7 +2013,7 @@
 /* Return non-zero if LABEL specifies a separator (GTK only has one
    separator type)  */
 
-static char* separator_names[] = {
+static const char* separator_names[] = {
   "space",
   "no-line",
   "single-line",
--- a/src/image.c	Wed Nov 11 19:25:24 2009 +0000
+++ b/src/image.c	Wed Nov 11 20:11:51 2009 +0000
@@ -2338,7 +2338,7 @@
 /* Vector of image_keyword structures describing the format
    of valid XBM image specifications.  */
 
-static struct image_keyword xbm_format[XBM_LAST] =
+static const struct image_keyword xbm_format[XBM_LAST] =
 {
   {":type",		IMAGE_SYMBOL_VALUE,			1},
   {":file",		IMAGE_STRING_VALUE,			0},
@@ -3138,7 +3138,7 @@
 /* Vector of image_keyword structures describing the format
    of valid XPM image specifications.  */
 
-static struct image_keyword xpm_format[XPM_LAST] =
+static const struct image_keyword xpm_format[XPM_LAST] =
 {
   {":type",		IMAGE_SYMBOL_VALUE,			1},
   {":file",		IMAGE_STRING_VALUE,			0},
@@ -5087,7 +5087,7 @@
 /* Vector of image_keyword structures describing the format
    of valid user-defined image specifications.  */
 
-static struct image_keyword pbm_format[PBM_LAST] =
+static const struct image_keyword pbm_format[PBM_LAST] =
 {
   {":type",		IMAGE_SYMBOL_VALUE,			1},
   {":file",		IMAGE_STRING_VALUE,			0},
@@ -5509,7 +5509,7 @@
 /* Vector of image_keyword structures describing the format
    of valid user-defined image specifications.  */
 
-static struct image_keyword png_format[PNG_LAST] =
+static const struct image_keyword png_format[PNG_LAST] =
 {
   {":type",		IMAGE_SYMBOL_VALUE,			1},
   {":data",		IMAGE_STRING_VALUE,			0},
@@ -6111,7 +6111,7 @@
 /* Vector of image_keyword structures describing the format
    of valid user-defined image specifications.  */
 
-static struct image_keyword jpeg_format[JPEG_LAST] =
+static const struct image_keyword jpeg_format[JPEG_LAST] =
 {
   {":type",		IMAGE_SYMBOL_VALUE,			1},
   {":data",		IMAGE_STRING_VALUE,			0},
@@ -6684,7 +6684,7 @@
 /* Vector of image_keyword structures describing the format
    of valid user-defined image specifications.  */
 
-static struct image_keyword tiff_format[TIFF_LAST] =
+static const struct image_keyword tiff_format[TIFF_LAST] =
 {
   {":type",		IMAGE_SYMBOL_VALUE,			1},
   {":data",		IMAGE_STRING_VALUE,			0},
@@ -7136,7 +7136,7 @@
 /* Vector of image_keyword structures describing the format
    of valid user-defined image specifications.  */
 
-static struct image_keyword gif_format[GIF_LAST] =
+static const struct image_keyword gif_format[GIF_LAST] =
 {
   {":type",		IMAGE_SYMBOL_VALUE,			1},
   {":data",		IMAGE_STRING_VALUE,			0},
@@ -7280,8 +7280,8 @@
 /* Load GIF image IMG for use on frame F.  Value is non-zero if
    successful.  */
 
-static int interlace_start[] = {0, 4, 2, 1};
-static int interlace_increment[] = {8, 8, 4, 2};
+static const int interlace_start[] = {0, 4, 2, 1};
+static const int interlace_increment[] = {8, 8, 4, 2};
 
 static int
 gif_load (f, img)
@@ -7575,7 +7575,7 @@
 /* Vector of image_keyword structures describing the format
    of valid user-defined image specifications.  */
 
-static struct image_keyword svg_format[SVG_LAST] =
+static const struct image_keyword svg_format[SVG_LAST] =
 {
   {":type",		IMAGE_SYMBOL_VALUE,			1},
   {":data",		IMAGE_STRING_VALUE,			0},
@@ -7982,7 +7982,7 @@
 /* Vector of image_keyword structures describing the format
    of valid user-defined image specifications.  */
 
-static struct image_keyword gs_format[GS_LAST] =
+static const struct image_keyword gs_format[GS_LAST] =
 {
   {":type",		IMAGE_SYMBOL_VALUE,			1},
   {":pt-width",		IMAGE_POSITIVE_INTEGER_VALUE,		1},
--- a/src/keyboard.c	Wed Nov 11 19:25:24 2009 +0000
+++ b/src/keyboard.c	Wed Nov 11 20:11:51 2009 +0000
@@ -4770,7 +4770,7 @@
 /* This is a list of keysym codes for special "accent" characters.
    It parallels lispy_accent_keys.  */
 
-static int lispy_accent_codes[] =
+static const int lispy_accent_codes[] =
 {
 #ifdef XK_dead_circumflex
   XK_dead_circumflex,
@@ -6484,7 +6484,7 @@
 }
 
 
-static char *modifier_names[] =
+static const char *modifier_names[] =
 {
   "up", "down", "drag", "click", "double", "triple", 0, 0,
   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
--- a/src/process.c	Wed Nov 11 19:25:24 2009 +0000
+++ b/src/process.c	Wed Nov 11 20:11:51 2009 +0000
@@ -3980,10 +3980,10 @@
 
 struct ifflag_def {
   int flag_bit;
-  char *flag_sym;
+  const char *flag_sym;
 };
 
-static struct ifflag_def ifflag_table[] = {
+static const struct ifflag_def ifflag_table[] = {
 #ifdef IFF_UP
   { IFF_UP,		"up" },
 #endif
@@ -4079,7 +4079,7 @@
   if (ioctl (s, SIOCGIFFLAGS, &rq) == 0)
     {
       int flags = rq.ifr_flags;
-      struct ifflag_def *fp;
+      const struct ifflag_def *fp;
       int fnum;
 
       any++;
--- a/src/sysdep.c	Wed Nov 11 19:25:24 2009 +0000
+++ b/src/sysdep.c	Wed Nov 11 20:11:51 2009 +0000
@@ -168,7 +168,7 @@
 #define LPASS8 0
 #endif
 
-static int baud_convert[] =
+static const int baud_convert[] =
   {
     0, 50, 75, 110, 135, 150, 200, 300, 600, 1200,
     1800, 2400, 4800, 9600, 19200, 38400
--- a/src/termcap.c	Wed Nov 11 19:25:24 2009 +0000
+++ b/src/termcap.c	Wed Nov 11 20:11:51 2009 +0000
@@ -184,7 +184,7 @@
    gives meaning of character following \, or a space if no special meaning.
    Sixteen characters per line within the string.  */
 
-static char esctab[]
+static const char esctab[]
   = " \057\026  \047\014         \
      \025   \015      \
    \005 \013          \
@@ -194,7 +194,7 @@
    gives meaning of character following \, or a space if no special meaning.
    Eight characters per line within the string.  */
 
-static char esctab[]
+static const char esctab[]
   = " \007\010  \033\014 \
       \012 \
   \015 \011 \013 \
@@ -348,7 +348,7 @@
 /* Actual baud rate if positive;
    - baud rate / 100 if negative.  */
 
-static int speeds[] =
+static const int speeds[] =
   {
     0, 50, 75, 110, 135, 150, -2, -3, -6, -12,
     -18, -24, -48, -96, -192, -288, -384, -576, -1152
--- a/src/xdisp.c	Wed Nov 11 19:25:24 2009 +0000
+++ b/src/xdisp.c	Wed Nov 11 20:11:51 2009 +0000
@@ -18077,7 +18077,7 @@
    readable" representation of the nonnegative integer D to BUF using
    a minimal field width WIDTH.  D should be smaller than 999.5e24. */
 
-static const char power_letter[] =
+static const const char power_letter[] =
   {
     0,	 /* not used */
     'k', /* kilo */
--- a/src/xfns.c	Wed Nov 11 19:25:24 2009 +0000
+++ b/src/xfns.c	Wed Nov 11 20:11:51 2009 +0000
@@ -2885,14 +2885,6 @@
    background, border and mouse colors; also create the
    mouse cursor and the gray border tile.  */
 
-static char cursor_bits[] =
-  {
-    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
-    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
-    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
-    0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
-  };
-
 static void
 x_make_gc (f)
      struct frame *f;