I think I'm going to learn something

I think I'm going to learn something

[andrew]

I have a situation I don't understand.  Here is my example:

package X
    procedure in_order(root: node_ptr; count: integer := 0);
    procedure post_order(root: node_ptr; count: integer := 0);
...
end X;

package body X
    procedure in_order(root: node_ptr; count: integer := 0) is
       ....
    begin
        ....
    end in_order;

    procedure post_order(root: node_ptr; count: integer := 0) is
        ....
    begin
        ....
    end post_order
end X;

Now, I have a main procedure that calls post_order but the output is
the output that was written in the in_order procedure.  Hmmm........I
don't get it.

Re: I think I'm going to learn something

[Pascal Obry]

andrew a �crit :
> Now, I have a main procedure that calls post_order but the output is
> the output that was written in the in_order procedure.  Hmmm........I
> don't get it.

???? you have a bug in post_order procedure !

Pascal.

-- 

--|------------------------------------------------------
--| Pascal Obry                           Team-Ada Member
--| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE
--|------------------------------------------------------
--|              http://www.obry.net
--| "The best way to travel is by means of imagination"
--|
--| gpg --keyserver wwwkeys.pgp.net --recv-key C1082595

Re: I think I'm going to learn something

[andrew]

> ???? you have a bug in post_order procedure !

Yep.  Sure do.  Found it about 30 seconds after posting my message.
Well, it's not technically a bug, it's a typo.  I copied code out of
the in_order procedure to use/alter for the post_order procedure.
When I did that I never changed the recursive calls to in_order to be
recursive calls to post_order withing the post_order procedure.  So
post_order recursively called in_order and gave me the in_order output
with the post_order order.