From: "Scott Barrish" <TeufelHunde@worldnet.att.net>
Subject: Problem...
Date: 1998/01/20
Date: 1998-01-20T00:00:00+00:00 [thread overview]
Message-ID: <6a1jk8$4g3@bgtnsc01.worldnet.att.net> (raw)
I have this package and I can't seem to figure out why I am getting thiserror
message in my source code file.
Package Static_Sort is a s follows:
generic
type Element_Type is private;
with function "<"(Left, Right : in Element_Type) return boolean;
package Static_Sort is
type Sort_Type (Max_Size : Positive) is limited private;
procedure Select_Sort(List : in out Sort_Type);
private
type Sort_Array is array (positive range <>) of Element_Type;
type Sort_Type (Max_Size : positive) is
record
Length : natural := 0;
Info : Sort_Array(1..Max_Size);
end record;
end Static_Sort;
The source code file is as follows:
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
with Static_Sort;
procedure main is
package Int_Sort_IO is new Static_Sort(Element_Type => integer);
Int_Sort : Int_Sort_IO.Sort_Type(10);
begin
Put_Line("Let's give it a try.");
Int_Sort_IO.Select_Sort(Int_Sort); //This is the line the compiler gies the
error.
end main;
Error messageis as follows:
151-8.ada: Error: line 7 col 64 LRM:12.3(10), Missing actual parameter for <,
Continuing
next reply other threads:[~1998-01-20 0:00 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
1998-01-20 0:00 Scott Barrish [this message]
1998-01-20 0:00 ` Problem Stephen Leake
1998-01-20 0:00 ` Problem Robert Dewar
1998-01-20 0:00 ` Problem John English
1998-01-20 0:00 ` Problem Sven Derben
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox