languages/tcl/runtime/builtin/return.pir

   1 .HLL 'Tcl', ''
   2 .namespace []
   3
   4 .sub '&return'
   5     .param pmc argv :slurpy
   6
   7     .local int argc
   8     argc = elements argv
   9
  10     if argc == 0 goto empty
  11     if argc == 1 goto onearg
  12
  13     if argc != 3 goto bad_call
  14     $S0 = argv[0]
  15     $S1 = argv[1]
  16     $S2 = argv[2]
  17
  18     if $S0 != '-code' goto bad_call
  19     if $S1 != 'error' goto bad_call
  20
  21     die $S2
  22
  23 bad_call:
  24     die 'XXX: bad call to return'
  25
  26 onearg:
  27     $P0 = argv[0]
  28     tcl_return $P0
  29
  30 empty:
  31     tcl_return ''
  32 .end
  33
  34 # Local Variables:
  35 #   mode: pir
  36 #   fill-column: 100
  37 # End:
  38 # vim: expandtab shiftwidth=4 ft=pir: