Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!lll-crg!rutgers!princeton!siemens!gypsy!emery
From: emery@gypsy.UUCP
Newsgroups: net.lang.ada
Subject: Re: Getting the integer part of a real
Message-ID: <38000035@gypsy.UUCP>
Date: Fri, 7-Nov-86 10:31:00 EST
Article-I.D.: gypsy.38000035
Posted: Fri Nov  7 10:31:00 1986
Date-Received: Sun, 9-Nov-86 02:55:47 EST
References: <38000034@gypsy.UUCP>
Lines: 18
Nf-ID: #R:gypsy:38000034:gypsy:38000035:000:289
Nf-From: gypsy!emery    Nov  7 10:31:00 1986



oops, made a type mismatch mistake in the last note:

comparison should be:

	if (real(i) > x) then
	    i := i - 1;		-- machine rounded up

There is no operation ">" (L : integer, R : real)....

Sorry about that, chief...

			Dave Emery
			Mitre Corp.
			emery@mitre-bedford.arpa