[<<][packetforth][>>][..]
Sat Jul 18 16:44:09 CEST 2009

trace

> 1 >trace : asdf ; 0 >trace
              rdrop 
             rdrop 
            jmp 
            jmp 
            lit 
            >r <8a0aa0> 
             emarker>r 
              read 
              read-top@ 
               input-stack 
               head <8844a0> 
               >r <89a8d0> 
                r 
                r> <89a8d0> 
               follow <89a8d0> <89a8d0> 
               @ <89f350> <89a8d0> 
               execute <XT:885b60> <89a8d0> 
               @read-atom <89a8d0> 
                @ <89a8d0>                              # FETCH stream
                read-atom <packet:stream> 
                 lit <packet:stream> 
                 do-pass <list> <packet:stream> 
                read-thing <list> <packet:stream> 
                 read-loop <list> <packet:stream> 
                  read-task <list> <packet:stream> 
                  dup : <list> <packet:stream> 
                  undef : : <list> <packet:stream> 
                  scalar:= <undef> : : <list> <packet:stream> 
                  jz 0 : <list> <packet:stream> 
                  leave : <list> <packet:stream> 
                 >r : <list> <packet:stream> 
                  drop <list> <packet:stream> 
                  drop <packet:stream>                  # DROP stream
                  r> 
                 leave : 
                leave : 
               leave : 
              rdrop : 
             rdrop : 
            jmp : 
            lit : 
            >r <8a0ca0> : 
             emarker>r : 
              interpret-atom : 
              interpret : 
              : 
              fancy-: 
               boot-: 
                do-pass 
               : 
                read 
                read-top@ 
                 input-stack 
                 head <8844a0> 
                 >r <89a8d0> 
                  r 
                  r> <89a8d0> 
                 follow <89a8d0> <89a8d0> 
                 @ <89f350> <89a8d0> 
                 execute <XT:885b60> <89a8d0> 
                 @read-atom <89a8d0> 
                  @ <89a8d0>                            # FETCH
                  read-atom <packet:stream>  
                   lit <packet:stream> 
                   do-pass <list> <packet:stream> 
                  read-thing <list> <packet:stream> 
                   read-loop <list> <packet:stream> 
                    read-task <list> <packet:stream> 
                    dup asdf <list> <packet:stream> 
                    undef asdf asdf <list> <packet:stream> 
                    scalar:= <undef> asdf asdf <list> <packet:stream> 
                    jz 0 asdf <list> <packet:stream> 
                    leave asdf <list> <packet:stream> 
                   >r asdf <list> <packet:stream> 
                    drop <list> <packet:stream> 
                    drop <packet:stream>                # DROP
                    r> 
                   leave asdf 
                  leave asdf 
                 leave asdf 
                boot-colon asdf 
                leave 
               record-location 
                input-location 
                 input-stack 
                 top <8844a0> 
                  head <8844a0> 
                  @ <89a8d0>                            # FETCH -> but here it doesn't disappear.
                  leave <packet:stream> 
                 type <packet:stream>                   # returns wrong symbol!
                 lit variable <packet:stream> 
                 do-route stream variable <packet:stream> 
                 lit variable <packet:stream> 
                 do-route list variable <packet:stream> 
                 drop variable <packet:stream> 
                 lit <packet:stream> 
                 lit "<unknown>" <packet:stream> 
                 leave -1 "<unknown>" <packet:stream> 
                swap -1 "<unknown>" <packet:stream> 
                latestxt "<unknown>" -1 <packet:stream> 
                xt>doc <XT:88da10> "<unknown>" -1 <packet:stream> 
                 linkhead <XT:88da10> "<unknown>" -1 <packet:stream> 
                 follow <8a7800> "<unknown>" -1 <packet:stream> 
                 follow <889690> "<unknown>" -1 <packet:stream> 
                 leave <889c30> "<unknown>" -1 <packet:stream> 
                >r <889c30> "<unknown>" -1 <packet:stream> 
                 r "<unknown>" -1 <packet:stream> 
                 queue <889c30> "<unknown>" -1 <packet:stream> 
                 r> -1 <packet:stream> 
                queue <889c30> -1 <packet:stream> 
                leave <packet:stream> 
               leave <packet:stream> 
              rdrop <packet:stream> 
             rdrop <packet:stream> 
            jmp <packet:stream> 
            jmp <packet:stream> 
            lit <packet:stream> 
            >r <8a0aa0> <packet:stream> 
             emarker>r <packet:stream> 
              read <packet:stream> 
              read-top@ <packet:stream> 
               input-stack <packet:stream> 
               head <8844a0> <packet:stream> 
               >r <89a8d0> <packet:stream> 
                r <packet:stream> 
                r> <89a8d0> <packet:stream> 
               follow <89a8d0> <89a8d0> <packet:stream> 
               @ <89f350> <89a8d0> <packet:stream> 
               execute <XT:885b60> <89a8d0> <packet:stream> 
               @read-atom <89a8d0> <packet:stream> 
                @ <89a8d0> <packet:stream> 
                read-atom <packet:stream> <packet:stream> 
                 lit <packet:stream> <packet:stream> 
                 do-pass <list> <packet:stream> <packet:stream> 
                read-thing <list> <packet:stream> <packet:stream> 
                 read-loop <list> <packet:stream> <packet:stream> 
                  read-task <list> <packet:stream> <packet:stream> 
                  dup ; <list> <packet:stream> <packet:stream> 
                  undef ; ; <list> <packet:stream> <packet:stream> 
                  scalar:= <undef> ; ; <list> <packet:stream> <packet:stream> 
                  jz 0 ; <list> <packet:stream> <packet:stream> 
                  leave ; <list> <packet:stream> <packet:stream> 
                 >r ; <list> <packet:stream> <packet:stream> 
                  drop <list> <packet:stream> <packet:stream> 
                  drop <packet:stream> <packet:stream> 
                  r> <packet:stream> 
                 leave ; <packet:stream> 
                leave ; <packet:stream> 
               leave ; <packet:stream> 
              rdrop ; <packet:stream> 
             rdrop ; <packet:stream> 
            jmp ; <packet:stream> 
            lit ; <packet:stream> 
            >r <8a0ca0> ; <packet:stream> 
             emarker>r ; <packet:stream> 
              interpret-atom ; <packet:stream> 
              interpret ; <packet:stream> 
              execute <XT:87c590> <packet:stream> 
              ; <packet:stream> 
              ; <packet:stream> 
              rdrop <packet:stream> 
             rdrop <packet:stream> 
            jmp <packet:stream> 
            jmp <packet:stream> 
            lit <packet:stream> 
            >r <8a0aa0> <packet:stream> 
             emarker>r <packet:stream> 
              read <packet:stream> 
              read-top@ <packet:stream> 
               input-stack <packet:stream> 
               head <8844a0> <packet:stream> 
               >r <89a8d0> <packet:stream> 
                r <packet:stream> 
                r> <89a8d0> <packet:stream> 
               follow <89a8d0> <89a8d0> <packet:stream> 
               @ <89f350> <89a8d0> <packet:stream> 
               execute <XT:885b60> <89a8d0> <packet:stream> 
               @read-atom <89a8d0> <packet:stream> 
                @ <89a8d0> <packet:stream> 
                read-atom <packet:stream> <packet:stream> 
                 lit <packet:stream> <packet:stream> 
                 do-pass <list> <packet:stream> <packet:stream> 
                read-thing <list> <packet:stream> <packet:stream> 
                 read-loop <list> <packet:stream> <packet:stream> 
                  read-task <list> <packet:stream> <packet:stream> 
                  dup 0 <list> <packet:stream> <packet:stream> 
                  undef 0 0 <list> <packet:stream> <packet:stream> 
                  scalar:= <undef> 0 0 <list> <packet:stream> <packet:stream> 
                  jz 0 0 <list> <packet:stream> <packet:stream> 
                  leave 0 <list> <packet:stream> <packet:stream> 
                 >r 0 <list> <packet:stream> <packet:stream> 
                  drop <list> <packet:stream> <packet:stream> 
                  drop <packet:stream> <packet:stream> 
                  r> <packet:stream> 
                 leave 0 <packet:stream> 
                leave 0 <packet:stream> 
               leave 0 <packet:stream> 
              rdrop 0 <packet:stream> 
             rdrop 0 <packet:stream> 
            jmp 0 <packet:stream> 
            lit 0 <packet:stream> 
            >r <8a0ca0> 0 <packet:stream> 
             emarker>r 0 <packet:stream> 
              interpret-atom 0 <packet:stream> 
              interpret 0 <packet:stream> 
              rdrop 0 <packet:stream> 
             rdrop 0 <packet:stream> 
            jmp 0 <packet:stream> 
            jmp 0 <packet:stream> 
            lit 0 <packet:stream> 
            >r <8a0aa0> 0 <packet:stream> 
             emarker>r 0 <packet:stream> 
              read 0 <packet:stream> 
              read-top@ 0 <packet:stream> 
               input-stack 0 <packet:stream> 
               head <8844a0> 0 <packet:stream> 
               >r <89a8d0> 0 <packet:stream> 
                r 0 <packet:stream> 
                r> <89a8d0> 0 <packet:stream> 
               follow <89a8d0> <89a8d0> 0 <packet:stream> 
               @ <89f350> <89a8d0> 0 <packet:stream> 
               execute <XT:885b60> <89a8d0> 0 <packet:stream> 
               @read-atom <89a8d0> 0 <packet:stream> 
                @ <89a8d0> 0 <packet:stream> 
                read-atom <packet:stream> 0 <packet:stream> 
                 lit <packet:stream> 0 <packet:stream> 
                 do-pass <list> <packet:stream> 0 <packet:stream> 
                read-thing <list> <packet:stream> 0 <packet:stream> 
                 read-loop <list> <packet:stream> 0 <packet:stream> 
                  read-task <list> <packet:stream> 0 <packet:stream> 
                  dup >trace <list> <packet:stream> 0 <packet:stream> 
                  undef >trace >trace <list> <packet:stream> 0 <packet:stream> 
                  scalar:= <undef> >trace >trace <list> <packet:stream> 0 <packet:stream> 
                  jz 0 >trace <list> <packet:stream> 0 <packet:stream> 
                  leave >trace <list> <packet:stream> 0 <packet:stream> 
                 >r >trace <list> <packet:stream> 0 <packet:stream> 
                  drop <list> <packet:stream> 0 <packet:stream> 
                  drop <packet:stream> 0 <packet:stream> 
                  r> 0 <packet:stream> 
                 leave >trace 0 <packet:stream> 
                leave >trace 0 <packet:stream> 
               leave >trace 0 <packet:stream> 
              rdrop >trace 0 <packet:stream> 
             rdrop >trace 0 <packet:stream> 
            jmp >trace 0 <packet:stream> 
            lit >trace 0 <packet:stream> 
            >r <8a0ca0> >trace 0 <packet:stream> 
             emarker>r >trace 0 <packet:stream> 
              interpret-atom >trace 0 <packet:stream> 
              interpret >trace 0 <packet:stream> 
              >trace 0 <packet:stream> 
> 


bug was this: (type.c)
-    case a_packet: ts =  pf_packet_type(pf_word_packet(a->w));
+    case a_packet: ts =  pf_packet_type(pf_word_packet(a->w)); break;



[Reply][About]
[<<][packetforth][>>][..]