lua

commit 74832b2a1005f480963324b5464e20e16fc73ceb
parent ee41bc03ab0af1b1d0c4a90e172b05cda3dac38f
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Fri, 23 Jun 2006 13:08:52 -0300

detail

Diffstat:
M
lua.c
 | 
8
+++++---

1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/lua.c b/lua.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lua.c,v 1.159 2006/05/24 14:16:39 roberto Exp roberto $
+** $Id: lua.c,v 1.160 2006/06/02 15:34:00 roberto Exp roberto $
 ** Lua stand-alone interpreter
 ** See Copyright Notice in lua.h
 */
@@ -157,13 +157,15 @@ static const char *get_prompt (lua_State *L, int firstline) {
   return p;
 }
 
+/* mark in error messages for incomplete statements */
+#define mark	LUA_QL("<eof>")
+#define marklen	(sizeof(mark) - 1)
 
 static int incomplete (lua_State *L, int status) {
   if (status == LUA_ERRSYNTAX) {
     size_t lmsg;
     const char *msg = lua_tolstring(L, -1, &lmsg);
-    const char *tp = msg + lmsg - (sizeof(LUA_QL("<eof>")) - 1);
-    if (strstr(msg, LUA_QL("<eof>")) == tp) {
+    if (lmsg >= marklen && strcmp(msg + lmsg - marklen, mark) == 0) {
       lua_pop(L, 1);
       return 1;
     }