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=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,ed290afd6f09a679,start
X-Google-Attributes: gid103376,public
X-Google-Language: SWEDISH,ASCII
Path: 
 g2news1.google.com!postnews.google.com!g44g2000cwa.googlegroups.com!not-for-mail
From: ejijott@gmail.com
Newsgroups: comp.lang.ada
Subject: Initialize with aggregate?
Date: 21 Nov 2005 11:40:18 -0800
Organization: http://groups.google.com
Message-ID: <1132602018.206322.285630@g44g2000cwa.googlegroups.com>
NNTP-Posting-Host: 194.47.106.20
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
X-Trace: posting.google.com 1132602023 6236 127.0.0.1 (21 Nov 2005 19:40:23
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Mon, 21 Nov 2005 19:40:23 +0000 (UTC)
User-Agent: G2/0.2
X-HTTP-UserAgent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US;
 rv:1.7.12) Gecko/20050915 Firefox/1.0.7,gzip(gfe),gzip(gfe)
Complaints-To: groups-abuse@google.com
Injection-Info: g44g2000cwa.googlegroups.com; posting-host=194.47.106.20;
   posting-account=pmKkRA0AAACvgh-GoEHQ0w2RYSRLQ7sS
Xref: g2news1.google.com comp.lang.ada:6517
Date: 2005-11-21T11:40:18-08:00
List-Id: <comp.lang.ada>

Hi there!

Regarding the code below, what syntax do I use to initialize tempstore
with an aggregate?
[code]
.
.
.
    type node;
    type storage is access node;
    type node is
        record
            next:  storage;       -- Pekare till n=E4sta nod.
            item:  string(1..50); -- En textstr=E4ng
            len:   integer :=3D-1;  -- L=E4ngden p=E5 str=E4ngen.
            count: integer :=3D 0;  -- Antalet f=F6rekomster av str=E4ngen
        end record;
.
.
.
        tempstore:=3Dnew Node;
        tempstore.item(1 .. Val'length):=3DVal;
        tempstore.len:=3DVal'length;
        tempstore.count:=3D1;
        if S /=3D null then
            tempstore.next:=3DS;
        end if;
        S:=3Dtempstore;
[/code]