urflibs/tests/test-sinopt-to-00.f

   1 0 value val
   2
   3 : testto-0  ( n -- n )  0 to val ;
   4 .( 0 to val\n)
   5 debug:decompile testto-0
   6
   7 : testto-1  ( n -- n )  1 to val ;
   8 .( 1 to val\n)
   9 debug:decompile testto-1
  10
  11 : testto-2  ( n -- n )  2 to val ;
  12 .( 2 to val\n)
  13 debug:decompile testto-2
  14
  15 : testto-3  ( n -- n )  -1 to val ;
  16 .( -1 to val\n)
  17 debug:decompile testto-3
  18
  19 : testto-4  ( n -- n )  false to val ;
  20 .( false to val\n)
  21 debug:decompile testto-4
  22
  23 : testto-5  ( n -- n )  true to val ;
  24 .( true to val\n)
  25 debug:decompile testto-5
  26
  27 : testto-6  ( n -- n )  0-to val ;
  28 .( 0-to to val\n)
  29 debug:decompile testto-6
  30
  31 : testto-7  ( n -- n )  +1-to val ;
  32 .( +1-to to val\n)
  33 debug:decompile testto-7
  34
  35 : testto-8  ( n -- n )  -1-to val ;
  36 .( -1-to to val\n)
  37 debug:decompile testto-8
  38
  39 : testto-9  ( n -- n )  1 +to val ;
  40 .( 1 +to to val\n)
  41 debug:decompile testto-9
  42
  43 : testto-a  ( n -- n )  1 -to val ;
  44 .( 1 -to to val\n)
  45 debug:decompile testto-a
  46
  47 : testto-b  ( n -- n )  2 +to val ;
  48 .( 2 +to to val\n)
  49 debug:decompile testto-b
  50
  51 : testto-c  ( n -- n )  2 -to val ;
  52 .( 2 -to to val\n)
  53 debug:decompile testto-c
  54
  55 : testto-d  ( n -- n )  3 +to val ;
  56 .( 3 +to to val\n)
  57 debug:decompile testto-d
  58
  59 : testto-e  ( n -- n )  3 -to val ;
  60 .( 3 -to to val\n)
  61 debug:decompile testto-e
  62
  63 : testto-f  ( n -- n )  3 +to val ;
  64 .( 3 +to to val\n)
  65 debug:decompile testto-f
  66
  67 : testto-g  ( n -- n )  3 -to val ;
  68 .( 3 -to to val\n)
  69 debug:decompile testto-g
  70
  71 : testto-h  ( n -- n )  4 +to val ;
  72 .( 4 +to to val\n)
  73 debug:decompile testto-h
  74
  75 : testto-i  ( n -- n )  4 -to val ;
  76 .( 4 -to to val\n)
  77 debug:decompile testto-i
  78
  79 : testto-j  ( n -- n )  4 +to val ;
  80 .( 4 +to to val\n)
  81 debug:decompile testto-j
  82
  83 : testto-k  ( n -- n )  4 -to val ;
  84 .( 4 -to to val\n)
  85 debug:decompile testto-k
  86
  87
  88 debug:dump-stack