[COMMITTED] algol68: remove redundant definitions of LEVEL, UP and DOWN

[Jose E. Marchesi]

---
 gcc/algol68/a68-parser-prelude.cc | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/gcc/algol68/a68-parser-prelude.cc b/gcc/algol68/a68-parser-prelude.cc
index 829939c3ba3..46c61c2ee19 100644
--- a/gcc/algol68/a68-parser-prelude.cc
+++ b/gcc/algol68/a68-parser-prelude.cc
@@ -1302,13 +1302,6 @@ stand_prelude (void)
   m = a68_proc (M_VOID, M_SEMA, NO_MOID);
   a68_op (A68_STD, "UP", m);
   a68_op (A68_STD, "DOWN", m);
-  m = a68_proc (M_SEMA, M_INT, NO_MOID);
-  a68_op (A68_STD, "LEVEL", m);
-  m = a68_proc (M_INT, M_SEMA, NO_MOID);
-  a68_op (A68_STD, "LEVEL", m);
-  m = a68_proc (M_VOID, M_SEMA, NO_MOID);
-  a68_op (A68_STD, "UP", m);
-  a68_op (A68_STD, "DOWN", m);
 }
 
 /* GNU extensions for the standenv.  */
-- 
2.30.2