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 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,c0f26278da31ef9
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news2.google.com!fu-berlin.de!uni-berlin.de!not-for-mail
From: "John A. S. Rowlands" <john.rowlands@baesystems.com>
Newsgroups: comp.lang.ada
Subject: Re: Constraint Error
Date: Thu, 30 Sep 2004 14:47:34 +0100
Message-ID: <415c0cc3$1_1@baen1673807.greenlnk.net>
References: <cjfg8e$g6i$00$1@news.t-online.com>
X-Trace: news.uni-berlin.de bYEoiTSO68lZdqaYFmU9MwL+8cy+daAOjJLbqaOWuRRy6TiwW3
X-Orig-Path: baen1673807.greenlnk.net!baen1673807!not-for-mail
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.00.2919.6600
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2919.6600
X-Original-NNTP-Posting-Host: baen1673807.greenlnk.net
Xref: g2news1.google.com comp.lang.ada:4440
Date: 2004-09-30T14:47:34+01:00
List-Id: <comp.lang.ada>

Rick,

Try

   M.Text := Ada.Strings.Fixed.Head(
     Source => Str,
     Count => String_Txt.Size,
     Pad => ' ');

instead of your current assignment to M.Text

John Rowlands
BAE SYSTEMS, Warton, UK

"Rick Santa-Cruz" <rick_santa_cruz75@msn.com> wrote in message
news:<cjfg8e$g6i$00$1@news.t-online.com>...
>
> how can I avoid the Constraint Error, when executing the following code:
> ------------------------------
> package body Messages is
>  function Create(Str: String) return Message is
>   M: Message;
>  begin
>   M.Text := Str;
>   return M;
>  end Create;
> end Messages;