🚀 go-pugleaf

I looked for more array bound violations in cpp (GCC 2.3.3) and found four
places in cccp.c where (on a machine where char is signed) a negative value
might be used as a subscript, leading to possibly wrong answers and/or core
dumps.  Here is a patch.


Wed Jan  6 02:35:23 1993  Paul Eggert  (eggert@twinsun.com)

	* cccp.c (check_preconditions, do_error, do_warning, do_xifdef):
	Don't use signed chars to index into arrays; they might be negative.

===================================================================
RCS file: RCS/cccp.c,v
retrieving revision 2.3
diff -c -r2.3 cccp.c
*** cccp.c	1992/12/16 04:25:36	2.3
--- cccp.c	1993/01/06 02:35:23
***************
*** 4383,4392 ****
        int len;
        
        prec += 5;
!       while (is_hor_space[*prec])
  	prec++;
        name = prec;
!       while (is_idchar[*prec])
  	prec++;
        len = prec - name;
        
--- 4383,4392 ----
        int len;
        
        prec += 5;
!       while (is_hor_space[(U_CHAR) *prec])
  	prec++;
        name = prec;
!       while (is_idchar[(U_CHAR) *prec])
  	prec++;
        len = prec - name;
        
***************
*** 5827,5833 ****
       struct directive *keyword;
  {
    int length = limit - buf;
!   char *copy = (char *) xmalloc (length + 1);
    bcopy (buf, copy, length);
    copy[length] = 0;
    SKIP_WHITE_SPACE (copy);
--- 5827,5833 ----
       struct directive *keyword;
  {
    int length = limit - buf;
!   U_CHAR *copy = (U_CHAR *) xmalloc (length + 1);
    bcopy (buf, copy, length);
    copy[length] = 0;
    SKIP_WHITE_SPACE (copy);
***************
*** 5850,5856 ****
       struct directive *keyword;
  {
    int length = limit - buf;
!   char *copy = (char *) xmalloc (length + 1);
    bcopy (buf, copy, length);
    copy[length] = 0;
    SKIP_WHITE_SPACE (copy);
--- 5850,5856 ----
       struct directive *keyword;
  {
    int length = limit - buf;
!   U_CHAR *copy = (U_CHAR *) xmalloc (length + 1);
    bcopy (buf, copy, length);
    copy[length] = 0;
    SKIP_WHITE_SPACE (copy);
***************
*** 6094,6100 ****
    if (ip->fname != 0 && keyword->type == T_IFNDEF) {
      U_CHAR *p = ip->buf;
      while (p != directive_start) {
!       char c = *p++;
        if (is_space[c])
  	;
        else if (c == '/' && p != ip->bufp && *p == '*') {
--- 6094,6100 ----
    if (ip->fname != 0 && keyword->type == T_IFNDEF) {
      U_CHAR *p = ip->buf;
      while (p != directive_start) {
!       U_CHAR c = *p++;
        if (is_space[c])
  	;
        else if (c == '/' && p != ip->bufp && *p == '*') {