Re: Unclear error message - please help

[Alfred Hilscher <SPAM@alfred-hilscher.de>]

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"
-----------------------------------------------------