Ada: Fix code generated for minint and maxint

We were generating code using MININT and MAXINT, which don't exist in Ada. We now use Integer'First and Integer'Last.
snowballstem · Oct 21, 2021 · 55fd44b · 55fd44b
1 parent e6d8b6f
commit 55fd44b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/compiler/generator_ada.c b/compiler/generator_ada.c
@@ -279,9 +279,9 @@ static void generate_AE(struct generator * g, struct node * p) {
  write_char(g, ')');
  break;
  case c_maxint:
- write_string(g, "MAXINT"); break;
+ write_string(g, "Integer'Last"); break;
  case c_minint:
- write_string(g, "MININT"); break;
+ write_string(g, "Integer'First"); break;
  case c_neg:
  write_string(g, "(-"); generate_AE(g, p->right); write_char(g, ')'); break;
  case c_multiply: