public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc r13-5719] Remove unused variables and procedures.
@ 2023-02-06 15:24 Gaius Mulley
0 siblings, 0 replies; only message in thread
From: Gaius Mulley @ 2023-02-06 15:24 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:7433747543195a4b936892d066b10026509512b7
commit r13-5719-g7433747543195a4b936892d066b10026509512b7
Author: Gaius Mulley <gaiusmod2@gmail.com>
Date: Mon Feb 6 15:24:06 2023 +0000
Remove unused variables and procedures.
Remove unused variables and procedures (and remove build
warning clutter).
gcc/m2/ChangeLog:
* gm2-compiler/M2Preprocess.mod (BaseName): Comment out.
* gm2-lang.cc (opt): Remove.
* gm2spec.cc (add_include): Remove.
(full_libraries): Remove.
(concat_option): Remove.
Signed-off-by: Gaius Mulley <gaiusmod2@gmail.com>
Diff:
---
gcc/m2/gm2-compiler/M2Preprocess.mod | 2 ++
gcc/m2/gm2-lang.cc | 1 -
gcc/m2/gm2spec.cc | 28 ----------------------------
3 files changed, 2 insertions(+), 29 deletions(-)
diff --git a/gcc/m2/gm2-compiler/M2Preprocess.mod b/gcc/m2/gm2-compiler/M2Preprocess.mod
index d63db35f938..d53228b4675 100644
--- a/gcc/m2/gm2-compiler/M2Preprocess.mod
+++ b/gcc/m2/gm2-compiler/M2Preprocess.mod
@@ -101,6 +101,7 @@ END GetFileName ;
Return basename.
*)
+(*
PROCEDURE BaseName (Path: String) : String ;
VAR
ext,
@@ -120,6 +121,7 @@ BEGIN
END ;
RETURN Dup (Slice(Path, basename, ext))
END BaseName ;
+*)
(*
MakeSaveTempsFileName - return a temporary file like
diff --git a/gcc/m2/gm2-lang.cc b/gcc/m2/gm2-lang.cc
index 999c57c1cfa..d9b63bee655 100644
--- a/gcc/m2/gm2-lang.cc
+++ b/gcc/m2/gm2-lang.cc
@@ -330,7 +330,6 @@ gm2_langhook_handle_option (
enum opt_code code = (enum opt_code)scode;
const struct cl_option *option = &cl_options[scode];
- const char *opt = (const char *)option->opt_text;
/* ignore file names. */
if (code == N_OPTS)
return 1;
diff --git a/gcc/m2/gm2spec.cc b/gcc/m2/gm2spec.cc
index bc93133243c..0645be9fe02 100644
--- a/gcc/m2/gm2spec.cc
+++ b/gcc/m2/gm2spec.cc
@@ -129,8 +129,6 @@ static const char *library_abbrev[maxlib]
-flibs=m2pim,m2iso respectively. This provides a match between
the dialect of Modula-2 and the library set. */
-static const char *add_include (const char *libpath, const char *library);
-
static bool seen_scaffold_static = false;
static bool seen_scaffold_dynamic = false;
static bool seen_scaffold_main = false;
@@ -150,7 +148,6 @@ static void append_arg (const struct cl_decoded_option *);
/* The new argument list will be built here. */
static unsigned int gm2_newargc;
static struct cl_decoded_option *gm2_new_decoded_options;
-static const char *full_libraries = NULL;
static const char *libraries = NULL; /* Abbreviated libraries. */
@@ -241,31 +238,6 @@ safe_strdup (const char *s)
return NULL;
}
-static char *
-concat_option (char *dest, const char *pre, const char *path, const char *post)
-{
- if (dest == NULL)
- {
- dest = (char *) xmalloc (strlen (pre) + strlen (path) + strlen (post) + 1);
- strcpy (dest, pre);
- strcat (dest, path);
- strcat (dest, post);
- return dest;
- }
- else
- {
- char *result = (char *) xmalloc (strlen (dest) + strlen (pre)
- + strlen (path) + strlen (post) + 1 + 1);
- strcpy (result, dest);
- strcat (result, " ");
- strcat (result, pre);
- strcat (result, path);
- strcat (result, post);
- free (dest);
- return result;
- }
-}
-
/* add_default_libs adds the -l option which is derived from the
libraries. */
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2023-02-06 15:24 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2023-02-06 15:24 [gcc r13-5719] Remove unused variables and procedures 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).