[Lush-cvs] lush/src io.c,1.27,1.28

[Leon B. <le...@us...>]

Update of /cvsroot/lush/lush/src
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv9423

Modified Files:
	io.c 
Log Message:
unicode escape \U takes only 6 hexadecimal digits


Index: io.c
===================================================================
RCS file: /cvsroot/lush/lush/src/io.c,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** io.c	16 Oct 2009 16:07:05 -0000	1.27
--- io.c	12 Feb 2015 22:12:02 -0000	1.28
***************
*** 775,781 ****
  	*d++ = h;
  
!       } else if (*s == 'u' || *s == 'U') {
  	unsigned long h = 0;
!         int c = ((*s == 'u') ? 4 : 8);
          at *m;
  	s++;
--- 775,781 ----
  	*d++ = h;
  
!       } else if (*s == 'u' || *s == 'U') { /* unicode */
  	unsigned long h = 0;
!         int c = ((*s == 'u') ? 4 : 6);
          at *m;
  	s++;
***************
*** 800,804 ****
  	s += 2;
  
!       } else if (*s == '+' && s[1]) {	/* high bit latin1*/
  #if HAVE_ICONV
          at *m = rl_utf8(s[1] | 0x80);
--- 800,804 ----
  	s += 2;
  
!       } else if (*s == '+' && s[1]) {	/* high bit latin1 */
  #if HAVE_ICONV
          at *m = rl_utf8(s[1] | 0x80);