** Check whether integer 'i' is less than float 'f'. If 'i' has an ** exact representation as a float ('l_intfitsf'), compare numbers as ** floats. Otherwise, use the equivalence 'i < f <=> i < ceil(f)'. ** If 'ceil(f)' is out of integer range, either 'f' is greater than ** all integers or less than all integers. ** (The test with 'l_intfitsf' is only for performance; the else ** case is correct f
| 407 | ** When 'f' is NaN, comparisons must result in false. |
| 408 | */ |
| 409 | static int LTintfloat (lua_Integer i, lua_Number f) { |
| 410 | if (l_intfitsf(i)) |
| 411 | return luai_numlt(cast_num(i), f); /* compare them as floats */ |
| 412 | else { /* i < f <=> i < ceil(f) */ |
| 413 | lua_Integer fi; |
| 414 | if (luaV_flttointeger(f, &fi, F2Iceil)) /* fi = ceil(f) */ |
| 415 | return i < fi; /* compare them as integers */ |
| 416 | else /* 'f' is either greater or less than all integers */ |
| 417 | return f > 0; /* greater? */ |
| 418 | } |
| 419 | } |
| 420 | |
| 421 | |
| 422 | /* |
no test coverage detected