78 end;

    78 end;

    79 

    79 

    80 function rndSign(num: hwFloat): hwFloat;

    80 function rndSign(num: hwFloat): hwFloat;

    81 begin

    81 begin

    82 num.isNegative:= odd(GetNext);

    82 num.isNegative:= odd(GetNext);

    84 rndSign:= num

    83 rndSign:= num

    85 end;

    84 end;

    86 

    85 

    87 {$IFDEF DEBUGFILE}

    86 {$IFDEF DEBUGFILE}

    88 procedure DumpBuffer;

    87 procedure DumpBuffer;