From: Shark8 <OneWingedShark@gmail.com>
Subject: Re: Problem with generic linked list package
Date: Thu, 07 Aug 2014 14:37:26 -0600
Date: 2014-08-07T14:37:26-06:00 [thread overview]
Message-ID: <csREv.183934$Y37.23526@fx22.iad> (raw)
In-Reply-To: <d5f90b52-9056-4472-a3ea-9cfaeff248ad@googlegroups.com>
On 07-Aug-14 13:07, Laurent wrote:
> Hi
>
> I have added an Insert_In_Order procedure to my generic package.
>
> The normal version given by the book is working.
>
> I have modified "Word" to "Element" so that it is generic.
> Compiler wasn't happy because "<" and ">=" were not defined for Element_Type.
Alter your Generic.
generic
type Element_Type is private;
with procedure Display_Element (Item : in Element_Type);
with function "<"(Left, Right : Element) return Boolean is <>;
with function "="(Left, Right : Element) return Boolean is <>;
package Linked_Lists_Generic is
-- ...
Function ">=" (Left, Right) Return Boolean is
( not (Left < Right) );
end Linked_Lists_Generic;
If you're not using Ada 2012 then you'll have to put the implementation
of >= in the body.
next prev parent reply other threads:[~2014-08-07 20:37 UTC|newest]
Thread overview: 28+ messages / expand[flat|nested] mbox.gz Atom feed top
2014-07-28 13:26 Problem with generic linked list package Laurent
2014-07-29 7:51 ` Jacob Sparre Andersen
2014-07-29 8:12 ` Laurent
2014-07-29 8:27 ` Stephen Leake
2014-07-29 15:38 ` Laurent
2014-08-07 19:07 ` Laurent
2014-08-07 19:21 ` Adam Beneschan
2014-08-07 19:25 ` Adam Beneschan
2014-08-07 22:20 ` Laurent
2014-08-07 23:35 ` Adam Beneschan
2014-08-08 4:42 ` Laurent
2014-08-09 14:32 ` Laurent
2014-08-09 14:58 ` AdaMagica
2014-08-09 15:22 ` Jeffrey Carter
2014-08-09 18:51 ` Shark8
2014-08-09 21:53 ` Laurent
2014-08-09 22:25 ` Jeffrey Carter
2014-08-10 8:22 ` Simon Wright
2014-08-10 10:45 ` Simon Wright
2014-08-10 20:20 ` Laurent
2014-08-10 21:57 ` Simon Wright
2014-08-10 23:42 ` Jeffrey Carter
2014-08-11 4:51 ` Laurent
2014-08-11 5:13 ` Jeffrey Carter
2014-08-11 7:56 ` Laurent
2014-08-07 20:37 ` Shark8 [this message]
2014-08-07 22:30 ` Laurent
2014-08-07 23:22 ` Shark8
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox