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__scan.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_scan.adb.orig	2007-11-26 14:06:30.000000000 +0200
+++ Dist/xe_scan.adb
@@@@ -214,7 +214,8 @@@@
                      if Buffer (Scan_Ptr) = LF or else
                         Buffer (Scan_Ptr) = FF or else
                         Buffer (Scan_Ptr) = CR or else
-                        Buffer (Scan_Ptr) = VT then
+                        Buffer (Scan_Ptr) = VT
+                     then
                         New_Line;
                         exit;
                      elsif Buffer (Scan_Ptr) = EOF then
@@@@ -426,8 +427,6 @@@@
    procedure Write_Location
      (Where   : Location_Type) is
 
-      use ASCII;
-
    begin
       Write_Name (Configuration_File_Name);
       Write_Str (":");
@