mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2025-01-23 09:10:43 +00:00
Code Issues Releases Activity

fix build with gnat-3.13p.

Browse Source 
PR:		26262
Submitted by:	John Merryweather Cooper <jmcoopr@webmail.bmi.net>
This commit is contained in:
FUJISHIMA Satsuki 2001-06-16 18:46:36 +00:00
parent c99e82c73a
commit 59afa827d5
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=44074
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lang/jgnat/files/patch-ae Normal file
View File

@ -0,0 +1,23 @@
--- jvm_file.adb.orig Tue Jan 19 15:26:06 1999
+++ jvm_file.adb Thu Mar 8 10:03:10 2001
@@ -31,6 +31,9 @@
with JVM_Walk;
with Osint;
+-- add following to get rid of compile bug
+with Ada.Characters.Handling;
+
package body JVM_File is
use Utf8;
@@ -417,7 +420,9 @@
if U in 16#01# .. 16#7F# then
Add (T, U);
else
- Append (T, Wide_Character (C));
+
+ -- Change to To_Wide_Character from Ada.Characters.Handling
+ Append (T, Ada.Characters.Handling.To_Wide_Character (C));
end if;
end Append;