[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