Merge branch 'gawk-5.0-stable'

7 files changed, 136 insertions, 130 deletions

diff --git a/ChangeLog b/ChangeLog
index 33354626..f0548892 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2019-07-16         Arnold D. Robbins     <arnold@skeeve.com>
+
+	* TODO: Updated.
+	* awkgram.y [GRAMMAR]: Change some lint warnings to use lintwarn.
+	(yylex): Ditto.
+	* field.c (choose_fs_function): Ditto.
+	* main.c (main): Ditto.
+	* node.c (parse_escape): Ditto.
+
 2019-07-09         Arnold D. Robbins     <arnold@skeeve.com>
 
 	* gawkapi.h: Update copyright year, fix some spelling errors.
diff --git a/TODO b/TODO
index cf414170..59b57a2b 100644
--- a/TODO
+++ b/TODO
@@ -1,4 +1,4 @@
-Sun Feb 17 21:33:46 IST 2019
+Tue Jul 16 20:33:19 IDT 2019
 ============================
 
 There were too many files tracking different thoughts and ideas for
@@ -30,11 +30,6 @@ Minor Cleanups and Code Improvements
 	See if something like  b = a "" can be optimized to not do
 	a concatenation, but instead just set STRCUR on a.
 
-	Review all conditional warnings to see if they should be made
-	into calls to lintwarn. The advantage is that that --lint=fatal
-	would then make such warnings exit gawk, along with regular
-	lint warnings.
-
 Minor New Features
 ------------------
 
diff --git a/awkgram.c b/awkgram.c
index a1b4173e..19a11827 100644
--- a/awkgram.c
+++ b/awkgram.c
@@ -702,12 +702,12 @@ static const yytype_uint16 yyrline[] =
     1578,  1585,  1587,  1595,  1600,  1610,  1611,  1616,  1623,  1627,
     1629,  1631,  1644,  1661,  1671,  1678,  1680,  1685,  1687,  1689,
     1697,  1699,  1704,  1706,  1711,  1713,  1715,  1772,  1774,  1776,
-    1778,  1780,  1782,  1784,  1786,  1800,  1805,  1810,  1835,  1841,
-    1843,  1845,  1847,  1849,  1851,  1856,  1860,  1892,  1900,  1906,
-    1912,  1925,  1926,  1927,  1932,  1937,  1941,  1945,  1960,  1981,
-    1986,  2023,  2060,  2061,  2067,  2068,  2073,  2075,  2082,  2099,
-    2116,  2118,  2125,  2130,  2136,  2147,  2159,  2168,  2172,  2177,
-    2181,  2185,  2189,  2194,  2195,  2199,  2203,  2207
+    1778,  1780,  1782,  1784,  1786,  1800,  1805,  1810,  1836,  1842,
+    1844,  1846,  1848,  1850,  1852,  1857,  1861,  1893,  1901,  1907,
+    1913,  1926,  1927,  1928,  1933,  1938,  1942,  1946,  1961,  1982,
+    1987,  2024,  2061,  2062,  2068,  2069,  2074,  2076,  2083,  2100,
+    2117,  2119,  2126,  2131,  2137,  2148,  2160,  2169,  2173,  2178,
+    2182,  2186,  2190,  2195,  2196,  2200,  2204,  2208
 };
 #endif
 
@@ -2174,7 +2174,7 @@ yyreduce:
 		static int begin_seen = 0;
 
 		if (do_lint_old && ++begin_seen == 2)
