From owner-cvs-all  Thu Mar  8 10:55:59 2001
Delivered-To: cvs-all@freebsd.org
Received: from johncoop.MSHOME (dsl-154.bmi.net [207.173.60.230])
	by hub.freebsd.org (Postfix) with ESMTP id B393B37B71C
	for <cvs-all@FreeBSD.org>; Thu,  8 Mar 2001 10:55:55 -0800 (PST)
	(envelope-from jmcoopr@webmail.bmi.net)
Received: from webmail.bmi.net (localhost [127.0.0.1])
	by johncoop.MSHOME (8.11.3/8.11.3) with ESMTP id f28ItcW39153;
	Thu, 8 Mar 2001 10:55:41 -0800 (PST)
	(envelope-from jmcoopr@webmail.bmi.net)
Message-ID: <3AA7D5A2.B96DAAAB@webmail.bmi.net>
Date: Thu, 08 Mar 2001 10:55:30 -0800
From: John Merryweather Cooper <jmcoopr@webmail.bmi.net>
X-Mailer: Mozilla 4.76 [en] (X11; U; Linux 2.2.12 i386)
X-Accept-Language: en
MIME-Version: 1.0
To: sam@inf.enst.fr, cvs-all@FreeBSD.org
Subject: Proposed patch to /usr/ports/jgnat so that jgnat-1.0p will build and 
 install
Content-Type: multipart/mixed;
 boundary="------------B6BA0D786ED89BC39343072D"
Sender: owner-cvs-all@FreeBSD.ORG
Precedence: bulk
X-Loop: FreeBSD.ORG

This is a multi-part message in MIME format.
--------------B6BA0D786ED89BC39343072D
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

I have noticed that with GNAT 3.13p, jgnat-1.0p will no longer build.
It fails with a compilation error in jvm_file.adb.  I have put together
a patch to jvm_file.adb which appears to fix this problem (see
attached).

Also, I note that if JAVA_HOME is defined to point to anything other
than the jdk 1.1.8 installation, the install will fail.  Clearing the
JAVA_HOME environment variable cures this problem.

jmc


--------------B6BA0D786ED89BC39343072D
Content-Type: text/plain; charset=us-ascii;
 name="jvm_file.adb.patch"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="jvm_file.adb.patch"

--- jvm_file.adb.old	Tue Jan 19 15:26:06 1999
+++ jvm_file.adb.new	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;
 

--------------B6BA0D786ED89BC39343072D--


To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe cvs-all" in the body of the message