Re: Robert Dewar's great article about the Strengths of Ada over other langauges in multiprocessing!

["Randy Brukardt" <randy@rrsoftware.com>]

"Vadim Godunko" <vgodunko@gmail.com> wrote in message
news:ec684efe-61a6-4463-bd43-fb5895e868bc@x30g2000hsd.googlegroups.com...
> On Mar 9, 4:37 pm, "Dmitry A. Kazakov" <mail...@dmitry-kazakov.de>
> wrote:
> >
> > It is unclear in which the context you are using protected objects. I
don't
> > see why a protected object should be slower than, say, critical section
+
> > operation.
> >
> I have attach all source code. Protected object used for atomic
> reference counting (The design may be looks strange, I just have plans
> to replace protected object by the inline assembler code).

If you need an atomic component, why didn't you just declare it as such and
let the compiler handle the mess? (Yes, an implementation is allowed to
reject pragma Atomic if it can't handle such, but that should always be OK
for an integer counter.) A protected object is going to be much heavier than
Atomic (which just uses the hardware support directly).

...
    type Private_Data is record
       --Counter : aliased League.Internals.Atomics.Counter;
       Counter : Natural := 0;
       pragma Atomic (Counter);
       String  : Utf16_String_Access;
       Last    : Natural := 0;
       Length  : Natural := 0;
    end record;

(No, I haven't tried this in your program.)

                                  Randy.