From: Gaius Mulley <gaiusmod2@gmail.com>
Date: Mon, 5 Dec 2022 17:43:07 +0000 (+0000)
Subject: Tidy up removing unused procedure, add missing include and error token.
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=60035bdefe5241548b41c3ac236b1c9feb9bf182;p=thirdparty%2Fgcc.git

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 --git a/gcc/m2/gm2-compiler/M2Quads.mod b/gcc/m2/gm2-compiler/M2Quads.mod
index 88a7e7a6aeb8..cbd4a9753744 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 ad4777ced58e..7cb97421956a 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 29ef066be829..2e4f8d3ebab2 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)
 {