From f85760f00a24e0adeb4d1e54ed7991287fa40387 Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 1 Jul 2024 18:34:10 +0300
Subject: [PATCH] Avoid compilation warnings

* src/igc.c (Figc_info): Shut up compiler warnings.

* lisp/emacs-lisp/igc.el (igc-stats): Use 'forward-line'.
---
 lisp/emacs-lisp/igc.el | 3 ++-
 src/igc.c              | 5 +++++
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/igc.el b/lisp/emacs-lisp/igc.el
index 67c7169d5cf..4523ed43994 100644
--- a/lisp/emacs-lisp/igc.el
+++ b/lisp/emacs-lisp/igc.el
@@ -130,7 +130,8 @@ the changes to snapshot A. See the modes's help."
                                           0
                                         (abs (/ bytes n)))))))
 	(sort-lines nil (point-min) (point-max)))
-      (goto-line old-line)))
+      (goto-char (point-min))
+      (forward-line (1- old-line))))
   (display-buffer "*igc*"))
 
 (defun igc--roots-diff (i1 i2)
diff --git a/src/igc.c b/src/igc.c
index 1d884e422bd..46117fcaf9f 100644
--- a/src/igc.c
+++ b/src/igc.c
@@ -3794,6 +3794,9 @@ make_entry (const char *s, intmax_t n, intmax_t bytes)
   return list3 (build_string (s), make_int (n), make_int (bytes));
 }
 
+#pragma GCC diagnostic push
+#pragma GCC diagnostic ignored "-Wsuggest-attribute=noreturn"
+
 DEFUN ("igc-info", Figc_info, Sigc_info, 0, 0, 0, doc : /* */)
   (void)
 {
@@ -3830,6 +3833,8 @@ DEFUN ("igc-info", Figc_info, Sigc_info, 0, 0, 0, doc : /* */)
   return result;
 }
 
+#pragma GCC diagnostic pop
+
 DEFUN ("igc--roots", Figc__roots, Sigc__roots, 0, 0, 0, doc : /* */)
   (void)
 {