TEAM-ADA Archives

Team Ada: Ada Programming Language Advocacy

TEAM-ADA@LISTSERV.ACM.ORG

Options: Use Forum View

Use Proportional Font
Show HTML Part by Default
Condense Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Sender:
"Team Ada: Ada Advocacy Issues (83 & 95)" <[log in to unmask]>
Subject:
From:
Simon Wright <[log in to unmask]>
Date:
Mon, 23 Sep 2002 05:45:12 +0100
In-Reply-To:
<[log in to unmask]> (message from Rick Duley on Mon, 23 Sep 2002 09:46:13 +0800)
X-To:
Reply-To:
Simon Wright <[log in to unmask]>
Parts/Attachments:
text/plain (12 lines)
Given

      type Active_Area_Access_Type is
      access all Active_Area_Type'Class;

you need to say

       procedure Free_Active_Area is
       new Ada.Unchecked_Deallocation
          (Object => Active_Area_Type'Class,
           Name   => Active_Area_Access_Type);

ATOM RSS1 RSS2