Remove unused procedures, parameters and warnings about casts.

2021-08-18  Gaius Mulley  <gaius.mulley@southwales.ac.uk>

gcc/m2/ChangeLog:

	* gm2-compiler/M2Options.def (SetMakeall): Commented out.
	(SetMakeall0) Commented out.  (SetIncludePath) Commented out.
	* gm2-compiler/M2Options.mod: (SetMakeall): Commented out.
	(SetMakeall0) Commented out.  (SetIncludePath) Commented out.
	* gm2-libs/SArgs.mod (GetArg): Cast ArgV to PtrToChar before
	adding the offset.  Removes a warning from the resultant C/C++ code.

gm2tools/ChangeLog:

	* Makefile.in: (Rebuilt).

Signed-off-by: Gaius Mulley <gaius.mulley@southwales.ac.uk>

gcc/m2/gm2-compiler/M2Options.def

@@ -36,7 +36,7 @@ FROM m2linemap IMPORT location_t ;
 
 EXPORT QUALIFIED SetReturnCheck, SetNilCheck, SetCaseCheck,
                  SetCheckAll, SetVerboseUnbounded, SetQuiet, SetCpp, GetCpp,
-                 SetMakeall, SetMakeall0, SetIncludePath, SetAutoInit,
+                 (* SetMakeall, SetMakeall0, SetIncludePath, *) SetAutoInit,
                  SetUnboundedByReference,
                  SetSearchPath, SetISO, SetPIM, SetPIM2, SetPIM3, SetPIM4,
                  SetPositiveModFloor, SetCompilerDebugging, SetExceptions,
@@ -264,23 +264,23 @@ PROCEDURE SetLowerCaseKeywords (value: BOOLEAN) : BOOLEAN ;
 
 (*
    SetMakeall -
-*)
 
 PROCEDURE SetMakeall (value: BOOLEAN) : BOOLEAN ;
+*)
 
 
 (*
    SetMakeall0 -
-*)
 
 PROCEDURE SetMakeall0 (value: BOOLEAN) : BOOLEAN ;
+*)
 
 
 (*
    SetIncludePath -
-*)
 
 PROCEDURE SetIncludePath (arg: ADDRESS) : BOOLEAN ;
+*)
 
 
 (*

gcc/m2/gm2-compiler/M2Options.mod

@@ -426,34 +426,34 @@ END SetVerbose ;
 
 (*
    SetMakeall -
-*)
 
 PROCEDURE SetMakeall (value: BOOLEAN) : BOOLEAN ;
 BEGIN
    (* value is unused *)
    RETURN( TRUE )
 END SetMakeall ;
+*)
 
 
 (*
    SetMakeall0 -
-*)
 
 PROCEDURE SetMakeall0 (value: BOOLEAN) : BOOLEAN ;
 BEGIN
    (* value is unused *)
    RETURN( TRUE )
 END SetMakeall0 ;
+*)
 
 
 (*
    SetIncludePath -
-*)
 
 PROCEDURE SetIncludePath (arg: ADDRESS) : BOOLEAN ;
 BEGIN
    RETURN( TRUE )
 END SetIncludePath ;
+*)
 
 
 (*
@@ -987,11 +987,11 @@ END SetWholeValueCheck ;
 
 PROCEDURE SetWall (value: BOOLEAN) ;
 BEGIN
-   UnusedVariableChecking  := TRUE ;
-   UnusedParameterChecking := TRUE ;
-   PedanticCast := TRUE ;
-   PedanticParamNames := TRUE ;
-   StudentChecking := TRUE
+   UnusedVariableChecking  := value ;
+   UnusedParameterChecking := value ;
+   PedanticCast := value ;
+   PedanticParamNames := value ;
+   StudentChecking := value
 END SetWall ;
 
 

gcc/m2/gm2-libs/SArgs.mod

@@ -64,7 +64,7 @@ BEGIN
    IF i < ArgC
    THEN
       (* ppc := ADDRESS (VAL (PtrToPtrToChar, ArgV) + (i * CARDINAL (TSIZE(PtrToChar)))) ; *)
-      ppc := ADDRESS (ArgV + (i*TSIZE(PtrToChar))) ;
+      ppc := ADDRESS (PtrToChar (ArgV) + (i * TSIZE (PtrToChar))) ;
       s   := InitStringCharStar (ppc^) ;
 
       RETURN TRUE

gm2tools/Makefile.in

@@ -639,8 +639,8 @@ distclean-generic:
 maintainer-clean-generic:
 	@echo "This command is intended for maintainers to use"
 	@echo "it deletes files that may require special tools to rebuild."
-@NATIVE_FALSE@uninstall-local:
 @NATIVE_FALSE@install-exec-local:
+@NATIVE_FALSE@uninstall-local:
 clean: clean-am
 
 clean-am: clean-binPROGRAMS clean-generic mostlyclean-am