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=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: a07f3367d7,221c61113210e0ef
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.66.90.102 with SMTP id bv6mr1634037pab.34.1344344087175;
        Tue, 07 Aug 2012 05:54:47 -0700 (PDT)
Path: 
 g9ni5023225pbo.0!nntp.google.com!border1.nntp.dca.giganews.com!backlog1.nntp.dca.giganews.com!backlog1.nntp.ams.giganews.com!border3.nntp.ams.giganews.com!border1.nntp.ams.giganews.com!nntp.giganews.com!news.panservice.it!newsfeed.hal-mli.net!feeder3.hal-mli.net!newsfeed.hal-mli.net!feeder1.hal-mli.net!npeer01.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
From: awdorrin <awdorrin@gmail.com>
Newsgroups: comp.lang.ada
Subject: Re: astyle/cindent for Ada?
Date: Tue, 31 Jul 2012 07:27:45 -0700 (PDT)
Organization: http://groups.google.com
Message-ID: <465a69d5-f9b5-4d56-aa0a-4c91b6f093de@googlegroups.com>
References: <2df5566c-c219-4226-b41e-78ed47190bc4@googlegroups.com>
 <87txwtp074.fsf@ludovic-brenta.org>
NNTP-Posting-Host: 192.91.173.34
Mime-Version: 1.0
X-Trace: posting.google.com 1343744865 24817 127.0.0.1 (31 Jul 2012 14:27:45
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Tue, 31 Jul 2012 14:27:45 +0000 (UTC)
In-Reply-To: <87txwtp074.fsf@ludovic-brenta.org>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=192.91.173.34;
 posting-account=YkFdLgoAAADpWnfCBA6ZXMWTz2zHNd0j
User-Agent: G2/1.0
X-Received-Bytes: 2980
X-Original-Bytes: 3232
Content-Type: text/plain; charset=ISO-8859-1
Date: 2012-07-31T07:27:45-07:00
List-Id: <comp.lang.ada>

On Friday, July 27, 2012 1:45:35 PM UTC-4, Ludovic Brenta wrote:
> awdorrin writes:
> 
> > I have tried using the 'gnatpp' program - but under Debian Linux it
> > keeps telling me that my files aren't valid Ada source (even though
> > they compile fine)
> 
> Please report this immediately to the Debian bug tracking system.  If
> this bug is serious enough I might be able to correct it before the next
> stable release is made; it is currently frozen and only release-critical
> bugs can be solved at this point.
> 
> -- 
> 
> Ludovic Brenta.

Unfortunately I have been out with a stomach bug the past few days and have not had a chance until today to look at this further.

If I try to run gnatpp against a simple program - it does work. It seems that it is the legacy code that it is having difficulty with.

There are some warnings about a repspec for a Florist/POSIX Mutex variable:

'size of "LOCK_ERROR" with aliased or tagged components not 192 bits'

The related code for the Mutex definition is similar to the following:

type FP_SHARED_BUF_TYPE is 
record
  LOCK_ERROR : POSIX.Mutexes.Mutex;
  <other entries for the record>
end record;

for FP_SHARED_BUF_TYPE use
record
  LOCK_ERROR at 0 range 0 .. 255;
  <other entries for the record>
end record;

I don't know if the warnings are causing 'gnatpp' to respond with: 'is not a legal Ada source' or not.

passing the verbose flag to gnatpp doesn't seem to provide any additional information. Are there any 'hidden' flags that could provide more detail?

I appear to be using:

- asis-programs Version 2008-5
- gnatpp (build with ASIS 2.0.R for gnat 4.4.5)
- gcc version 4.4.5 (Debian 4.4.5-8)

Since gnatpp does appear to work on simple Ada source code, but not my legacy source code, I'm hesitant to post a bug report, without digging into this further. (Since I know I can't provide any copy of the source code files causing the error.)