From: Gaius Mulley <gaiusmod2@gmail.com>
Date: Mon, 6 Feb 2023 21:14:32 +0000 (+0000)
Subject: Modula2 meets clang [PR108135]
X-Git-Tag: basepoints/gcc-14~1484
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d5f933d2c046478c05b463be23021875d08dc647;p=thirdparty%2Fgcc.git

Modula2 meets clang [PR108135]

Remove unused function (and build warnings).

gcc/m2/ChangeLog:

	* gm2-compiler/M2Search.mod (DSdbEnter): Comment out.
	(DSdbExit): Comment out.

	PR modula2/108135

Signed-off-by: Gaius Mulley <gaiusmod2@gmail.com>
---

diff --git a/gcc/m2/gm2-compiler/M2Search.mod b/gcc/m2/gm2-compiler/M2Search.mod
index cc61ebfb3539..9c78c800f6f6 100644
--- a/gcc/m2/gm2-compiler/M2Search.mod
+++ b/gcc/m2/gm2-compiler/M2Search.mod
@@ -81,16 +81,18 @@ END doDSdbExit ;
                doDSsbEnter when debugging garbage collection at runtime.
 *)
 
+(*
 PROCEDURE DSdbEnter ;
 BEGIN
 END DSdbEnter ;
-
+*)
 
 (*
    DSdbExit - dummy nop exit code which the preprocessor replaces by
               doDSsbExit when debugging garbage collection at runtime.
 *)
 
+(*
 PROCEDURE DSdbExit (s: String) ;
 BEGIN
    IF GarbageDebugging
@@ -98,6 +100,7 @@ BEGIN
       Assert (s # NIL)
    END
 END DSdbExit ;
+*)
 
 
 (*