Branch: Tag:

1999-12-13

1999-12-13 01:21:15 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Added new class of options: runtime_options.
Moved -dT to -rT.
Implemented -rt to enable runtime checking of types.

Rev: src/docode.c:1.60
Rev: src/interpreter.h:1.24
Rev: src/language.yacc:1.143
Rev: src/main.c:1.79
Rev: src/main.h:1.12

5:   \*/   /**/   #include "global.h" - RCSID("$Id: main.c,v 1.78 1999/12/05 15:32:15 grubba Exp $"); + RCSID("$Id: main.c,v 1.79 1999/12/13 01:21:10 grubba Exp $");   #include "fdlib.h"   #include "backend.h"   #include "module.h"
57:   char **ARGV;      int debug_options=0; + int runtime_options=0;   int d_flag=0;   int c_flag=0;   int t_flag=0;
312:    case 's':    debug_options|=DEBUG_SIGNALS;    p++; -  d_flag--; +     goto more_d_flags;       case 't':    debug_options|=NO_TAILRECURSION;    p++; -  d_flag--; +     goto more_d_flags;    -  +  default: +  d_flag += (p[0] == 'd'); +  p++; +  } +  break; +  +  case 'r': +  more_w_flags: +  switch(p[1]) { +  case 't': +  runtime_options |= RUNTIME_CHECK_TYPES; +  p++; +  goto more_w_flags; +     case 'T': -  debug_options|=DEBUG_TYPES; +  runtime_options |= RUNTIME_STRICT_TYPES;    p++; -  d_flag--; -  goto more_d_flags; +  goto more_w_flags;       default: -  d_flag++,p++; +  break;    }    break;