Source position: fptlsbigint.pas line 110
function BISquare(
var Context: TBigIntContext;
BI: PBigInt
):PBigInt;