Hi, here is an utility which help you see the Rstack: \ based on .s, Pito 2010 marker -rstackdump
: rdepth rp0 rp@ - 2/ 1- 1- ; \ ONE LINE SIGNED RSTACK : .rls rp@ 1- \ alignment vs. .s ??? ." [TOR> " rdepth 1- 0 ?do dup i 2* + @ 6 .r loop drop ." ]" ; ---------------------- Ex: : ? .sls cr .rls cr ; : rtest ? -8888 -8888 -8888 -8888 ? >r ? >r ? >r ? >r ? r> ? r> ? r> ? r> ? drop drop drop drop ? ; : rtest1 .rls ; : rtest2 rtest1 ; : rtest3 rtest2 ; > rtest [TOS> ] [TOR> 10748 10761 10770 1539 934] [TOS> -8888 -8888 -8888 -8888] [TOR> 10748 10761 10779 1539 934] [TOS> -8888 -8888 -8888] [TOR> 10748 10761 10781 -8888 1539 934] [TOS> -8888 -8888] [TOR> 10748 10761 10783 -8888 -8888 1539 934] [TOS> -8888] [TOR> 10748 10761 10785 -8888 -8888 -8888 1539 934] [TOS> ] [TOR> 10748 10761 10787 -8888 -8888 -8888 -8888 1539 934] [TOS> -8888] [TOR> 10748 10761 10789 -8888 -8888 -8888 1539 934] [TOS> -8888 -8888] [TOR> 10748 10761 10791 -8888 -8888 1539 934] [TOS> -8888 -8888 -8888] [TOR> 10748 10761 10793 -8888 1539 934] [TOS> -8888 -8888 -8888 -8888] [TOR> 10748 10761 10795 1539 934] [TOS> ] [TOR> 10748 10761 10800 1539 934] ok > .rls [TOR> 10748 1539 934] ok > rtest1 [TOR> 10748 10808 1539 934] ok > rtest2 [TOR> 10748 10808 10816 1539 934] ok > rtest3 [TOR> 10748 10808 10816 10824 1539 934] ok > ------------------------------------------------------------------------------ This SF.net Dev2Dev email is sponsored by: Show off your parallel programming skills. Enter the Intel(R) Threading Challenge 2010. http://p.sf.net/sfu/intel-thread-sfd _______________________________________________ Amforth-devel mailing list Amforth-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/amforth-devel
