Skip site navigation (1)Skip section navigation (2)
Date:      Sat, 31 Mar 2001 14:14:05 -0800 (PST)
From:      jmcoopr@webmail.bmi.net
To:        FreeBSD-gnats-submit@freebsd.org
Subject:   ports/26256: jgnat-1.0p needs a patch to compile with gnat-3.13p 
Message-ID:  <200103312214.f2VME5Y05644@johncoop.MSHOME>

next in thread | raw e-mail | index | archive | help

>Number:         26256
>Category:       ports
>Synopsis:       jgnat-1.0p has a semantic error that prevents compilation
>Confidential:   no
>Severity:       serious
>Priority:       high
>Responsible:    freebsd-ports
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Sat Mar 31 14:20:03 PST 2001
>Closed-Date:
>Last-Modified:
>Originator:     John Merryweather Cooper
>Release:        FreeBSD 4.3-RC i386
>Organization:
>Environment:
System: FreeBSD johncoop.MSHOME 4.3-RC FreeBSD 4.3-RC #11: Sat Mar 31 01:58:40 PST 2001 jmcoopr@johncoop.MSHOME:/usr/obj/usr/src/sys/JOHNCOOP i386


	
>Description:
	jgnat-1.0p was designed with gnat-3.12p.  gnat-3.12p would
	(erroneously) allow a cast from/to a wide-character type to/from a
	character type.  gnat-3.13p fixed this bug, but now jgnat-1.0p
	will not compile under gnat-3.13p.  I have contacted the listed
	maintainer and cc'ed freebsd-stable, but with no response.  I
	have a patch (correcting the semantic error) that will allow
	jgnat-1.0p to compile and install (delivered in previous
	referenced message to the listed maintainer and to freebsd-stable)
	but with no response.

	Is a new maintainer needed?

>How-To-Repeat:
	just try to make/install jgnat . . . :)

>Fix:

	The 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;
 
>Release-Note:
>Audit-Trail:
>Unformatted:

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




Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?200103312214.f2VME5Y05644>