Merge branch 'symtab'

1 files changed, 14 insertions, 0 deletions

diff --git a/awkgram.y b/awkgram.y
index f5294e4e..22b0b767 100644
--- a/awkgram.y
+++ b/awkgram.y
@@ -973,6 +973,13 @@ regular_print:
 		$2->opcode = Op_push_array;
 		$2->memory = variable($2->source_line, arr, Node_var_new);
 
+		if (! do_posix && ! do_traditional) {
+			if ($2->memory == symbol_table)
+				fatal(_("`delete' is not allowed with SYMTAB"));
+			else if ($2->memory == func_table)
+				fatal(_("`delete' is not allowed with FUNCTAB"));
+		}
+
 		if ($4 == NULL) {
 			/*
 			 * As of September 2012, POSIX has added support
@@ -1014,6 +1021,13 @@ regular_print:
 		$3->opcode = Op_push_array;
 		$1->expr_count = 0;
 		$$ = list_append(list_create($3), $1);
+
+		if (! do_posix && ! do_traditional) {
+			if ($3->memory == symbol_table)
+				fatal(_("`delete' is not allowed with SYMTAB"));
+			else if ($3->memory == func_table)
+				fatal(_("`delete' is not allowed with FUNCTAB"));
+		}
 	  }
 	| exp
 	  {	$$ = optimize_assignment($1); }