From: Tobias Burnus <tburnus@baylibre.com>
Date: Wed, 23 Oct 2024 10:25:00 +0000 (+0200)
Subject: Fortran: Minor follow-up cleanup to error.cc
X-Git-Tag: basepoints/gcc-16~4988
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=0ecc45a88d772268a3bd83af02759857da0826d4;p=thirdparty%2Fgcc.git

Fortran: Minor follow-up cleanup to error.cc

Follow up to r15-4268-g459c6018d2308d, which removed dead code,
but missing that terminal_width was only set but not used.

gcc/fortran/ChangeLog:

	* error.cc (terminal_width, gfc_get_terminal_width): Remove.
	(gfc_error_init_1): Do not call one to set the other.
---

diff --git a/gcc/fortran/error.cc b/gcc/fortran/error.cc
index 4e60b148a34c..b27cbede1645 100644
--- a/gcc/fortran/error.cc
+++ b/gcc/fortran/error.cc
@@ -39,8 +39,6 @@ static int suppress_errors = 0;
 
 static bool warnings_not_errors = false;
 
-static int terminal_width;
-
 /* True if the error/warnings should be buffered.  */
 static bool buffered_p;
 
@@ -141,21 +139,11 @@ gfc_query_suppress_errors (void)
 }
 
 
-/* Determine terminal width (for trimming source lines in output).  */
-
-static int
-gfc_get_terminal_width (void)
-{
-  return isatty (STDERR_FILENO) ? get_terminal_width () : INT_MAX;
-}
-
-
 /* Per-file error initialization.  */
 
 void
 gfc_error_init_1 (void)
 {
-  terminal_width = gfc_get_terminal_width ();
   gfc_buffer_error (false);
 }