This is the mail archive of the
gcc@gcc.gnu.org
mailing list for the GCC project.
Re: Question on VUSE
- From: Diego Novillo <dnovillo at redhat dot com>
- To: Richard Kenner <kenner at vlsi1 dot ultra dot nyu dot edu>
- Cc: "gcc at gcc dot gnu dot org" <gcc at gcc dot gnu dot org>
- Date: Mon, 09 Aug 2004 17:05:50 -0400
- Subject: Re: Question on VUSE
- Organization: Red Hat Canada
- References: <10408031738.AA11402@vlsi1.ultra.nyu.edu>
On Tue, 2004-08-03 at 13:38, Richard Kenner wrote:
> package Tbg0803 is
> type R is record
> F1, F2: Integer;
> Serial_Number: Integer;
> end record;
> type A is array (1..10) of R;
> type Ap is access all A;
>
> Unit_Table: Ap;
> Utn: Integer;
> T1, T2, T3, T4: Integer;
>
> function Sub1 return Integer;
> end Tbg0803;
> package body Tbg0803 is
> function Sub1 return Integer is
> Sn: Integer renames Unit_Table (Utn).Serial_Number;
> begin
> Sn := Sn + 1;
> return Sn;
> end Sub1;
> end Tbg0803;
>
I'm trying to compile this with
$ ./gnat1 -Iada/rts -O2 -fdump-tree-all-vops alias-bug.ada
alias-bug.ada:34:01: end of file expected, file can have only one compilation unit
Should the package body be in another file?
Thanks. Diego.