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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,5ad62cc979f6c111,start
X-Google-Attributes: gid103376,public
From: jsanchor@cs5.dasd.honeywell.com
Subject: Classwide-type assignments
Date: 1998/10/12
Message-ID: <6vtl8g$v42$1@nnrp1.dejanews.com>#1/1
X-Deja-AN: 400300652
X-Http-Proxy: 1.0 x1.dejanews.com:80 (Squid/1.1.22) for client 207.199.90.141
Organization: Deja News - The Leader in Internet Discussion
X-Article-Creation-Date: Mon Oct 12 19:28:16 1998 GMT
Newsgroups: comp.lang.ada
X-Http-User-Agent: Mozilla/4.06 [en] (X11; U; SunOS 5.5.1 sun4u)
Date: 1998-10-12T00:00:00+00:00
List-Id: <comp.lang.ada>

Hello there:

I have asked this question before but with no luck, maybe today I'll get an
answer.

I have been trying to assign classwide types with no luck.
type PARENT_TYPE is abstract tagged
record
   checksum : NATURAL32;
end record;

type PTR_TO_DATA is access all PARENT_TYPE'class;

package CONVERT_TO_NVM_TYPE is new
      SYSTEM.Address_to_Access_Conversions(PARENT_TYPE'class);
--------------------------------------------------------------
type RAM_TYPE is new PARENT_TYPE with
record
   number_1 : integer;
end record;

RAM_object : aliased RAM_TYPE;
RAM_ptr    : CONVERT_TO_NVM_TYPE.Object_Pointer;

RAM_ptr    := CONVERT_TO_NVM_TYPE.To_Pointer(RAM_object.all'address);
ptr_to_RAM := PTR_TO_DATA(ptr_to_data); --casting
-----------------------------------------------------------

NVM_Address        : constant SYSTEM.Address :=
      SYSTEM.STORAGE_ELEMENTS.To_Address(16#00E00000#);

NVM_ptr    : CONVERT_TO_NVM_TYPE.Object_Pointer;

--get an access type to the location in NVM where data is stored.
NVM_ptr    := CONVERT_TO_NVM_TYPE.To_Pointer(NVM_Address);
ptr_to_NVM := PTR_TO_DATA(NVM_PTR);

AND then,


ptr_to_NVM.all := ptr_to_RAM.all; <-- the following statement compiles.

But nothing happens, when I run the code.

HAs anybody done this kind of thing before??
Thank you in advance.

Jay S.



-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own