Re: GNAT's Protected Objects

["Egil Høvik" <egilhovik@hotmail.com>]

On Nov 8, 11:32 pm, Jeffrey Carter
<spam.jrcarter....@spam.not.acm.org> wrote:
>
>        Result : Matrix;

Result is shared between multiple tasks,
reduce references to a minimum by using a
temporary value:

>
>        task body Calc_One is
>           Row : Natural;
>           Col : Natural;

            Temp_Result : Float;

>        begin -- Calc_One
>           All_Results : loop
>              Control.Get (Row => Row, Col => Col);
>
>              exit All_Results when Row = 0;
>

               Temp_Result := 0.0;

>
>              Sum : for K in Index_Value loop

                 Temp_Result := Temp_Result + Left (Row, K) * Right(K,
Col);

>              end loop Sum;

               Result(Row, Col) := Temp_Result ;

>           end loop All_Results;
>        exception -- Calc_One
>        when E : others =>
>           Ada.Text_IO.Put_Line (Item => "Calc_One " &
> Ada.Exceptions.Exception_Information (E) );
>        end Calc_One;


This should give you a nice speedup :)


--
~egilhh