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: 2001-12-21 08:26:30 PST From: Erik Johannessen Newsgroups: comp.lang.ada Subject: Re: GNAT and Atmel AVR Microcontrollers Date: 21 Dec 2001 15:40:28 +0100 Organization: Kongsberg Defence and Aerospace Message-ID: References: <75k0v9.2k1.ln@320025674319.dialin.t-online.de> <87bsh89fdq.fsf@deneb.enyo.de> 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!news2.google.com!news1.google.com!sn-xit-02!supernews.com!news.tele.dk!small.news.tele.dk!128.39.3.168!uninett.no!Norway.EU.net!193.71.169.73!spiten.kongsberg.com!kongsberg!not-for-mail Xref: archiver1.google.com comp.lang.ada:18208 Date: 2001-12-21T15:40:28+01:00 List-Id: karlran1234@yahoo.com (Karl Ran) writes: > Stephen Leake wrote in message news:... > > > > Most likely no, if there's no Ada run-time library for the Atmel AVR > > > and its OS (haven't checked this, though). > > > > However, if you are willing to use the C runtime (no tasking, no > > dynamic allocation, possibly no exceptions), it is not hard to get a > > subset of Ada working. > > That sounds intresting! > How much time would it take for a C&Ada programmer to get this mini AVR-Ada > working? Sorry, I don't know that, but here is a data point for anyone else who would like to see gnat on AVR. 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). -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