Re: Pool Specific Access Types?

[Ted Dennison<dennison@telepath.com>]

In article <mqRl7.85388$K6.35118504@news2>, Wannabe h4x0r says...
>-- This is a file so I can learn how to do pointers in Ada95 --
>-- Try not to laugh too much. I'm a former C junkie, and it shows. --
>
>with Ada.Text_IO; use Ada.Text_IO;
>
>procedure Point_pract is
>
>	type Numb_holder;
>	type Numb_ptr is access Numb_holder;
>
>	type Numb_holder is
>		record
>		  Number: Integer;
>		  Next:   Numb_Ptr;
>		end record;
>
>	N: Numb_ptr;
>
>	s : string(1..15);
>	len : natural;
>	quit : constant String := "q";
>
>	anthr_numb : integer := 0;
>
>begin
>
>	loop
>		Put_Line("Enter a number here: ");
>		Get_Line( s , len);
>		if s /= quit then
s is a 15 character string, and quit is a 1 character string. They will *always*
be different, so you will never go to the else for this "if". You should instead
compare "s(s'first..len) /= quit"

>			while N /= null loop

N starts off null, and nothing reachable ever sets it, so the code inside this
loop won't run either.

Unreachable code:
>					
>			   Put_Line( N.Number'img );
>			   N := N.Next;	   
>			  exit;						
>			end loop;
>		else							

More unreachable code:		
>	            anthr_numb := Integer'value(s(1..len));
>                    N := new Numb_holder'(anthr_numb, N);
>
>		New_Line;
end Unreachable code.

>
>		
>	       end if;
>	end loop;
>
>end Point_pract;

Given this code, I'd expect to see a program that loops endlessly asking for a
number.

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