comparison src/lread.c @ 102300:d7ea9e8841d3

(read_escape): Signal an error for invalid \UXXXXXXXX.

102299:668bf00f127d

    case 'u':

      /* A Unicode escape. We only permit them in strings and characters,
	 not arbitrarily in the source code, as in some other languages.  */
      {
	int i = 0;
	int count = 0;

	while (++count <= unicode_hex_count)
	  {
	    c = READCHAR;

	      {
		error ("Non-hex digit used for Unicode escape");
		break;
	      }
	  }

	return i;
      }

    default:
      return c;

102300:d7ea9e8841d3

    case 'u':

      /* A Unicode escape. We only permit them in strings and characters,
	 not arbitrarily in the source code, as in some other languages.  */
      {
	unsigned int i = 0;
	int count = 0;

	while (++count <= unicode_hex_count)
	  {
	    c = READCHAR;

	      {
		error ("Non-hex digit used for Unicode escape");
		break;
	      }
	  }
	if (i > 0x10FFFF)
	  error ("Non-Unicode character: 0x%x", i);
	return i;
      }

    default:
      return c;