-			warning_ln(yyvsp[0]->source_line,
+			lintwarn_ln(yyvsp[0]->source_line,
 				_("old awk does not support multiple `BEGIN' or `END' rules"));
 
 		yyvsp[0]->in_rule = rule = BEGIN;
@@ -2190,7 +2190,7 @@ yyreduce:
 		static int end_seen = 0;
 
 		if (do_lint_old && ++end_seen == 2)
-			warning_ln(yyvsp[0]->source_line,
+			lintwarn_ln(yyvsp[0]->source_line,
 				_("old awk does not support multiple `BEGIN' or `END' rules"));
 
 		yyvsp[0]->in_rule = rule = END;
@@ -3722,7 +3722,7 @@ regular_print:
 #line 1662 "awkgram.y"
     {
 		if (do_lint_old)
-			warning_ln(yyvsp[-1]->source_line,
+			lintwarn_ln(yyvsp[-1]->source_line,
 				_("old awk does not support the keyword `in' except after `for'"));
 		yyvsp[0]->nexti->opcode = Op_push_array;
 		yyvsp[-1]->opcode = Op_in_array;
@@ -3946,9 +3946,10 @@ regular_print:
 #line 1811 "awkgram.y"
     {
 		if (do_lint_old) {
+		    /* first one is warning so that second one comes out if warnings are fatal */
 		    warning_ln(yyvsp[-1]->source_line,
 				_("old awk does not support the keyword `in' except after `for'"));
-		    warning_ln(yyvsp[-1]->source_line,
+		    lintwarn_ln(yyvsp[-1]->source_line,
 				_("old awk does not support multidimensional arrays"));
 		}
 		yyvsp[0]->nexti->opcode = Op_push_array;
@@ -3963,64 +3964,64 @@ regular_print:
 			yyval = list_append(list_merge(t, yyvsp[0]), yyvsp[-1]);
 		}
 	  }
-#line 3967 "awkgram.c"
+#line 3968 "awkgram.c"
     break;
 
   case 158:
-#line 1836 "awkgram.y"
+#line 1837 "awkgram.y"
     {
 		  yyval = mk_getline(yyvsp[-1], yyvsp[0], yyvsp[-3], yyvsp[-2]->redir_type);
 		  bcfree(yyvsp[-2]);
 		}
-#line 3976 "awkgram.c"
+#line 3977 "awkgram.c"
     break;
 
   case 159:
-#line 1842 "awkgram.y"
+#line 1843 "awkgram.y"
     { yyval = mk_binary(yyvsp[-2], yyvsp[0], yyvsp[-1]); }
-#line 3982 "awkgram.c"
+#line 3983 "awkgram.c"
     break;
 
   case 160:
-#line 1844 "awkgram.y"
+#line 1845 "awkgram.y"
     { yyval = mk_binary(yyvsp[-2], yyvsp[0], yyvsp[-1]); }
-#line 3988 "awkgram.c"
+#line 3989 "awkgram.c"
     break;
 
   case 161:
-#line 1846 "awkgram.y"
+#line 1847 "awkgram.y"
     { yyval = mk_binary(yyvsp[-2], yyvsp[0], yyvsp[-1]); }
-#line 3994 "awkgram.c"
+#line 3995 "awkgram.c"
     break;
 
   case 162:
-#line 1848 "awkgram.y"
+#line 1849 "awkgram.y"
     { yyval = mk_binary(yyvsp[-2], yyvsp[0], yyvsp[-1]); }
-#line 4000 "awkgram.c"
+#line 4001 "awkgram.c"
     break;
 
   case 163:
-#line 1850 "awkgram.y"
+#line 1851 "awkgram.y"
     { yyval = mk_binary(yyvsp[-2], yyvsp[0], yyvsp[-1]); }
-#line 4006 "awkgram.c"
+#line 4007 "awkgram.c"
     break;
 
   case 164:
-#line 1852 "awkgram.y"
+#line 1853 "awkgram.y"
     { yyval = mk_binary(yyvsp[-2], yyvsp[0], yyvsp[-1]); }
-#line 4012 "awkgram.c"
+#line 4013 "awkgram.c"
     break;
 
   case 165:
-#line 1857 "awkgram.y"
+#line 1858 "awkgram.y"
     {
 		yyval = list_create(yyvsp[0]);
 	  }
-#line 4020 "awkgram.c"
+#line 4021 "awkgram.c"
     break;
 
   case 166:
-#line 1861 "awkgram.y"
+#line 1862 "awkgram.y"
     {
 		if (yyvsp[0]->opcode == Op_match_rec) {
 			yyvsp[0]->opcode = Op_nomatch;
@@ -4052,11 +4053,11 @@ regular_print:
 			}
 		}
 	   }
-#line 4056 "awkgram.c"
+#line 4057 "awkgram.c"
     break;
 
   case 167:
-#line 1893 "awkgram.y"
+#line 1894 "awkgram.y"
     {
 		// Always include. Allows us to lint warn on
 		// print "foo" > "bar" 1
@@ -4064,31 +4065,31 @@ regular_print:
 		// print "foo" > ("bar" 1)
 		yyval = list_append(yyvsp[-1], bcalloc(Op_parens, 1, sourceline));
 	  }
-#line 4068 "awkgram.c"
+#line 4069 "awkgram.c"
     break;
 
   case 168:
-#line 1901 "awkgram.y"
+#line 1902 "awkgram.y"
     {
 		yyval = snode(yyvsp[-1], yyvsp[-3]);
 		if (yyval == NULL)
 			YYABORT;
 	  }
-#line 4078 "awkgram.c"
+#line 4079 "awkgram.c"
     break;
 
   case 169:
-#line 1907 "awkgram.y"
+#line 1908 "awkgram.y"
     {
 		yyval = snode(yyvsp[-1], yyvsp[-3]);
 		if (yyval == NULL)
 			YYABORT;
 	  }
-#line 4088 "awkgram.c"
+#line 4089 "awkgram.c"
     break;
 
   case 170:
-#line 1913 "awkgram.y"
+#line 1914 "awkgram.y"
     {
 		static bool warned = false;
 
@@ -4101,45 +4102,45 @@ regular_print:
 		if (yyval == NULL)
 			YYABORT;
 	  }
-#line 4105 "awkgram.c"
+#line 4106 "awkgram.c"
     break;
 
   case 173:
-#line 1928 "awkgram.y"
+#line 1929 "awkgram.y"
     {
 		yyvsp[-1]->opcode = Op_preincrement;
 		yyval = mk_assignment(yyvsp[0], NULL, yyvsp[-1]);
 	  }
-#line 4114 "awkgram.c"
+#line 4115 "awkgram.c"
     break;
 
   case 174:
-#line 1933 "awkgram.y"
+#line 1934 "awkgram.y"
     {
 		yyvsp[-1]->opcode = Op_predecrement;
 		yyval = mk_assignment(yyvsp[0], NULL, yyvsp[-1]);
 	  }
-#line 4123 "awkgram.c"
+#line 4124 "awkgram.c"
     break;
 
   case 175:
-#line 1938 "awkgram.y"
+#line 1939 "awkgram.y"
     {
 		yyval = list_create(yyvsp[0]);
 	  }
-#line 4131 "awkgram.c"
+#line 4132 "awkgram.c"
     break;
 
   case 176:
-#line 1942 "awkgram.y"
+#line 1943 "awkgram.y"
     {
 		yyval = list_create(yyvsp[0]);
 	  }
-#line 4139 "awkgram.c"
+#line 4140 "awkgram.c"
     break;
 
   case 177:
-#line 1946 "awkgram.y"
+#line 1947 "awkgram.y"
     {
 		if (yyvsp[0]->lasti->opcode == Op_push_i
 			&& (yyvsp[0]->lasti->memory->flags & STRING) == 0
@@ -4154,11 +4155,11 @@ regular_print:
 			yyval = list_append(yyvsp[0], yyvsp[-1]);
 		}
 	  }
-#line 4158 "awkgram.c"
+#line 4159 "awkgram.c"
     break;
 
   case 178:
-#line 1961 "awkgram.y"
+#line 1962 "awkgram.y"
     {
 		if (yyvsp[0]->lasti->opcode == Op_push_i
 			&& (yyvsp[0]->lasti->memory->flags & STRING) == 0
@@ -4176,20 +4177,20 @@ regular_print:
 			yyval = list_append(yyvsp[0], yyvsp[-1]);
 		}
 	  }
-#line 4180 "awkgram.c"
+#line 4181 "awkgram.c"
     break;
 
   case 179:
-#line 1982 "awkgram.y"
+#line 1983 "awkgram.y"
     {
 		func_use(yyvsp[0]->lasti->func_name, FUNC_USE);
 		yyval = yyvsp[0];
 	  }
-#line 4189 "awkgram.c"
+#line 4190 "awkgram.c"
     break;
 
   case 180:
-#line 1987 "awkgram.y"
+#line 1988 "awkgram.y"
     {
 		/* indirect function call */
 		INSTRUCTION *f, *t;
@@ -4223,11 +4224,11 @@ regular_print:
 		yyval = list_prepend(yyvsp[0], t);
 		at_seen = false;
 	  }
-#line 4227 "awkgram.c"
+#line 4228 "awkgram.c"
     break;
 
   case 181:
-#line 2024 "awkgram.y"
+#line 2025 "awkgram.y"
     {
 		NODE *n;
 		char *name = yyvsp[-3]->func_name;
@@ -4260,49 +4261,49 @@ regular_print:
 			yyval = list_append(t, yyvsp[-3]);
 		}
 	  }
-#line 4264 "awkgram.c"
+#line 4265 "awkgram.c"
     break;
 
   case 182:
-#line 2060 "awkgram.y"
+#line 2061 "awkgram.y"
     { yyval = NULL; }
-#line 4270 "awkgram.c"
+#line 4271 "awkgram.c"
     break;
 
   case 183:
-#line 2062 "awkgram.y"
+#line 2063 "awkgram.y"
     { yyval = yyvsp[0]; }
-#line 4276 "awkgram.c"
+#line 4277 "awkgram.c"
     break;
 
   case 184:
-#line 2067 "awkgram.y"
+#line 2068 "awkgram.y"
     { yyval = NULL; }
-#line 4282 "awkgram.c"
+#line 4283 "awkgram.c"
     break;
 
   case 185:
-#line 2069 "awkgram.y"
+#line 2070 "awkgram.y"
     { yyval = yyvsp[-1]; }
-#line 4288 "awkgram.c"
+#line 4289 "awkgram.c"
     break;
 
   case 186:
-#line 2074 "awkgram.y"
+#line 2075 "awkgram.y"
     {	yyval = yyvsp[0]; }
-#line 4294 "awkgram.c"
+#line 4295 "awkgram.c"
     break;
 
   case 187:
-#line 2076 "awkgram.y"
+#line 2077 "awkgram.y"
     {
 		yyval = list_merge(yyvsp[-1], yyvsp[0]);
 	  }
-#line 4302 "awkgram.c"
+#line 4303 "awkgram.c"
     break;
 
   case 188:
-#line 2083 "awkgram.y"
+#line 2084 "awkgram.y"
     {
 		INSTRUCTION *ip = yyvsp[0]->lasti;
 		int count = ip->sub_count;	/* # of SUBSEP-seperated expressions */
@@ -4316,11 +4317,11 @@ regular_print:
 		sub_counter++;	/* count # of dimensions */
 		yyval = yyvsp[0];
 	  }
-#line 4320 "awkgram.c"
+#line 4321 "awkgram.c"
     break;
 
   case 189:
-#line 2100 "awkgram.y"
+#line 2101 "awkgram.y"
     {
 		INSTRUCTION *t = yyvsp[-1];
 		if (yyvsp[-1] == NULL) {
@@ -4334,41 +4335,41 @@ regular_print:
 			yyvsp[0]->sub_count = count_expressions(&t, false);
 		yyval = list_append(t, yyvsp[0]);
 	  }
-#line 4338 "awkgram.c"
+#line 4339 "awkgram.c"
     break;
 
   case 190:
-#line 2117 "awkgram.y"
+#line 2118 "awkgram.y"
     {	yyval = yyvsp[0]; }
-#line 4344 "awkgram.c"
+#line 4345 "awkgram.c"
     break;
 
   case 191:
-#line 2119 "awkgram.y"
+#line 2120 "awkgram.y"
     {
 		yyval = list_merge(yyvsp[-1], yyvsp[0]);
 	  }
-#line 4352 "awkgram.c"
+#line 4353 "awkgram.c"
     break;
 
   case 192:
-#line 2126 "awkgram.y"
+#line 2127 "awkgram.y"
     { yyval = yyvsp[-1]; }
-#line 4358 "awkgram.c"
+#line 4359 "awkgram.c"
     break;
 
   case 193:
-#line 2131 "awkgram.y"
+#line 2132 "awkgram.y"
     {
 		yyvsp[0]->opcode = Op_push;
 		yyvsp[0]->memory = variable(yyvsp[0]->source_line, yyvsp[0]->lextok, Node_var_new);
 		yyval = list_create(yyvsp[0]);
 	  }
-#line 4368 "awkgram.c"
+#line 4369 "awkgram.c"
     break;
 
   case 194:
-#line 2137 "awkgram.y"
+#line 2138 "awkgram.y"
     {
 		char *arr = yyvsp[-1]->lextok;
 
@@ -4376,11 +4377,11 @@ regular_print:
 		yyvsp[-1]->opcode = Op_push_array;
 		yyval = list_prepend(yyvsp[0], yyvsp[-1]);
 	  }
-#line 4380 "awkgram.c"
+#line 4381 "awkgram.c"
     break;
 
   case 195:
-#line 2148 "awkgram.y"
+#line 2149 "awkgram.y"
     {
 		INSTRUCTION *ip = yyvsp[0]->nexti;
 		if (ip->opcode == Op_push
@@ -4392,85 +4393,85 @@ regular_print:
 		} else
 			yyval = yyvsp[0];
 	  }
-#line 4396 "awkgram.c"
+#line 4397 "awkgram.c"
     break;
 
   case 196:
-#line 2160 "awkgram.y"
+#line 2161 "awkgram.y"
     {
 		yyval = list_append(yyvsp[-1], yyvsp[-2]);
 		if (yyvsp[0] != NULL)
 			mk_assignment(yyvsp[-1], NULL, yyvsp[0]);
 	  }
-#line 4406 "awkgram.c"
+#line 4407 "awkgram.c"
     break;
 
   case 197:
-#line 2169 "awkgram.y"
+#line 2170 "awkgram.y"
     {
 		yyvsp[0]->opcode = Op_postincrement;
 	  }
-#line 4414 "awkgram.c"
+#line 4415 "awkgram.c"
     break;
 
   case 198:
-#line 2173 "awkgram.y"
+#line 2174 "awkgram.y"
     {
 		yyvsp[0]->opcode = Op_postdecrement;
 	  }
-#line 4422 "awkgram.c"
+#line 4423 "awkgram.c"
     break;
 
   case 199:
-#line 2177 "awkgram.y"
+#line 2178 "awkgram.y"
     { yyval = NULL; }
-#line 4428 "awkgram.c"
+#line 4429 "awkgram.c"
     break;
 
   case 200:
-#line 2181 "awkgram.y"
+#line 2182 "awkgram.y"
     { yyval = yyvsp[0]; }
-#line 4434 "awkgram.c"
+#line 4435 "awkgram.c"
     break;
 
   case 201:
-#line 2185 "awkgram.y"
+#line 2186 "awkgram.y"
     { yyval = yyvsp[0]; yyerrok; }
-#line 4440 "awkgram.c"
+#line 4441 "awkgram.c"
     break;
 
   case 202:
-#line 2189 "awkgram.y"
+#line 2190 "awkgram.y"
     { yyerrok; }
-#line 4446 "awkgram.c"
+#line 4447 "awkgram.c"
     break;
 
   case 203:
-#line 2194 "awkgram.y"
+#line 2195 "awkgram.y"
     { yyval = NULL; }
-#line 4452 "awkgram.c"
+#line 4453 "awkgram.c"
     break;
 
   case 205:
-#line 2199 "awkgram.y"
+#line 2200 "awkgram.y"
     { yyerrok; }
-#line 4458 "awkgram.c"
+#line 4459 "awkgram.c"
     break;
 
   case 206:
-#line 2203 "awkgram.y"
+#line 2204 "awkgram.y"
     { yyval = yyvsp[0]; yyerrok; }
-#line 4464 "awkgram.c"
+#line 4465 "awkgram.c"
     break;
 
   case 207:
-#line 2207 "awkgram.y"
+#line 2208 "awkgram.y"
     { yyval = yyvsp[0]; yyerrok; }
-#line 4470 "awkgram.c"
+#line 4471 "awkgram.c"
     break;
 
 
-#line 4474 "awkgram.c"
+#line 4475 "awkgram.c"
 
       default: break;
     }
@@ -4702,7 +4703,7 @@ yyreturn:
 #endif
   return yyresult;
 }
-#line 2209 "awkgram.y"
+#line 2210 "awkgram.y"
 
 
 struct token {
@@ -6382,7 +6383,7 @@ retry:
 					if (do_lint)
 						lintwarn(_("POSIX does not allow operator `**='"));
 					if (do_lint_old)
-						warning(_("old awk does not support operator `**='"));
+						lintwarn(_("old awk does not support operator `**='"));
 				}
 				yylval = GET_INSTRUCTION(Op_assign_exp);
 				return ASSIGNOP;
@@ -6393,7 +6394,7 @@ retry:
 					if (do_lint)
 						lintwarn(_("POSIX does not allow operator `**'"));
 					if (do_lint_old)
-						warning(_("old awk does not support operator `**'"));
+						lintwarn(_("old awk does not support operator `**'"));
 				}
 				yylval = GET_INSTRUCTION(Op_exp);
 				return lasttok = '^';
