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