*** ed.c-dist	Thu Sep 01 06:46:45 1994
--- ed.c	Thu Sep 01 06:52:16 1994
***************
*** 235,252 ****
  	int	t_and_mask;
  	int	t_or_mask;
  } *t, tbl[] = {
! 	{  "number",		~FALSE,		NFLG_MASK,	},
! 	{  "nonumber",		~NFLG_MASK,	FALSE,		},
! 	{  "list",		~FALSE,		LFLG_MASK,	},
! 	{  "nolist",		~LFLG_MASK,	FALSE,		},
! 	{  "print",		~FALSE, 	PFLG_MASK,	},
! 	{  "noprint",		~PFLG_MASK,	FALSE,		},
! 	{  "eightbit",		~FALSE,		EIGHTBIT_MASK,	},
! 	{  "noeightbit",	~EIGHTBIT_MASK,	FALSE,		},
! 	{  "autoindent",	~FALSE,		AUTOINDFLG_MASK,},
! 	{  "noautoindent",	~AUTOINDFLG_MASK, FALSE,	},
! 	{  "excompatible",	~FALSE,		EXCOMPAT_MASK,	},
! 	{  "noexcompatible",	~EXCOMPAT_MASK,	FALSE,		},
  	{  0							},
  };
  
--- 235,252 ----
  	int	t_and_mask;
  	int	t_or_mask;
  } *t, tbl[] = {
! 	{  "number",            ~FALSE,         NFLG_MASK       },
! 	{  "nonumber",          ~NFLG_MASK,     FALSE           },
! 	{  "list",              ~FALSE,         LFLG_MASK       },
! 	{  "nolist",            ~LFLG_MASK,     FALSE           },
! 	{  "print",             ~FALSE,         PFLG_MASK       },
! 	{  "noprint",           ~PFLG_MASK,     FALSE           },
! 	{  "eightbit",          ~FALSE,         EIGHTBIT_MASK   },
! 	{  "noeightbit",        ~EIGHTBIT_MASK, FALSE           },
! 	{  "autoindent",        ~FALSE,         AUTOINDFLG_MASK },
! 	{  "noautoindent",      ~AUTOINDFLG_MASK, FALSE         },
! 	{  "excompatible",      ~FALSE,         EXCOMPAT_MASK   },
! 	{  "noexcompatible",    ~EXCOMPAT_MASK, FALSE           },
  	{  0							},
  };
  
*** lex.c-dist	Thu Sep 01 06:46:46 1994
--- lex.c	Thu Sep 01 06:55:19 1994
***************
*** 107,146 ****
  static char *outp;
  
  static struct s_reswords reswords[] = {
! { "break",		F_BREAK, },
! { "case",		F_CASE, },
! { "catch",		F_CATCH, },
! { "closure",		F_CLOSURE_DECL, },
! { "continue",		F_CONTINUE, },
! { "default",		F_DEFAULT, },
! { "do",			F_DO, },
! { "else",		F_ELSE, },
! { "float",		F_FLOAT_DECL, },
! { "for",		F_FOR, },
! { "if",			F_IF, },
! { "inherit",		F_INHERIT, },
! { "int",		F_INT, },
! { "mapping",		F_MAPPING, },
! { "mixed",		F_MIXED, },
! { "nomask",		F_NO_MASK, },
! { "object",		F_OBJECT, },
  #ifdef SUPPLY_PARSE_COMMAND
! { "parse_command",	F_PARSE_COMMAND, },
  #endif
! { "private",		F_PRIVATE, },
! { "protected",		F_PROTECTED, },
! { "public",		F_PUBLIC, },
! { "return",		F_RETURN, },
! { "sscanf",		F_SSCANF, },
! { "static",		F_STATIC, },
! { "status",		F_STATUS, },
! { "string",		F_STRING_DECL, },
! { "switch",		F_SWITCH, },
! { "symbol",		F_SYMBOL_DECL, },
! { "varargs",		F_VARARGS, },
! { "virtual",		F_VIRTUAL, },
! { "void",		F_VOID, },
! { "while",		F_WHILE, },
  };
  
  struct ident *ident_table[ITABLE_SIZE];
