carbon2-commit: Error on over-long hex character escapes.

changeset: 4513:7869173584fcd40b83462f6acad1a9e7d8be3da1 parent: 4508:ec442dc06fe1bc671fbe0ed0a928b294cdd45aba user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Wed Jul 16 22:36:03 2008 +0200 files: src/ChangeLog src/lread.c description: Error on over-long hex character escapes. 2008-07-16 Aidan Kehoe <kehoea(a)parhasard.net&gt; * lread.c (read_escape): Error if we're handed an over-long hex character escape, something which arises reasonably frequently in code written for GNU. diff -r ec442dc06fe1bc671fbe0ed0a928b294cdd45aba -r 7869173584fcd40b83462f6acad1a9e7d8be3da1 src/ChangeLog --- a/src/ChangeLog Thu Jul 10 23:37:52 2008 +0200 +++ b/src/ChangeLog Wed Jul 16 22:36:03 2008 +0200 ＠＠ -1,3 +1,9 ＠＠ 2008-07-07 Aidan Kehoe <kehoea＠parhasa +2008-07-16 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * lread.c (read_escape): + Error if we're handed an over-long hex character escape, something + which arises reasonably frequently in code written for GNU. + 2008-07-07 Aidan Kehoe <kehoea(a)parhasard.net&gt; Patch to make it up to the device-specific code whether diff -r ec442dc06fe1bc671fbe0ed0a928b294cdd45aba -r 7869173584fcd40b83462f6acad1a9e7d8be3da1 src/lread.c --- a/src/lread.c Thu Jul 10 23:37:52 2008 +0200 +++ b/src/lread.c Wed Jul 16 22:36:03 2008 +0200 ＠＠ -1855,6 +1855,28 ＠＠ read_escape (Lisp_Object readcharfun) break; } } + + if (count == 3) + { + c = readchar (readcharfun); + if ((c >= '0' && c <= '9') || + (c >= 'a' && c <= 'f') || + (c >= 'A' && c <= 'F')) + { + Lisp_Object args[2]; + + if (c >= '0' && c <= '9') i = (i << 4) + (c - '0'); + else if (c >= 'a' && c <= 'f') i = (i << 4) + (c - 'a') + 10; + else if (c >= 'A' && c <= 'F') i = (i << 4) + (c - 'A') + 10; + + args[0] = build_string ("?\\x%x"); + args[1] = make_int (i); + syntax_error ("Overlong hex character escape", + Fformat (2, args)); + } + unreadchar (readcharfun, c); + } + return i; } case 'U': _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches