[COMMITTED] algol68: remove unused definitions from a68.h

Jose E. Marchesi jemarch@gnu.org
Sat Mar 15 10:28:46 GMT 2025



---
 gcc/algol68/a68-parser-bottom-up.cc |  6 ++++++
 gcc/algol68/a68.h                   | 13 +------------
 2 files changed, 7 insertions(+), 12 deletions(-)

diff --git a/gcc/algol68/a68-parser-bottom-up.cc b/gcc/algol68/a68-parser-bottom-up.cc
index 2a7500d0f6b..a2aa632923d 100644
--- a/gcc/algol68/a68-parser-bottom-up.cc
+++ b/gcc/algol68/a68-parser-bottom-up.cc
@@ -42,6 +42,12 @@
 
 /* Bottom-up parser, reduces all constructs.  */
 
+
+/* Maximum number of errors the bottom-up parser will try to recover from and
+   save diagnostics for.  */
+
+#define MAX_ERRORS 5
+
 /* Forward declarations of some of the functions defined below.  */
 
 static void reduce_branch (NODE_T *q, a68_attribute expect);
diff --git a/gcc/algol68/a68.h b/gcc/algol68/a68.h
index ec6bf9f9f68..ea71f116370 100644
--- a/gcc/algol68/a68.h
+++ b/gcc/algol68/a68.h
@@ -20,26 +20,15 @@
 
 /* Some common definitions first.  */
 
-#define KILOBYTE ((unsigned int) 1024)
-#define BUFFER_SIZE (KILOBYTE)
+#define BUFFER_SIZE 1024
 #define SMALL_BUFFER_SIZE 128
 #define SNPRINTF_SIZE ((size_t) (BUFFER_SIZE - 1))
 #define BUFCLR(z) {memset ((z), 0, BUFFER_SIZE + 1);}
 #define MOID_ERROR_WIDTH 80
 
-#define TO_UCHAR(c) ((c) >= 0 ? (int) (c) : (int) (UCHAR_MAX + (int) (c) + 1))
-
-#define MAXIMISE(u, v) ((u) = MAX (u, v))
-
 #define MONADS "%^&+-~!?"
 #define NOMADS "></=*"
 
-/* Maximum number of errors the bottom-up parser will try to recover from and
-   save diagnostics for.  */
-
-#define MAX_ERRORS 5
-
-
 /* Maximum number of priorities supported for operators.  The Algol 68 RR
    specifies 9.  */
 
-- 
2.30.2



More information about the Algol68 mailing list