--- 107,146 ----
  static char *outp;
  
  static struct s_reswords reswords[] = {
! { "break",              F_BREAK },
! { "case",               F_CASE },
! { "catch",              F_CATCH },
! { "closure",            F_CLOSURE_DECL },
! { "continue",           F_CONTINUE },
! { "default",            F_DEFAULT },
! { "do",                 F_DO },
! { "else",               F_ELSE },
! { "float",              F_FLOAT_DECL },
! { "for",                F_FOR },
! { "if",                 F_IF },
! { "inherit",            F_INHERIT },
! { "int",                F_INT },
! { "mapping",            F_MAPPING },
! { "mixed",              F_MIXED },
! { "nomask",             F_NO_MASK },
! { "object",             F_OBJECT },
  #ifdef SUPPLY_PARSE_COMMAND
! { "parse_command",      F_PARSE_COMMAND },
  #endif
! { "private",            F_PRIVATE },
! { "protected",          F_PROTECTED },
! { "public",             F_PUBLIC },
! { "return",             F_RETURN },
! { "sscanf",             F_SSCANF },
! { "static",             F_STATIC },
! { "status",             F_STATUS },
! { "string",             F_STRING_DECL },
! { "switch",             F_SWITCH },
! { "symbol",             F_SYMBOL_DECL },
! { "varargs",            F_VARARGS },
! { "virtual",            F_VIRTUAL },
! { "void",               F_VOID },
! { "while",              F_WHILE },
  };
  
  struct ident *ident_table[ITABLE_SIZE];
***************
*** 1827,1832 ****
--- 1827,1835 ----
      for(n=0; n<NELEM(instrs); n++) {
  	struct ident *p;
  
+ #if defined(AMIGA) && defined(_DCC) && defined(DICE30)
+ 	if (n >= NELEM(instrs)-1) continue;
+ #endif
  	if (instrs[n].Default == -1) continue;
  	p = make_shared_identifier(instrs[n].name, I_TYPE_GLOBAL);
  	if (!p)
***************
*** 1842,1847 ****
--- 1845,1853 ----
      for (i=0; i<NELEM(reswords); i++) {
          struct ident *p;
  
+ #if defined(AMIGA) && defined(_DCC) && defined(DICE30)
+ 	if (i >= NELEM(reswords)-1) continue;
+ #endif
          p = make_shared_identifier(reswords[i].name, I_TYPE_RESWORD);
  	if (!p)
  	    fatal("Out of memory\n");
*** smalloc.c-dist	Thu Sep 01 06:46:47 1994
--- smalloc.c	Thu Sep 01 06:52:25 1994
***************
*** 511,517 ****
--- 511,521 ----
          if (q = p->right) {
  	    fake("two childs");
  	    s = q;
+ #if !defined(AMIGA) && !defined(DICE30)
  	    for ( ; r = q, q = r->left; );
+ #else
+ 	    do { r = q; q = r->left; } while (q);
+ #endif
  	    if (r == s) {
  		r->left = s = p->left;
  		s->parent = r;
*** wiz_list.c-dist	Thu Sep 01 06:46:47 1994
--- wiz_list.c	Thu Sep 01 06:52:27 1994
***************
*** 212,218 ****
  0, /* error linue_number */
  0, /* last_call_out */
  0, /* int call_out_cost */
! 0, /* quota_state */
  };
  
  #ifdef MALLOC_smalloc
--- 212,218 ----
  0, /* error linue_number */
  0, /* last_call_out */
  0, /* int call_out_cost */
! 0  /* quota_state */
  };
  
  #ifdef MALLOC_smalloc