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,491f04bc76bcfb52
X-Google-Attributes: gid103376,public
From: jerry@jvdsys.nextjk.stuyts.nl (Jerry van Dijk)
Subject: Re: Access types
Date: 1998/05/28
Message-ID: <EtnJAp.8E@jvdsys.nextjk.stuyts.nl>#1/1
X-Deja-AN: 357388224
References: <6khbm1$ec1$1@nnrp1.dejanews.com>
Organization: * JerryWare *, Leiden, Holland
Newsgroups: comp.lang.ada
Date: 1998-05-28T00:00:00+00:00
List-Id: <comp.lang.ada>


jsanchor@my-dejanews.com wrote:

: HI, I am working with access types and have a challenge at hand which I seem
: to be losing. Need some help. I have data in Non Volatile Memory and RAM that
: I need to access using access types. The problem is I need to have the same
: "types" to work on the data, ie compare them, calculate checksum, etc.

What you seem to mean is something like:

	package Memory is

	   type Memory_Type is abstract tagged
	      record
	         null; -- Put the data here
	      end record;

	   type Memory_Ptr is access Memory_Type'Class;

	   type ROM is new Memory_Type with null record;

	   type RAM is new Memory_Type with null record;
      
	end Memory;

-- 
-- Jerry van Dijk  | email: jdijk@acm.org
-- Leiden, Holland | member Team-Ada