sinopt: various bugfixes

[urasm.git] / urflibs / tests / test-sinopt-stack-00.f

0 value val

: test-0  ( n -- n )  noop swap drop noop ;
.( swap drop \n)
debug:decompile test-0


debug:dump-stack