public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc(refs/users/gaius/heads/devel/modula-2)] Remove unused procedures, parameters and warnings about casts.
@ 2021-09-02 21:05 Gaius Mulley
0 siblings, 0 replies; only message in thread
From: Gaius Mulley @ 2021-09-02 21:05 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:9665fea225d6c53f629694037d3bbd411613e5bd
commit 9665fea225d6c53f629694037d3bbd411613e5bd
Author: Gaius Mulley <gaius.mulley@southwales.ac.uk>
Date: Thu Sep 2 22:02:48 2021 +0100
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>
Diff:
---
gcc/m2/gm2-compiler/M2Options.def | 8 ++++----
gcc/m2/gm2-compiler/M2Options.mod | 16 ++++++++--------
gcc/m2/gm2-libs/SArgs.mod | 2 +-
gm2tools/Makefile.in | 2 +-
4 files changed, 14 insertions(+), 14 deletions(-)
diff --git a/gcc/m2/gm2-compiler/M2Options.def b/gcc/m2/gm2-compiler/M2Options.def
index b6dc1f7f51f..f7dcb3d6fff 100644
--- a/gcc/m2/gm2-compiler/M2Options.def
+++ b/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 ;
+*)
(*
diff --git a/gcc/m2/gm2-compiler/M2Options.mod b/gcc/m2/gm2-compiler/M2Options.mod
index a26435d9d1f..36d7e3f488f 100644
--- a/gcc/m2/gm2-compiler/M2Options.mod
+++ b/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 ;
diff --git a/gcc/m2/gm2-libs/SArgs.mod b/gcc/m2/gm2-libs/SArgs.mod
index 10c06f7dce0..3f8bcaebd45 100644
--- a/gcc/m2/gm2-libs/SArgs.mod
+++ b/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
diff --git a/gm2tools/Makefile.in b/gm2tools/Makefile.in
index c9845041b2c..af4f623a5ca 100644
--- a/gm2tools/Makefile.in
+++ b/gm2tools/Makefile.in
@@ -647,8 +647,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
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2021-09-02 21:05 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-09-02 21:05 [gcc(refs/users/gaius/heads/devel/modula-2)] Remove unused procedures, parameters and warnings about casts 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).