diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2023-11-24 16:08:55 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2023-11-24 16:08:55 -0300 |
| commit | 842a83f09caa2ebd4bc03e0076420148ac07c808 (patch) | |
| tree | 92eca69ee75b32156b14c1a9d0b5a31f16ef9118 /ltests.c | |
| parent | 7923dbbf72da303ca1cca17efd24725668992f15 (diff) | |
| download | lua-842a83f09caa2ebd4bc03e0076420148ac07c808.tar.gz lua-842a83f09caa2ebd4bc03e0076420148ac07c808.tar.bz2 lua-842a83f09caa2ebd4bc03e0076420148ac07c808.zip | |
Panic functions should not raise errors
The standard panic function was using 'lua_tostring', which may raise
a memory-allocation error if error value is a number.
Diffstat (limited to 'ltests.c')
| -rw-r--r-- | ltests.c | 5 |
1 files changed, 3 insertions, 2 deletions
| @@ -73,8 +73,9 @@ static void badexit (const char *fmt, const char *s1, const char *s2) { | |||
| 73 | 73 | ||
| 74 | 74 | ||
| 75 | static int tpanic (lua_State *L) { | 75 | static int tpanic (lua_State *L) { |
| 76 | const char *msg = lua_tostring(L, -1); | 76 | const char *msg = (lua_type(L, -1) == LUA_TSTRING) |
| 77 | if (msg == NULL) msg = "error object is not a string"; | 77 | ? lua_tostring(L, -1) |
| 78 | : "error object is not a string"; | ||
| 78 | return (badexit("PANIC: unprotected error in call to Lua API (%s)\n", | 79 | return (badexit("PANIC: unprotected error in call to Lua API (%s)\n", |
| 79 | msg, NULL), | 80 | msg, NULL), |
| 80 | 0); /* do not return to Lua */ | 81 | 0); /* do not return to Lua */ |