From f590e65c7b45c8b5c559574decca3eec95b39c13 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Thu, 30 Dec 2021 18:40:08 +0100
Subject: [PATCH] * out and var are reserved words

---
 utils/h2pas/h2pas.pas | 6 ++++--
 utils/h2pas/h2pas.y   | 6 ++++--
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/utils/h2pas/h2pas.pas b/utils/h2pas/h2pas.pas
index 03b8b91df4..1e628232cb 100644
--- a/utils/h2pas/h2pas.pas
+++ b/utils/h2pas/h2pas.pas
@@ -203,7 +203,7 @@ program h2pas;
     }
     function FixId(const s:string):string;
     const
-     maxtokens = 14;
+     maxtokens = 16;
      reservedid: array[1..maxtokens] of string[14] =
        (
          'CLASS',
@@ -212,6 +212,7 @@ program h2pas;
          'FALSE',
          'LABEL',
          'NEW',
+         'OUT',
          'PROPERTY',
          'PROCEDURE',
          'RECORD',
@@ -219,7 +220,8 @@ program h2pas;
          'STRING',
          'TYPE',
          'TRUE',
-         'UNTIL'
+         'UNTIL',
+         'VAR'
        );
       var
         b : boolean;
diff --git a/utils/h2pas/h2pas.y b/utils/h2pas/h2pas.y
index e872008217..5aa3b46c59 100644
--- a/utils/h2pas/h2pas.y
+++ b/utils/h2pas/h2pas.y
@@ -199,7 +199,7 @@ program h2pas;
     }
     function FixId(const s:string):string;
     const
-     maxtokens = 14;
+     maxtokens = 16;
      reservedid: array[1..maxtokens] of string[14] =
        (
          'CLASS',
@@ -208,6 +208,7 @@ program h2pas;
          'FALSE',
          'LABEL',
          'NEW',
+         'OUT',
          'PROPERTY',
          'PROCEDURE',
          'RECORD',
@@ -215,7 +216,8 @@ program h2pas;
          'STRING',
          'TYPE',
          'TRUE',
-         'UNTIL'
+         'UNTIL',
+         'VAR'
        );
       var
         b : boolean;