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,78ec96be17741f16
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news3.google.com!news2.volia.net!newsfeed01.sul.t-online.de!newsmm00.sul.t-online.de!t-online.de!news.t-online.com!not-for-mail
From: Alfred Hilscher <SPAM@alfred-hilscher.de>
Newsgroups: comp.lang.ada
Subject: Re: Unclear error message - please help
Date: Sat, 08 Oct 2005 21:39:35 +0200
Organization: none
Message-ID: <43482077.3434FCF3@alfred-hilscher.de>
References: <432C8690.C37D4AE0@alfred-hilscher.de>
 <wccll1v14yg.fsf@shell01.TheWorld.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Trace: news.t-online.com 1128800404 01 12523 bFtfJh+1aR8DPl9 051008 19:40:04
X-Complaints-To: usenet-abuse@t-online.de
X-ID: rAZhrrZQremPhXgjWmAFk2zyOHwR0nleZysGjPNBiouuPpHiAQhY4S
X-Mailer: Mozilla 4.75 [de] (WinNT; U)
X-Accept-Language: de
Xref: g2news1.google.com comp.lang.ada:5512
Date: 2005-10-08T21:39:35+02:00
List-Id: <comp.lang.ada>



Robert A Duff schrieb:
> 
> Other ideas:
> 
> Don't use Integer all over the place, but instead use
> different types, to avoid confusion.

Ok, I tried it, but it seems that a "subtype" is also not the solution:

package spec:
package Pkg is

  subtype 
    Sixteen_Bits is Integer range 0..65535;
    
  procedure Proc (Host : STRING; RC : out Integer; Identifier : in
Sixteen_Bits := 0);

  procedure Proc (Host : STRING;
                 Time_Response : out Integer; RC : out Integer;
                 Time_Wait : Integer := 10;
                 Identifier : in Sixteen_Bits := 0);
end Pkg;

program:
with Text_IO;
with Ada.Command_Line;  use Ada.Command_Line;

with Pkg; use Pkg;

procedure PkgTest is
  RC : Integer;
begin
  if Argument_Count /= 1
  then
    Text_IO.Put_Line ("call: PkgTest <ip>");
    return;
  end if;
  
  Proc (Argument (1), RC, Sixteen_Bits (2507));
  Text_IO.Put_Line ("RC=" & Integer'Image (RC));
end PkgTest;

 
> Or use two different names, instead of calling both "Proc".

No, that's not what I want. The advantage of Ada against other languages
is the overloading: that same things can have the same name(e.g. Put for
all types, unlike WriteInt, WriteCard ... in Modula).
 
> - Bob

Alfred

-- 
-----------------------------------------------------
To send me mail, please replace "Spam" by "Jedermann"
-----------------------------------------------------