head	1.1;
access;
symbols
	pkgsrc-2026Q1:1.1.0.6
	pkgsrc-2026Q1-base:1.1
	pkgsrc-2025Q4:1.1.0.4
	pkgsrc-2025Q4-base:1.1
	pkgsrc-2025Q3:1.1.0.2
	pkgsrc-2025Q3-base:1.1;
locks; strict;
comment	@-- @;


1.1
date	2025.07.11.06.17.38;	author dkazankov;	state Exp;
branches;
next	;
commitid	02Wpd5pEvqWwdi2G;


desc
@@


1.1
log
@devel/ada-gnat-glade: Add new package 13.0.0

GLADE provides an implementation of Annex E (Distributed Systems)
of the ISO standard ISO/IEC 8652:1995/COR1:2000 for GNAT
@
text
@$NetBSD: patch-Dist_xe__parse.adb,v 1.0 2024/12/05 15:00:00 dkazankov Exp $

Fix some compilation warnings
https://github.com/reznikmm/garlic/commit/b738f20db65add57f817f952a625df73bef0710e

--- Dist/xe_parse.adb.orig	2007-11-26 14:06:30.000000000 +0200
+++ Dist/xe_parse.adb
@@@@ -973,6 +973,7 @@@@
       end if;
 
       --  Declare <X> as a formal parameter.
+      pragma Warnings (Off, "modified by call");
 
       Declare_Subprogram_Parameter
         (Parameter_Name,
@@@@ -1007,6 +1008,7 @@@@
          Function_Node,
          Para_Type_Sloc,
          Parameter_Node);
+      pragma Warnings (On, "modified by call");
 
       T_Semicolon;
    end P_Function_Declaration;
@@@@ -1159,7 +1161,8 @@@@
          --  of the predefined type Partition_Type_Node.
 
          if Partition_Node = Null_Variable or else
-           Get_Variable_Type (Partition_Node) /= Partition_Type_Node then
+           Get_Variable_Type (Partition_Node) /= Partition_Type_Node
+         then
             Write_Conflict_Error (Partition_Sloc, Partition_Name);
          end if;
 
@@@@ -1952,8 +1955,7 @@@@
 
             --  If Named, use Formal_Name to return format parameter node.
             when Named =>
-               if Get_Node_Name
-                 (Node_Id (Parameter_Node)) = Formal_Name then
+               if Get_Node_Name (Node_Id (Parameter_Node)) = Formal_Name then
                   return;
                end if;
 
@@@@ -2128,7 +2130,8 @@@@
    begin
       Search_Declaration (Variable_Name, Node);
       if Node /= Null_Node  and then
-         not Is_Variable (Node) then
+         not Is_Variable (Node)
+      then
          Node := Null_Node;
       end if;
       Variable_Node := Variable_Id (Node);
@