From 508bd102b08ab72da3a73511c7b7b400f40b48e7 Mon Sep 17 00:00:00 2001
From: Abou Al Montacir <abou.almontacir@sfr.fr>
Date: Wed, 15 Nov 2023 22:35:17 +0100
Subject: [PATCH] gir2pas: Added code to disable warning about non ascending
 enumeration values.

FPC does warn about non strictly ascending enumeration values.
Unfortunately, some GTK enum identifiers share the same value and this
warning can safely be ignored. We shut it up.
---
 .../girpascalwritertypes.pas => girpascalwritertypes.pas         | 1 +
 1 file changed, 1 insertion(+)
 rename tools/gir2pascal/girpascalwritertypes.pas => girpascalwritertypes.pas (99%)

diff --git a/tools/gir2pascal/girpascalwritertypes.pas b/girpascalwritertypes.pas
similarity index 99%
rename from tools/gir2pascal/girpascalwritertypes.pas
rename to girpascalwritertypes.pas
index 2055d85fba..3f87ef4885 100644
--- a/tools/gir2pascal/girpascalwritertypes.pas
+++ b/girpascalwritertypes.pas
@@ -2639,6 +2639,7 @@ begin
     for i := 0 to Libs.Count-1 do
       Str.WriteString(IndentText('{$LINKLIB '+Libs.Strings[i]+'}',0,1));
     Str.WriteString(IndentText('{$endif}',0,1));
+	Str.WriteString(IndentText('{$WARN 3031 off : Values in enumeration types have to be ascending}', 0, 1));
    end;
 
   Libs.Free;