blob: c6c00fe428a4d25d1a50fbef40a2fd5565494cca (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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;
|
