From: pascal.obry@der.edfgdf.fr (Pascal Obry)
Subject: Question about constants initialisation
Date: 1996/04/24
Date: 1996-04-24T00:00:00+00:00 [thread overview]
Message-ID: <4ll9vt$h70@cf01> (raw)
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 1515 bytes --]
I was wondering how to initialize the constant Null_Azerty in the
following piece of code :
-------------------------------------
with Ada.Strings.Unbounded;
package Ess is
use Ada.Strings.Unbounded;
type Azerty is private;
Null_Azerty : constant Azerty;
private
type Azerty is new Unbounded_String;
Null_Azerty : constant Azerty := ... ;
-- I tried this with GNAT and it doesn't works ?
-- Is it a bug ?
--Null_Azerty : constant Azerty := Azerty (To_Unbounded_String
(""));
--NA : Unbounded_String := Null_Unbounded_String;
--Null_Azerty : constant Azerty := NA;
end Ess;
-----------------------------------
If it's a GNAT bug let me know and I'll report it.
Thanks for your help,
Pascal.
--|------------------------------------------------------------
--| Pascal Obry Team-Ada Member |
--| |
--| EDF-DER-IPN-SID- Ing�nierie des Syst�mes d'Informations |
--| |
--| Bureau G1-010 e-mail: pascal.obry@der.edfgdf.fr |
--| 1 Av G�n�ral de Gaulle voice : +33-1-47.65.50.91 |
--| 92141 Clamart CEDEX fax : +33-1-47.65.50.07 |
--| FRANCE |
--|------------------------------------------------------------
--|
--| http://ourworld.compuserve.com/homepages/pascal_obry
--|
--| "The best way to travel is by means of imagination"
next reply other threads:[~1996-04-24 0:00 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
1996-04-24 0:00 Pascal Obry [this message]
1996-04-24 0:00 ` Question about constants initialisation Samuel Tardieu
1996-04-25 0:00 ` Pascal Obry
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox