Re: Enormous problems in one of my programs!

[Stephen Leake <stephen.a.leake.1@gsfc.nasa.gov>]

b99andla@student.his.se (Kladde) writes:

> Helllo! I have a home assignment in ADA, and sice Im not used to this
> language I need some help, I would be very greatful. Below I will
> insert a start, header and body file and any faults or problems you
> can find I will be very happy for. Under the code I will insert the
> compile failures I get when trying to compile.
> 
> All help is greatly appreciated!!

The biggest problem is the syntax for a protected body. Also, you have
"Island_T" in the spec, but "Island" in the body. Fix those problems,
and you'll get more helpful errors from the compiler.

Here is the correct syntax for the body of Island_T:

   protected body Island_T is

      entry Get_Random_Female(hona: out Server_P) when True is
      begin
         hona := honor(par);
         return;
      end Get_Random_Female;


      procedure Breed is
      begin
         if(par <= 100) then
            hanar(par) := new Male;
            honor(par) := new Female;
            par := par+1;
         end if;
      end Breed;

   end Island_T;

The compiler still reports errors here, but you should be able to
figure them out.


-- 
-- Stephe