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,101eaee0956cab89
X-Google-Attributes: gid103376,public
From: vaiism@mail.fwi.com (Robert Weeks)
Subject: Re: GNU ADA Compiler
Date: 1996/04/07
Message-ID: <vaiism-0704961109030001@pa1dsp19.fwa.infi.net>#1/1
X-Deja-AN: 146242453
references: <vaiism-0404960905290001@pa2dsp22.fwa.infi.net>
 <dewar.828704407@schonberg>
organization: InfiNet
newsgroups: comp.lang.ada
Date: 1996-04-07T00:00:00+00:00
List-Id: <comp.lang.ada>

In article <dewar.828704407@schonberg>, dewar@cs.nyu.edu (Robert Dewar) wrote:

> Robert, first of all, the language is Ada, not ADA, Ada is a woman's name.
> Ada fans care about this distinction, they do not want to be confused
> with dentists and democrats :-)
> 
> Second, I assume you mean by shareware something you can get free 
> (shareware is something quite specific, and does not include most
> free software).
> 
> Third, the answer is unfortunately no at the moment, but we hope to see
> a GNAT appear for the MAC shortly, but not, I fear in time to complete
> your assignment.
> 
> Why is it so important to compile generics separately. Why not put them
> in separate files, and then just concatenate these files for GWU Ada?

Thanks for you reply. 

No I don't mean for "free", but I don't want to spend a couple of hundred
bucks for a compiler for Ada right now either. School supplied me with the
one I have.

The seperatley compiled generics is an error I get when say for instance,
say this is part of the spec:

generic
  type object_type is private;
package ring_package is

  type ring is limited private; 

  ring_full  : exception;
  ring_empty : exception; 

procedure move_cursor_forward(the_ring : in out ring); 

And this is the body corresponding:

with unchecked_deallocation;
package body ring_package is

procedure free is new unchecked_deallocation( ring_node, ring_pointer );

procedure move_cursor_forward(the_ring : in out ring) is
begin
  if the_ring.size = 0 then
    raise ring_empty;
  end if;
  the_ring.current_node := the_ring.current_node.next;
end move_cursor_forward;

This is where I get the error that "Seperately Compiled Generics Not
Supported". That is why I am looking for this, being that that is all we
are doing now is studying Abstraction.

Thanks for any help...

If you could, could you e-mail me also if you have any help?

Robert Weeks
vaiism@Mail.fwi.com