@@ -6428,7 +6429,7 @@ retry:
 		if (nextc(true) == '=') {
 			if (do_lint_old && ! did_warn_assgn) {
 				did_warn_assgn = true;
-				warning(_("operator `^=' is not supported in old awk"));
+				lintwarn(_("operator `^=' is not supported in old awk"));
 			}
 			yylval = GET_INSTRUCTION(Op_assign_exp);
 			return lasttok = ASSIGNOP;
@@ -6436,7 +6437,7 @@ retry:
 		pushback();
 		if (do_lint_old && ! did_warn_op) {
 			did_warn_op = true;
-			warning(_("operator `^' is not supported in old awk"));
+			lintwarn(_("operator `^' is not supported in old awk"));
 		}
 		yylval = GET_INSTRUCTION(Op_exp);
 		return lasttok = '^';
@@ -6891,7 +6892,7 @@ retry:
 		if (do_lint_old && (tokentab[mid].flags & NOT_OLD) != 0
 				 && (warntab[mid] & NOT_OLD) == 0
 		) {
-			warning(_("`%s' is not supported in old awk"),
+			lintwarn(_("`%s' is not supported in old awk"),
 					tokentab[mid].operator);
 			warntab[mid] |= NOT_OLD;
 		}
diff --git a/awkgram.y b/awkgram.y
index beb775d9..aa8ccb1d 100644
--- a/awkgram.y
+++ b/awkgram.y
@@ -415,7 +415,7 @@ pattern
 		static int begin_seen = 0;
 
 		if (do_lint_old && ++begin_seen == 2)
-			warning_ln($1->source_line,
+			lintwarn_ln($1->source_line,
 				_("old awk does not support multiple `BEGIN' or `END' rules"));
 
 		$1->in_rule = rule = BEGIN;
@@ -427,7 +427,7 @@ pattern
 		static int end_seen = 0;
 
 		if (do_lint_old && ++end_seen == 2)
-			warning_ln($1->source_line,
+			lintwarn_ln($1->source_line,
 				_("old awk does not support multiple `BEGIN' or `END' rules"));
 
 		$1->in_rule = rule = END;
@@ -1661,7 +1661,7 @@ exp
 	| exp LEX_IN simple_variable
 	  {
 		if (do_lint_old)
-			warning_ln($2->source_line,
+			lintwarn_ln($2->source_line,
 				_("old awk does not support the keyword `in' except after `for'"));
 		$3->nexti->opcode = Op_push_array;
 		$2->opcode = Op_in_array;
@@ -1810,9 +1810,10 @@ simp_exp
 	| '(' expression_list r_paren LEX_IN simple_variable
 	  {
 		if (do_lint_old) {
+		    /* first one is warning so that second one comes out if warnings are fatal */
 		    warning_ln($4->source_line,
 				_("old awk does not support the keyword `in' except after `for'"));
-		    warning_ln($4->source_line,
+		    lintwarn_ln($4->source_line,
 				_("old awk does not support multidimensional arrays"));
 		}
 		$5->nexti->opcode = Op_push_array;
@@ -3885,7 +3886,7 @@ retry:
 					if (do_lint)
 						lintwarn(_("POSIX does not allow operator `**='"));
 					if (do_lint_old)
-						warning(_("old awk does not support operator `**='"));
+						lintwarn(_("old awk does not support operator `**='"));
 				}
 				yylval = GET_INSTRUCTION(Op_assign_exp);
 				return ASSIGNOP;
@@ -3896,7 +3897,7 @@ retry:
 					if (do_lint)
 						lintwarn(_("POSIX does not allow operator `**'"));
 					if (do_lint_old)
-						warning(_("old awk does not support operator `**'"));
+						lintwarn(_("old awk does not support operator `**'"));
 				}
 				yylval = GET_INSTRUCTION(Op_exp);
 				return lasttok = '^';
@@ -3931,7 +3932,7 @@ retry:
 		if (nextc(true) == '=') {
 			if (do_lint_old && ! did_warn_assgn) {
 				did_warn_assgn = true;
-				warning(_("operator `^=' is not supported in old awk"));
+				lintwarn(_("operator `^=' is not supported in old awk"));
 			}
 			yylval = GET_INSTRUCTION(Op_assign_exp);
 			return lasttok = ASSIGNOP;
@@ -3939,7 +3940,7 @@ retry:
 		pushback();
 		if (do_lint_old && ! did_warn_op) {
 			did_warn_op = true;
-			warning(_("operator `^' is not supported in old awk"));
+			lintwarn(_("operator `^' is not supported in old awk"));
 		}
 		yylval = GET_INSTRUCTION(Op_exp);
 		return lasttok = '^';
@@ -4394,7 +4395,7 @@ retry:
 		if (do_lint_old && (tokentab[mid].flags & NOT_OLD) != 0
 				 && (warntab[mid] & NOT_OLD) == 0
 		) {
-			warning(_("`%s' is not supported in old awk"),
+			lintwarn(_("`%s' is not supported in old awk"),
 					tokentab[mid].operator);
 			warntab[mid] |= NOT_OLD;
 		}
diff --git a/field.c b/field.c
index 285376f2..59dc58af 100644
--- a/field.c
+++ b/field.c
@@ -1313,7 +1313,7 @@ choose_fs_function:
 		}
 	} else if (fs->stlen > 1) {
 		if (do_lint_old)
-			warning(_("old awk does not support regexps as value of `FS'"));
+			lintwarn(_("old awk does not support regexps as value of `FS'"));
 		set_parser(re_parse_field);
 	} else if (RS_is_null) {
 		/* we know that fs->stlen <= 1 */
diff --git a/main.c b/main.c
index 925f4fc0..9be77938 100644
--- a/main.c
+++ b/main.c
@@ -364,7 +364,7 @@ main(int argc, char **argv)
 	}
 
 	if (do_lint && os_is_setuid())
-		warning(_("running %s setuid root may be a security problem"), myname);
+		lintwarn(_("running %s setuid root may be a security problem"), myname);
 
 	if (do_debug)	/* Need to register the debugger pre-exec hook before any other */
 		init_debug();
diff --git a/node.c b/node.c
index 2f9e6d4c..24050e6d 100644
--- a/node.c
+++ b/node.c
@@ -552,7 +552,7 @@ parse_escape(const char **string_ptr)
 		case 'b':
 		case 'f':
 		case 'r':
-			warning(_("old awk does not support the `\\%c' escape sequence"), c);
+			lintwarn(_("old awk does not support the `\\%c' escape sequence"), c);
 			break;
 		}
 	}