Re: another way to shoot yourself in the foot?

[christoph.grein@eurocopter.com]

> --- Factory ads ---
> with Named;
> with Some;
>
> package Factory is
>    function Create(class: String; name: String) return
> Named.Object'Class;
> end Factory;
>
> --- Factory.adb ---
>
> with Ada.Strings.Fixed; use Ada.Strings.Fixed;
> with Some;
>
> package body Factory is
>    --- this one is ugly, but in sake of simplicity ...
>    function Create(class: String; name: String) return
> Named.Object'Class is
>    begin
>       if Index(class, "Some") /= 0 then
>          return Some.Create(name);
>       end if;
>       raise Program_Error with "Unknown class " & class;
>    end;
> end Factory;

Since Some.Object is limited, Factory must construct in place. The
normal return statement produces a copy (I guess there should be a
warning here - no compiler bug, since the RM has nothing to say about
warnings). So use the extended return statement as in Some.Create.

(This is just a guess, dunno if it helps.)