diff options
Diffstat (limited to 'src/openssl.c')
| -rw-r--r-- | src/openssl.c | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/src/openssl.c b/src/openssl.c index ed7222e..4564061 100644 --- a/src/openssl.c +++ b/src/openssl.c @@ -772,8 +772,9 @@ NOTUSED static auxtype_t auxL_getref(lua_State *L, auxref_t ref) { static int auxL_testoption(lua_State *L, int index, const char *def, const char *const *optlist, _Bool nocase) { const char *optname = (def)? luaL_optstring(L, index, def) : luaL_checkstring(L, index); int (*optcmp)() = (nocase)? &strcasecmp : &strcmp; + int i; - for (int i = 0; optlist[i]; i++) { + for (i = 0; optlist[i]; i++) { if (0 == optcmp(optlist[i], optname)) return i; } @@ -929,9 +930,11 @@ static inline size_t auxL_liblen(const auxL_Reg *l) { static void auxL_setfuncs(lua_State *L, const auxL_Reg *l, int nups) { for (; l->name; l++) { + int i; + /* copy shared upvalues */ luaL_checkstack(L, nups, "too many upvalues"); - for (int i = 0; i < nups; i++) + for (i = 0; i < nups; i++) lua_pushvalue(L, -nups); /* nil-fill local upvalues */ @@ -3741,13 +3744,15 @@ static int pk_getParameters(lua_State *L) { return luaL_error(L, "%d: unsupported EVP_PKEY base type", base_type); if (lua_isnoneornil(L, 2)) { + const char *const *optname; + /* * Use special "{" parameter to tell loop to push table. * Subsequent parameters will be assigned as fields. */ lua_pushstring(L, "{"); luaL_checkstack(L, nopts, "too many arguments"); - for (const char *const *optname = optlist; *optname; optname++) { + for (optname = optlist; *optname; optname++) { lua_pushstring(L, *optname); } } @@ -3927,11 +3932,12 @@ static const auxL_Reg pk_globals[] = { }; static void pk_luainit(lua_State *L, _Bool reset) { + char **k; if (!auxL_newmetatable(L, PKEY_CLASS, reset)) return; auxL_setfuncs(L, pk_metatable, 0); auxL_newlib(L, pk_methods, 0); - for (char **k = (char *[]){ "__index", "__newindex", 0 }; *k; k++) { + for (k = (char *[]){ "__index", "__newindex", 0 }; *k; k++) { lua_getfield(L, -2, *k); /* closure */ lua_pushvalue(L, -2); /* method table */ lua_setupvalue(L, -2, 1); |