comp.lang.ada
 help / color / mirror / Atom feed
From: Shark8 <onewingedshark@gmail.com>
Subject: Re: Hi-Lite high integrity showcase and overflow errors
Date: Mon, 3 Sep 2012 19:53:35 -0700 (PDT)
Date: 2012-09-03T19:53:35-07:00	[thread overview]
Message-ID: <269901b0-6570-4d7a-bcd4-19d590383515@googlegroups.com> (raw)
In-Reply-To: <5045278b$0$6576$9b4e6d93@newsspool3.arcor-online.net>

	function Mult (X , Y : My_Int) return My_Int is
	begin
	    Return Result : My_Int:= X*Y;

	    -- When the constraint is exceeded we return the last value.
	    exception
		when Constraint_Error =>
		    Return My_Int'Last;
	end Mult;

There you are; that'll work as intended.



  reply	other threads:[~2012-09-04  2:53 UTC|newest]

Thread overview: 11+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2012-09-03 21:56 Hi-Lite high integrity showcase and overflow errors Georg Bauhaus
2012-09-04  2:53 ` Shark8 [this message]
2012-09-04  3:05   ` Shark8
2012-09-04  8:30     ` Georg Bauhaus
2012-09-04 18:45       ` Shark8
2012-09-04 20:21 ` Florian Weimer
2012-09-04 21:24   ` Shark8
2012-09-05  9:25   ` yannick.moy
2012-09-05  9:19 ` yannick.moy
2012-09-05 11:15   ` Georg Bauhaus
2012-10-03 10:47   ` Florian Weimer
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox