diff options
-rw-r--r-- | lstring.c | 7 |
1 files changed, 2 insertions, 5 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lstring.c,v 1.7 1997/12/01 20:31:25 roberto Exp roberto $ | 2 | ** $Id: lstring.c,v 1.8 1997/12/09 13:35:19 roberto Exp roberto $ |
3 | ** String table (keeps all strings handled by Lua) | 3 | ** String table (keeps all strings handled by Lua) |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -106,16 +106,13 @@ static TaggedString *insert (char *buff, int tag, stringtable *tb) | |||
106 | int j = -1; | 106 | int j = -1; |
107 | if ((long)tb->nuse*3 >= (long)tb->size*2) | 107 | if ((long)tb->nuse*3 >= (long)tb->size*2) |
108 | grow(tb); | 108 | grow(tb); |
109 | i = h%tb->size; | 109 | for (i = h%tb->size; (ts = tb->hash[i]) != NULL; i = (i+1)%tb->size) { |
110 | while ((ts = tb->hash[i]) != NULL) | ||
111 | { | ||
112 | if (ts == &EMPTY) | 110 | if (ts == &EMPTY) |
113 | j = i; | 111 | j = i; |
114 | else if ((ts->constindex >= 0) ? /* is a string? */ | 112 | else if ((ts->constindex >= 0) ? /* is a string? */ |
115 | (tag == LUA_T_STRING && (strcmp(buff, ts->str) == 0)) : | 113 | (tag == LUA_T_STRING && (strcmp(buff, ts->str) == 0)) : |
116 | ((tag == ts->u.d.tag || tag == LUA_ANYTAG) && buff == ts->u.d.v)) | 114 | ((tag == ts->u.d.tag || tag == LUA_ANYTAG) && buff == ts->u.d.v)) |
117 | return ts; | 115 | return ts; |
118 | i = (i+1)%tb->size; | ||
119 | } | 116 | } |
120 | /* not found */ | 117 | /* not found */ |
121 | if (j != -1) /* is there an EMPTY space? */ | 118 | if (j != -1) /* is there an EMPTY space? */ |