** Integer modulus; return 'm % n'. (Assume that C '%' with ** negative operands follows C99 behavior. See previous comment ** about luaV_idiv.) */
| 738 | ** about luaV_idiv.) |
| 739 | */ |
| 740 | lua_Integer luaV_mod (lua_State *L, lua_Integer m, lua_Integer n) { |
| 741 | if (l_unlikely(l_castS2U(n) + 1u <= 1u)) { /* special cases: -1 or 0 */ |
| 742 | if (n == 0) |
| 743 | luaG_runerror(L, "attempt to perform 'n%%0'"); |
| 744 | return 0; /* m % -1 == 0; avoid overflow with 0x80000...%-1 */ |
| 745 | } |
| 746 | else { |
| 747 | lua_Integer r = m % n; |
| 748 | if (r != 0 && (r ^ n) < 0) /* 'm/n' would be non-integer negative? */ |
| 749 | r += n; /* correct result for different rounding */ |
| 750 | return r; |
| 751 | } |
| 752 | } |
| 753 | |
| 754 | |
| 755 | /* |
no test coverage detected