diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-10-11 14:47:50 -0200 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-10-11 14:47:50 -0200 |
commit | 0ffc676ce7ea4764f3277ce87967ef14ad323933 (patch) | |
tree | 2582dabfc21f150b20c69a03ddfc9f896bc564d3 /lobject.c | |
parent | 18fb3ddb897564178bebec44dbe04fabcebf39c5 (diff) | |
download | lua-github-0ffc676ce7ea4764f3277ce87967ef14ad323933.tar.gz |
details
Diffstat (limited to 'lobject.c')
-rw-r--r-- | lobject.c | 9 |
1 files changed, 4 insertions, 5 deletions
@@ -1,5 +1,5 @@ /* -** $Id: lobject.c,v 1.52 2000/10/05 12:14:08 roberto Exp roberto $ +** $Id: lobject.c,v 1.53 2000/10/09 13:47:32 roberto Exp roberto $ ** Some generic functions over Lua objects ** See Copyright Notice in lua.h */ @@ -87,16 +87,14 @@ void luaO_verror (lua_State *L, const char *fmt, ...) { } -#define EXTRALEN sizeof(" string \"s...\" ") - void luaO_chunkid (char *out, const char *source, int bufflen) { if (*source == '=') - sprintf(out, "%.*s", bufflen, source+1); /* remove first char */ + sprintf(out, "%.*s", bufflen-1, source+1); /* remove first char */ else { - bufflen -= EXTRALEN; if (*source == '@') { int l; source++; /* skip the `@' */ + bufflen -= sizeof("file `...%s'"); l = strlen(source); if (l>bufflen) { source += (l-bufflen); /* get last part of file name */ @@ -107,6 +105,7 @@ void luaO_chunkid (char *out, const char *source, int bufflen) { } else { int len = strcspn(source, "\n"); /* stop at first newline */ + bufflen -= sizeof("string \"%.*s...\""); if (len > bufflen) len = bufflen; if (source[len] != '\0') /* must truncate? */ sprintf(out, "string \"%.*s...\"", len, source); |