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__stdcnf.adb,v 1.0 2024/12/05 15:00:00 dkazankov Exp $

Fix some compilation warnings

--- Dist/xe_stdcnf.adb.orig	2007-11-26 14:06:30.000000000 +0200
+++ Dist/xe_stdcnf.adb
@@@@ -161,6 +161,8 @@@@
          Type_Sloc    => Null_Location,
          Type_Node    => Host_Function_Type_Node);
 
+      pragma Warnings (Off, "modified by call");
+
       Declare_Type_Component
         (Type_Node        => Host_Function_Type_Node,
          Component_Name   => Id ("partition_name"),
@@@@ -734,6 +736,8 @@@@
          Null_Location,
          Parameter_Node);
 
+      pragma Warnings (On, "modified by call");
+
    end Initialize;
 
 end XE_Stdcnf;
@