| 234 | #define checksize(S,t) fchecksize(S,sizeof(t),#t) |
| 235 | |
| 236 | static void checkHeader (LoadState *S) { |
| 237 | checkliteral(S, LUA_SIGNATURE + 1, "not a"); /* 1st char already checked */ |
| 238 | if (LoadByte(S) != LUAC_VERSION) |
| 239 | error(S, "version mismatch in"); |
| 240 | if (LoadByte(S) != LUAC_FORMAT) |
| 241 | error(S, "format mismatch in"); |
| 242 | checkliteral(S, LUAC_DATA, "corrupted"); |
| 243 | checksize(S, int); |
| 244 | checksize(S, size_t); |
| 245 | checksize(S, Instruction); |
| 246 | checksize(S, lua_Integer); |
| 247 | checksize(S, lua_Number); |
| 248 | if (LoadInteger(S) != LUAC_INT) |
| 249 | error(S, "endianness mismatch in"); |
| 250 | if (LoadNumber(S) != LUAC_NUM) |
| 251 | error(S, "float format mismatch in"); |
| 252 | } |
| 253 | |
| 254 | |
| 255 | /* |
no test coverage detected