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,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.42.119.82 with SMTP id a18mr11775449icr.19.1407702024175;
        Sun, 10 Aug 2014 13:20:24 -0700 (PDT)
X-Received: by 10.140.33.203 with SMTP id j69mr492859qgj.2.1407702024118; Sun,
 10 Aug 2014 13:20:24 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!news.eternal-september.org!news.eternal-september.org!feeder.eternal-september.org!news.glorb.com!h18no17745247igc.0!news-out.google.com!j6ni34691qas.0!nntp.google.com!v10no6035649qac.1!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Sun, 10 Aug 2014 13:20:24 -0700 (PDT)
In-Reply-To: <lyzjfclj1d.fsf@pushface.org>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=87.240.227.47;
 posting-account=sDyr7QoAAAA7hiaifqt-gaKY2K7OZ8RQ
NNTP-Posting-Host: 87.240.227.47
References: <f78b375e-76fb-4742-95c5-3017baa8dc38@googlegroups.com>
 <85a97spo1c.fsf@stephe-leake.org>
 <92dd7d22-a7da-44d7-9c40-b3aa62881683@googlegroups.com>
 <d5f90b52-9056-4472-a3ea-9cfaeff248ad@googlegroups.com>
 <4f431041-5292-434d-988e-46d69f4800f8@googlegroups.com>
 <472a5732-3dc9-4c08-8bda-00720375a2a9@googlegroups.com>
 <e312c04f-778c-44cf-9032-6f390a5f4b20@googlegroups.com>
 <ee3343a8-90db-4f02-9591-5128fca7bc76@googlegroups.com>
 <8cc86d41-2c7e-42d7-b057-1f9f010d9002@googlegroups.com>
 <75864d79-609c-4e37-98d8-6b5f050ad59d@googlegroups.com>
 <W4uFv.853$hf.752@fx01.iad>
 <42e0f58b-63c4-4a08-90ce-b5ddf7ebe95b@googlegroups.com>
 <ly4mxkn482.fsf@pushface.org>
 <lyzjfclj1d.fsf@pushface.org>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <105213a0-7faa-48b1-a4ba-07791cd97c60@googlegroups.com>
Subject: Re: Problem with generic linked list package
From: Laurent <daemon2@internet.lu>
Injection-Date: Sun, 10 Aug 2014 20:20:24 +0000
Content-Type: text/plain; charset=ISO-8859-1
Xref: news.eternal-september.org comp.lang.ada:21644
Date: 2014-08-10T13:20:24-07:00
List-Id: <comp.lang.ada>

@Simon

Thanks for the example.

   type Rec is record 
      B : Boolean; 
      I : Integer; 
   end record; 
   function "<" (L, R : Rec) return Boolean is 
   begin 
      return L.I < R.I; 
   end "<"; 

Would that work for a record like this or would I have to define a function for every imaginable record?

ie:  type Rec is record
             S: String;
             I: Integer;
             D: Date;
     end record;

Or could I do this (just a little piece of code hope you understand what I mean):

els if Element.Rec.I < L.Head.all.Element.Rec.I then 
         Add_To_Front (L, Element);

Thanks

Laurent