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.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,17b924d1394824f2
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-01-08 11:56:07 PST
From: Erik Johannessen <erik.johannessen@kongsberg.com>
Newsgroups: comp.lang.ada
Subject: Re: GNAT and Atmel AVR Microcontrollers
Date: 08 Jan 2002 19:34:39 +0100
Organization: Kongsberg Defence and Aerospace
Message-ID: <vn2d70k1ykg.fsf_-_@sun356.fof.kog.no>
References: <75k0v9.2k1.ln@320025674319.dialin.t-online.de>
 <87bsh89fdq.fsf@deneb.enyo.de> <u3d2jujwy.fsf@gsfc.nasa.gov>
 <e7ebd224.0112110504.5389cdc1@posting.google.com>
 <vn27krgy6ub.fsf_-_@sun356.fof.kog.no>
 <e7ebd224.0112260508.1df642aa@posting.google.com>
NNTP-Posting-Host: 150.1.31.59
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
User-Agent: Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.1 (Cuyahoga Valley)
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!uninett.no!Norway.EU.net!193.71.169.73!spiten.kongsberg.com!kongsberg!not-for-mail
Xref: archiver1.google.com comp.lang.ada:18661
Date: 2002-01-08T19:34:39+01:00
List-Id: <comp.lang.ada>

karlran1234@yahoo.com (Karl Ran) writes:

> >About two months ago I built a cross gnat for AVR.  It appeared to
> >generate correct code for a few simple examples (I never got around to
> >generate an actual executable).
> 
> So, you just did something like:
> gcc3.01: configure --language-ada --target-avr ??

Yes, except that you need gcc from cvs (or a snapshot) and the
configure options are slightly different.

You also need a recent binutils and preferably avr-libc.

> Sounds too easy to me.
> Stephen Leake mentioned 6 man-months (which is a bit too much for me)

AFAICR this is the (estimated) time needed to port the runtime.

-Erik
-- 
/d{def}def/m{mul}d/a{add}d/q{repeat}d/y 1 d 300{/x 1 d 600{/c x 600 div 4 m 2
sub d/z y 300 div 2 m 1 sub d/r 0 d/i 0 d/t 0 d{t 1 le{/n r r m i i m sub c a
d/b 2 r m i m z a d/r n d/i b d r r m i i m a 16 gt{exit}if} {exit}ifelse/t t 
.01 a d}loop t setgray x y moveto 1 1 rlineto stroke/x x 1 a d}q /y y 1 a d}q