languages/tcl/src/returncodes.pasm

   1 =head1 return codes
   2
   3 A convenience: we need these return codes in many different bytecode files.
   4
   5 =cut
   6
   7  .include 'except_types.pasm'
   8  .include 'except_severity.pasm'
   9
  10  .macro_const TCL_OK       0
  11  .macro_const TCL_ERROR    1
  12  .macro_const TCL_RETURN   2
  13  .macro_const TCL_BREAK    3
  14  .macro_const TCL_CONTINUE 4
  15
  16  # values for accessing exception information
  17  .macro_const VALUE_SLOT    0 # _message
  18  .macro_const CODE_SLOT     1 # _type
  19  .macro_const SEVERITY_SLOT 2 # _severity
  20
  21 # Local Variables:
  22 #   mode: pir
  23 #   fill-column: 100
  24 # End:
  25 # vim: expandtab shiftwidth=4 ft=pir: