head	1.1;
access;
symbols
	pkgsrc-2026Q2:1.1.0.8
	pkgsrc-2026Q2-base:1.1
	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-Garlic_s-parint.adb,v 1.0 2024/12/05 15:00:00 dkazankov Exp $

Fix compilation error for caller stubs
https://github.com/reznikmm/garlic/commit/97a0ea7e59e509d1328dc6287c432861a9044561
Fix some compilation warnings
https://github.com/reznikmm/garlic/commit/b738f20db65add57f817f952a625df73bef0710e

--- Garlic/s-parint.adb.orig	2007-11-26 15:10:13.000000000 +0200
+++ Garlic/s-parint.adb
@@@@ -562,6 +562,7 @@@@
 
       Name : String := RCI_Name;
       Unit : Unit_Id;
+      Initialized : Boolean := False;
 
       -----------------------------
       -- Get_Active_Partition_ID --
@@@@ -571,6 +572,11 @@@@
          Partition : Partition_ID;
          Error     : aliased Error_Type;
       begin
+         if not Initialized then
+            Initialized := True;
+            To_Lower (Name);
+            Unit := Get_Unit_Id (Name);
+         end if;
          Get_Partition (Unit, Partition, Error);
          if Found (Error) then
             Raise_Communication_Error (Error'Access);
@@@@ -586,6 +592,11 @@@@
          Receiver : Unsigned_64;
          Error    : aliased Error_Type;
       begin
+         if not Initialized then
+            Initialized := True;
+            To_Lower (Name);
+            Unit := Get_Unit_Id (Name);
+         end if;
          Get_Receiver (Unit, Receiver, Error);
          if Found (Error) then
             Raise_Communication_Error (Error'Access);
@@@@ -593,9 +604,6 @@@@
          return Receiver;
       end Get_RCI_Package_Receiver;
 
-   begin
-      To_Lower (Name);
-      Unit := Get_Unit_Id (Name);
    end RCI_Locator;
 
    ---------
@@@@ -622,7 +630,8 @@@@
       while Caller /= null loop
          D ("Check " & Caller.Name.all & " version consistency");
          if Different (Caller.Version.all,
-                       Get_Unit_Version (Caller.Name.all, Caller.RCI)) then
+                       Get_Unit_Version (Caller.Name.all, Caller.RCI))
+         then
 
             --  If not boot partition, then terminate without waiting for
             --  boot partition request.
@