Re: Red-faced professor gets bitten in search for portability

[psinntp!vitro.com!v7.vitro.com!vaxs09@uunet.uu.net]

In article <11919@spim.mips.COM>, murphy@mips.com (Mike Murphy) writes:
> Why not just
> check whether you indeed rounded down after doing the integer conversion?
> For example:
> 	FUNCTION Trunc (X: Float) RETURN Integer IS
> 		itrunc : integer = integer(x - 0.5);
> 	BEGIN
> 		if x - float(itrunc) >= 1.0 then
> 			-- rounded down, so add back a 1
> 			return itrunc+1;
> 		else
> 			return itrunc;
> 		end if;
> 	END Trunc;
>
I think this version focuses more clearly on the original problem.

	FUNCTION Trunc ( X : Float ) RETURN Integer IS
		i : integer := integer ( x );
		if x < float(i) then
			return i - 1;
		else
			return i;
		endif;
	END Trunc;