Mathematica
Mathematica has its built-in function DigitCount
function is as fast as expected.
popCount[n_Integer] := DigitCount[n, 2, 1];
(ans=popCount[115792089237316195423570985008687907853269984665640564039457584007913129639935])//AbsoluteTiming//Print