From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,3b7846f658978a27
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.66.84.38 with SMTP id v6mr852909pay.7.1344755819844;
        Sun, 12 Aug 2012 00:16:59 -0700 (PDT)
Path: 
 g9ni42277577pbo.0!nntp.google.com!npeer03.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!nx02.iad01.newshosting.com!newshosting.com!news-out.readnews.com!transit3.readnews.com!s09-10.readnews.com!unm2.readnews.com.POSTED!not-for-mail
X-Trace: 
 DXC=?Ze5R=XZgOD^gS:\`kT_IH[3OhcoN[H0@X44`8^\]>7J25[I[UfBM:EkUW7BM=9lYBgLJHL2F[3IIY_AWI0W=mKJnCWe;`2\]KCm^SPfR0o[6J
X-Complaints-To: abuse@ngroups.net
Date: Sun, 12 Aug 2012 09:16:58 +0200
From: Per Sandberg <per.sandberg@sandat.dyndns.org>
Newsgroups: comp.lang.ada
Subject: Re: can Ada give run-time error or warning for integer division
 with non-zero remainder?
Message-ID: <20120812091658.0ad5d91d@lufsen.sandat.dyndns.org>
References: <k07028$eok$1@speranza.aioe.org>
X-Newsreader: Claws Mail 3.8.0 (GTK+ 2.24.8; x86_64-redhat-linux-gnu)
Mime-Version: 1.0
Organization: readnews.com - News for Geeks and ISPs
NNTP-Posting-Host: 180c1a56.newsreader.readnews.com
X-Received-Bytes: 3482
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
Date: 2012-08-12T09:16:58+02:00
List-Id: <comp.lang.ada>

If you want an new behaviour for "/" on an integer type you could always
make a new integer type with the required properties:
-------------------------------------------------------------------------
package Integers is
   type Integer is new Standard.Integer;
   overriding function "/" (L : Integer; R  : Integer) return Integer;
   function "/" (L : Standard.Integer; R  : Integer) return Integer;
   function "/" (L : Integer; R  : Standard.Integer) return Integer;
end Integers
-------------------------------------------------------------------------
package body Integers is

   overriding function "/" (L : Integer; R  : Integer) return Integer is
   begin
      return Ret : Integer do
         Ret := Integer (Standard.Integer (Standard.Integer (L) /
   Standard.Integer (R))); if Ret * R /= L then
            raise Constraint_Error with L'Img & "/" & R'Img & " gives
   reminder."; end if;
      end return;
   end "/";

   function "/" (L : Standard.Integer; R  : Integer) return Integer is
   begin
      return Ret : Integer do
         Ret := Integer (L) / R;
      end return;
   end "/";

   function "/" (L : Integer; R  : Standard.Integer) return Integer is
   begin
      return Ret : Integer do
         Ret := L / Integer (R);
      end return;
   end "/";

end Integers;
-------------------------------------------------------------------------
/P


On Sat, 11 Aug 2012 20:14:42 -0500 "Nasser M. Abbasi" <nma@12000.org>
wrote:

> 
> In Ada when dividing 2 integers, the result is an integer
> with the remainder ignored.  Hence 3/2 gives 1
> 
> ----------------------------------
> with Ada.Integer_Text_IO ; use Ada.Integer_Text_IO ;
> 
> procedure foo4 is
>    N : constant integer := 3;
>    M : integer;
>    
>    begin
>      M := N/2;
>      put(M);
>         
> end foo4;
> --------------------------
> 
> >gnatmake foo4.adb
> >./foo4
>            1
> 
> Now, suppose I want to know that a division between 2 integers
> has resulted in nonzero remainder that was thrown away. May be
> because my algorithm is meant to work only for even values and
> an odd value means there was a bug somewhere and I want to
> know about it.
> 
> Is there any kind of run-time switch to tell it to
> check for this? I know I can always add logic myself to
> check for this in the code, using rem() for example (which
> might be the better solution actually) but I was just
> wondering if there is a run-time switch for this.
> 
> thanks,
> -Nasser