--- gforth/prims2x.fs 2004/08/23 14:30:23 1.150 +++ gforth/prims2x.fs 2004/08/26 15:29:57 1.151 @@ -1567,21 +1567,21 @@ variable offset-super2 0 offset-super2 rot 2 .r ." ," swap 2 .r ." ," 2 .r ." , " prim prim-branch? negate . ." ," state-in state-number @ 2 .r ." ," - state-out state-number @ 2 .r ." ," ; + state-out state-number @ 2 .r ." ," + inst-stream stack-in @ 1 .r ." ," +; : output-costs-gforth-simple ( -- ) output-costs-prefix prim output-num-part - 1 2 .r ." ," - inst-stream stack-in @ 1 .r ." }," + 1 2 .r ." }," output-name-comment cr ; : output-costs-gforth-combined ( -- ) output-costs-prefix ." N_START_SUPER+" offset-super2 @ 5 .r ." ," - super2-length dup 2 .r ." ," offset-super2 +! - inst-stream stack-in @ 1 .r ." }," + super2-length dup 2 .r ." }," offset-super2 +! output-name-comment cr ;