** equality for long strings */
| 30 | ** equality for long strings |
| 31 | */ |
| 32 | int luaS_eqlngstr (TString *a, TString *b) { |
| 33 | size_t len = a->tsv.len; |
| 34 | lua_assert(a->tsv.tt == LUA_TLNGSTR && b->tsv.tt == LUA_TLNGSTR); |
| 35 | return (a == b) || /* same instance or... */ |
| 36 | ((len == b->tsv.len) && /* equal length and ... */ |
| 37 | (memcmp(getstr(a), getstr(b), len) == 0)); /* equal contents */ |
| 38 | } |
| 39 | |
| 40 | |
| 41 | /* |
no outgoing calls
no test coverage detected