Re: Pool Specific Access Types?

[Ted Dennison<dennison@telepath.com>]

In article <CvLl7.84584$K6.34880767@news2>, Mr.Clueless says...
>	function Sum(List: Cell_Ptr) return Integer is
>	   Local: Cell_Ptr := List; S: Integer := 0;
>	begin
>		while Local /= null loop
>		  S := S + Local.Value; Local := Local.Next;
>		 end loop;
>		return S;
>	end Sum;

It looks cool. Try stepping through this in the debugger, paying attention to S
and Local.Value. It could be that your ".Value" got huge numbers (garbage) in it
somehow. If you add two or more of those together, then I could see you getting
a Constraint_Error.

Another possibility is that you somehow ended up with a circular queue when you
built it, and it is just iterating around in a circle until you blow S past
Integer'Last.

---
T.E.D.    homepage   - http://www.telepath.com/dennison/Ted/TED.html
          home email - mailto:dennison@telepath.com