Merge pull request #4285 from b4n/ada-is-crash

b4n · web-flow · commit 475a7bc246c2 · 2025-08-03T22:06:40.000+02:00
ada: Fix crash with `is` at EOF
diff --git a/Units/parser-ada.r/ada-is-end.d/args.ctags b/Units/parser-ada.r/ada-is-end.d/args.ctags
@@ -0,0 +1 @@
+--sort=no
diff --git a/Units/parser-ada.r/ada-is-end.d/expected.tags b/Units/parser-ada.r/ada-is-end.d/expected.tags
@@ -0,0 +1 @@
+Seg_Fault_Example	input.ada	/^procedure Seg_Fault_Example is$/;"	r
diff --git a/Units/parser-ada.r/ada-is-end.d/input.ada b/Units/parser-ada.r/ada-is-end.d/input.ada
@@ -0,0 +1,4 @@
+with Ada.Text_IO;
+
+procedure Seg_Fault_Example is
+
diff --git a/parsers/ada.c b/parsers/ada.c
@@ -1173,7 +1173,7 @@ static adaTokenInfo *adaParseSubprogram (adaTokenInfo *parent, adaKind kind)
 				/* if this is a "new" something then no need to parse */
 				skipPast (";");
 			}
-			else if (line[pos] == '(')
+			else if (!eof_reached && line[pos] == '(')
 			{
 				/* '(' is the starter of an expression function. */
 				skipPast (";");

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1 @@`
	`1`	`+Seg_Fault_Example input.ada /^procedure Seg_Fault_Example is$/;" r`
-Original file line number
+Diff line change
@@ @@ -0,0 +1,4 @@ @@
 +with Ada.Text_IO;
++
 +procedure Seg_Fault_Example is
++
Original file line number	Diff line number	Diff line change
`@@ -1173,7 +1173,7 @@ static adaTokenInfo adaParseSubprogram (adaTokenInfo parent, adaKind kind)`
`1173`	`1173`	`/* if this is a "new" something then no need to parse */`
`1174`	`1174`	`skipPast (";");`
`1175`	`1175`	`}`
`1176`		`- else if (line[pos] == '(')`
	`1176`	`+ else if (!eof_reached && line[pos] == '(')`
`1177`	`1177`	`{`
`1178`	`1178`	`/* '(' is the starter of an expression function. */`
`1179`	`1179`	`skipPast (";");`