Re: Ada Packages

[Georg Maubach <ada_resources@gmx.de>]

Hi Jeffrey,
Hi Jean-Pierre,

I tried again and checked my code. The reason for the error is a wrong 
call to a function. It should read

package Float_InOut is new Float_IO(Float);

instead of

package Float_InOut is new Integer_IO(Float);

Many thanks for your willingness to help.

Kind regards

George


Am Sat, 17 Sep 2011 07:18:20 +0000 schrieb Georg Maubach:

> Hi Jeffrey,
> Hi Jean-Pierre,
> 
> you're right: I left my comments out.
> 
> I started all over, deleted both files and build a new file with just
> the three lines in it:
> 
> package Basic_Num_IO is
>   procedure Num_IO;
> end Basic_Num_IO;
> 
> The compiler error is now
> 
> gcc-4.3 -c basic_num_io.ads
> cannot generate code for file basic_num_io.ads (package spec) to check
> package spec for errors, use -gnatc gnatmake: "basic_num_io.ads"
> compilation error
> 
> I tried gcc-4.3 -c -gnatc basic_num_io.ads. No error occured.
> 
> How can I fix that?
> 
> Kind regards
> 
> George
> 
> Am Sat, 17 Sep 2011 05:45:27 +0000 schrieb George:
> 
>> Hi All,
>> 
>> I tried to build a basic package. My two files look like this:
>> 
>> File 1: basic_num_io.ads
>> 
>> package Basic_Num_IO is
>>   procedure Num_IO;
>> end Basic_Num_IO;
>> 
>> File 2: basic_num_io.adb
>> 
>> with text_io; use text_io;
>> 
>> package body Basic_Num_IO is
>>   procedure Num_IO is
>>     package Integer_InOut is new Integer_IO(integer); package
>>     Float_InOut is new Integer_IO(float); begin
>>       null;
>>     end Num_IO;
>> end Basic_Num_IO;
>> 
>> If I call gnat compile basic_num_io.ads I get the error message:
>> 
>> basic_num_io.ads:8:01: end of file expected, file can have only one
>> compilation unit
>> 
>> What am I doing wrong? Where can I find it in the documentation?
>> 
>> Kind regards
>> 
>> George