diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2002-06-18 12:16:18 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2002-06-18 12:16:18 -0300 |
| commit | d8678edddc98beab8eb78e63e698191a9ffd39b8 (patch) | |
| tree | fa8b5e3595f0caa11fb8ee5bfc3412e76dbef230 /ltablib.c | |
| parent | e812aa200234629d89351b6653d6ae737478ccd8 (diff) | |
| download | lua-d8678edddc98beab8eb78e63e698191a9ffd39b8.tar.gz lua-d8678edddc98beab8eb78e63e698191a9ffd39b8.tar.bz2 lua-d8678edddc98beab8eb78e63e698191a9ffd39b8.zip | |
luaL_verror -> luaL_error
Diffstat (limited to 'ltablib.c')
| -rw-r--r-- | ltablib.c | 6 |
1 files changed, 3 insertions, 3 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ltablib.c,v 1.5 2002/06/05 17:24:04 roberto Exp roberto $ | 2 | ** $Id: ltablib.c,v 1.6 2002/06/13 13:44:50 roberto Exp roberto $ |
| 3 | ** Library for Table Manipulation | 3 | ** Library for Table Manipulation |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -171,12 +171,12 @@ static void auxsort (lua_State *L, int l, int u) { | |||
| 171 | for (;;) { /* invariant: a[l..i] <= P <= a[j..u] */ | 171 | for (;;) { /* invariant: a[l..i] <= P <= a[j..u] */ |
| 172 | /* repeat ++i until a[i] >= P */ | 172 | /* repeat ++i until a[i] >= P */ |
| 173 | while (lua_rawgeti(L, 1, ++i), sort_comp(L, -1, -2)) { | 173 | while (lua_rawgeti(L, 1, ++i), sort_comp(L, -1, -2)) { |
| 174 | if (i>u) luaL_verror(L, "invalid order function for sorting"); | 174 | if (i>u) luaL_error(L, "invalid order function for sorting"); |
| 175 | lua_pop(L, 1); /* remove a[i] */ | 175 | lua_pop(L, 1); /* remove a[i] */ |
| 176 | } | 176 | } |
| 177 | /* repeat --j until a[j] <= P */ | 177 | /* repeat --j until a[j] <= P */ |
| 178 | while (lua_rawgeti(L, 1, --j), sort_comp(L, -3, -1)) { | 178 | while (lua_rawgeti(L, 1, --j), sort_comp(L, -3, -1)) { |
| 179 | if (j<l) luaL_verror(L, "invalid order function for sorting"); | 179 | if (j<l) luaL_error(L, "invalid order function for sorting"); |
| 180 | lua_pop(L, 1); /* remove a[j] */ | 180 | lua_pop(L, 1); /* remove a[j] */ |
| 181 | } | 181 | } |
| 182 | if (j<i) { | 182 | if (j<i) { |