luaO_hexavalue
r = (r << 4) + luaO_hexavalue(c[i]);
r = (r * cast_num(16.0)) + cast_num(luaO_hexavalue(cast_uchar(**s)));
LUAI_FUNC int luaO_hexavalue (int c);