** Integer division; return 'm // n', that is, floor(m/n). ** C division truncates its result (rounds towards zero). ** 'floor(q) == trunc(q)' when 'q >= 0' or when 'q' is integer, ** otherwise 'floor(q) == trunc(q) - 1'. */
| 433 | ** otherwise 'floor(q) == trunc(q) - 1'. |
| 434 | */ |
| 435 | lua_Integer luaV_div (lua_State *L, lua_Integer m, lua_Integer n) { |
| 436 | if (l_castS2U(n) + 1u <= 1u) { /* special cases: -1 or 0 */ |
| 437 | if (n == 0) |
| 438 | luaG_runerror(L, "attempt to divide by zero"); |
| 439 | return intop(-, 0, m); /* n==-1; avoid overflow with 0x80000...//-1 */ |
| 440 | } |
| 441 | else { |
| 442 | lua_Integer q = m / n; /* perform C division */ |
| 443 | if ((m ^ n) < 0 && m % n != 0) /* 'm/n' would be negative non-integer? */ |
| 444 | q -= 1; /* correct result for different rounding */ |
| 445 | return q; |
| 446 | } |
| 447 | } |
| 448 | |
| 449 | |
| 450 | /* |
no test coverage detected