public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc/devel/modula-2] Tidy up removing unused procedure, add missing include and error token.
@ 2022-12-05 17:44 Gaius Mulley
0 siblings, 0 replies; only message in thread
From: Gaius Mulley @ 2022-12-05 17:44 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:60035bdefe5241548b41c3ac236b1c9feb9bf182
commit 60035bdefe5241548b41c3ac236b1c9feb9bf182
Author: Gaius Mulley <gaiusmod2@gmail.com>
Date: Mon Dec 5 17:43:07 2022 +0000
Tidy up removing unused procedure, add missing include and error token.
Some minor tidy ups which remove an unused procedure, add a missing
include header file and use a different token for the production of
error messages.
libgm2/ChangeLog:
* libgm2/libm2min/libc.c: Add include stdlib.h.
gcc/m2/ChangeLog:
* gm2-compiler/M2Quads.mod (CheckInCompatible): Removed usused
procedure. (CheckVariableOrConstantOrProcedure) use destok when
generating an error about the designator.
* gm2-compiler/PHBuild.bnf (ModuleDeclaration): Remove unused
variable endt.
Signed-off-by: Gaius Mulley <gaiusmod2@gmail.com>
Diff:
---
gcc/m2/gm2-compiler/M2Quads.mod | 24 +-----------------------
gcc/m2/gm2-compiler/PHBuild.bnf | 3 +--
libgm2/libm2min/libc.c | 7 +++++--
3 files changed, 7 insertions(+), 27 deletions(-)
diff --git a/gcc/m2/gm2-compiler/M2Quads.mod b/gcc/m2/gm2-compiler/M2Quads.mod
index 88a7e7a6aeb..cbd4a975374 100644
--- a/gcc/m2/gm2-compiler/M2Quads.mod
+++ b/gcc/m2/gm2-compiler/M2Quads.mod
@@ -3552,7 +3552,7 @@ BEGIN
((DesT#NulSym) AND (NOT IsProcType(DesT))) AND
((DesL#NulSym) AND (NOT IsProcType(DesL)))
THEN
- MetaErrorT1 (combinedtok,
+ MetaErrorT1 (destok,
'incorrectly assigning a procedure to a designator {%1Ead} (designator is not a procedure type, {%1ast})', Des)
ELSIF IsProcedure (Exp) AND IsProcedureNested (Exp)
THEN
@@ -12765,28 +12765,6 @@ BEGIN
END CheckVariableOrConstantOrProcedure ;
-(*
- CheckInCompatible - checks to see that t1 IN t2 is type legal.
-*)
-
-PROCEDURE CheckInCompatible (Op: Name; t1, t2: CARDINAL) : CARDINAL ;
-BEGIN
- IF Op = InTok
- THEN
- t2 := SkipType (t2) ;
- IF IsSet (t2)
- THEN
- RETURN GetSType (t2)
- ELSE
- MetaError1 ('expect a set type as the right hand operand to the {%kIN} operator, the type attempting to be used with the {%kIN} is {%1Ead}', t2) ;
- RETURN t1
- END
- ELSE
- RETURN t2
- END
-END CheckInCompatible ;
-
-
(*
BuildRelOp - Builds a relative operation from the quad stack.
The Stack is expected to contain:
diff --git a/gcc/m2/gm2-compiler/PHBuild.bnf b/gcc/m2/gm2-compiler/PHBuild.bnf
index ad4777ced58..7cb97421956 100644
--- a/gcc/m2/gm2-compiler/PHBuild.bnf
+++ b/gcc/m2/gm2-compiler/PHBuild.bnf
@@ -1188,7 +1188,7 @@ DefOptArg := "[" Ident ":" FormalType "=" SilentConstExpression "]" =:
FormalType := { "ARRAY" "OF" } Qualident =:
-ModuleDeclaration := % VAR begint, endt: CARDINAL ; %
+ModuleDeclaration := % VAR begint: CARDINAL ; %
% begint := GetTokenNo () %
"MODULE" % M2Error.DefaultInnerModule %
% PushAutoOn %
@@ -1201,7 +1201,6 @@ ModuleDeclaration := % VAR
} [ Export
]
Block % PushAutoOn %
- % endt := GetTokenNo () -1 %
Ident % EndBuildInnerModule %
% PopAuto ; PopAuto ; PopAuto %
=:
diff --git a/libgm2/libm2min/libc.c b/libgm2/libm2min/libc.c
index 29ef066be82..2e4f8d3ebab 100644
--- a/libgm2/libm2min/libc.c
+++ b/libgm2/libm2min/libc.c
@@ -24,8 +24,11 @@ a copy of the GCC Runtime Library Exception along with this program;
see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
<http://www.gnu.org/licenses/>. */
-void abort (void) __attribute__ ((noreturn));
-void exit (int) __attribute__ ((noreturn));
+#include <config.h>
+
+#if defined(HAVE_STDLIB_H)
+#include <stdlib.h>
+#endif
void abort (void)
{
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2022-12-05 17:44 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2022-12-05 17:44 [gcc/devel/modula-2] Tidy up removing unused procedure, add missing include and error token Gaius Mulley
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).