no more error for '\x' (with "invalid" x)

This commit is contained in:
Roberto Ierusalimschy 1998-06-06 17:44:05 -03:00
parent 02134b4a87
commit 7dfa952091
1 changed files with 3 additions and 9 deletions

12
llex.c
View File

@ -1,5 +1,5 @@
/*
** $Id: llex.c,v 1.18 1998/03/20 14:18:18 roberto Exp roberto $
** $Id: llex.c,v 1.19 1998/05/27 13:03:40 roberto Exp roberto $
** Lexical Analizer
** See Copyright Notice in lua.h
*/
@ -339,11 +339,6 @@ int luaX_lex (LexState *LS) {
case 't': save('\t'); next(LS); break;
case 'v': save('\v'); next(LS); break;
case '\n': save('\n'); inclinenumber(LS); break;
case '\\': case '"': case '\'': case '?': {
save(LS->current);
next(LS);
break;
}
default : {
if (isdigit(LS->current)) {
int c = 0;
@ -356,10 +351,9 @@ int luaX_lex (LexState *LS) {
luaX_error(LS, "escape sequence too large");
save(c);
}
else {
save('\\');
else { /* handles \, ", ', and ? */
save(LS->current);
luaX_error(LS, "invalid escape sequence");
next(LS);
}
break;
}