modula-2: Handle pass '-v' option to the compiler.
Checks
Commit Message
Tested on x86-64-darwin21.
OK for trunk?
Iain
--- 8< ---
Somehow this setting had been missed, and we really need the verbose
flag to enable useful debug output.
Signed-off-by: Iain Sandoe <iain@sandoe.co.uk>
gcc/m2/ChangeLog:
* gm2-gcc/m2options.h (M2Options_SetVerbose): Export the
function.
* gm2-lang.cc: Handle OPT_v, passing it to the compiler.
* lang-specs.h: Pass -v to cc1gm2.
---
gcc/m2/gm2-gcc/m2options.h | 1 +
gcc/m2/gm2-lang.cc | 3 +++
gcc/m2/lang-specs.h | 2 +-
3 files changed, 5 insertions(+), 1 deletion(-)
Comments
Iain Sandoe <iains.gcc@gmail.com> writes:
> Tested on x86-64-darwin21.
> OK for trunk?
> Iain
yes LGTM,
thanks,
Gaius
> --- 8< ---
>
> Somehow this setting had been missed, and we really need the verbose
> flag to enable useful debug output.
>
> Signed-off-by: Iain Sandoe <iain@sandoe.co.uk>
>
> gcc/m2/ChangeLog:
>
> * gm2-gcc/m2options.h (M2Options_SetVerbose): Export the
> function.
> * gm2-lang.cc: Handle OPT_v, passing it to the compiler.
> * lang-specs.h: Pass -v to cc1gm2.
> ---
> gcc/m2/gm2-gcc/m2options.h | 1 +
> gcc/m2/gm2-lang.cc | 3 +++
> gcc/m2/lang-specs.h | 2 +-
> 3 files changed, 5 insertions(+), 1 deletion(-)
>
> diff --git a/gcc/m2/gm2-gcc/m2options.h b/gcc/m2/gm2-gcc/m2options.h
> index 4b32c911b09..beaa460ffa9 100644
> --- a/gcc/m2/gm2-gcc/m2options.h
> +++ b/gcc/m2/gm2-gcc/m2options.h
> @@ -106,6 +106,7 @@ EXTERN int M2Options_GetCpp (void);
> EXTERN int M2Options_GetM2g (void);
> EXTERN void M2Options_SetM2g (int value);
> EXTERN void M2Options_SetLowerCaseKeywords (int value);
> +EXTERN void M2Options_SetVerbose (int value);
> EXTERN void M2Options_SetUnusedVariableChecking (int value);
> EXTERN void M2Options_SetUnusedParameterChecking (int value);
> EXTERN void M2Options_SetStrictTypeChecking (int value);
> diff --git a/gcc/m2/gm2-lang.cc b/gcc/m2/gm2-lang.cc
> index 49f93901d3c..073d1dd55db 100644
> --- a/gcc/m2/gm2-lang.cc
> +++ b/gcc/m2/gm2-lang.cc
> @@ -451,6 +451,9 @@ gm2_langhook_handle_option (
> case OPT_save_temps_:
> M2Options_SetSaveTempsDir (arg);
> return 1;
> + case OPT_v:
> + M2Options_SetVerbose (value);
> + return 1;
> default:
> if (insideCppArgs)
> {
> diff --git a/gcc/m2/lang-specs.h b/gcc/m2/lang-specs.h
> index 0a34b0bc6d7..bf882649b21 100644
> --- a/gcc/m2/lang-specs.h
> +++ b/gcc/m2/lang-specs.h
> @@ -34,6 +34,6 @@ along with GCC; see the file COPYING3. If not see
> {"@modula-2",
> "cc1gm2 " M2CPP
> " %(cc1_options) %{B*} %{c*} %{+e*} %{I*} "
> - " %{i*} %{save-temps*} "
> + " %{i*} %{save-temps*} %{v} "
> " %i %{!fsyntax-only:%(invoke_as)}",
> 0, 0, 0},
@@ -106,6 +106,7 @@ EXTERN int M2Options_GetCpp (void);
EXTERN int M2Options_GetM2g (void);
EXTERN void M2Options_SetM2g (int value);
EXTERN void M2Options_SetLowerCaseKeywords (int value);
+EXTERN void M2Options_SetVerbose (int value);
EXTERN void M2Options_SetUnusedVariableChecking (int value);
EXTERN void M2Options_SetUnusedParameterChecking (int value);
EXTERN void M2Options_SetStrictTypeChecking (int value);
@@ -451,6 +451,9 @@ gm2_langhook_handle_option (
case OPT_save_temps_:
M2Options_SetSaveTempsDir (arg);
return 1;
+ case OPT_v:
+ M2Options_SetVerbose (value);
+ return 1;
default:
if (insideCppArgs)
{
@@ -34,6 +34,6 @@ along with GCC; see the file COPYING3. If not see
{"@modula-2",
"cc1gm2 " M2CPP
" %(cc1_options) %{B*} %{c*} %{+e*} %{I*} "
- " %{i*} %{save-temps*} "
+ " %{i*} %{save-temps*} %{v} "
" %i %{!fsyntax-only:%(invoke_as)}",
0, 0, 0},