From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gdb-patches-return-14996-listarch-gdb-patches=sourceware.cygnus.com@sources.redhat.com>
Received: (qmail 16000 invoked by alias); 2 May 2002 18:08:59 -0000
Mailing-List: contact gdb-patches-help@sources.redhat.com; run by ezmlm
Precedence: bulk
List-Subscribe: <mailto:gdb-patches-subscribe@sources.redhat.com>
List-Archive: <http://sources.redhat.com/ml/gdb-patches/>
List-Post: <mailto:gdb-patches@sources.redhat.com>
List-Help: <mailto:gdb-patches-help@sources.redhat.com>, <http://sources.redhat.com/ml/#faqs>
Sender: gdb-patches-owner@sources.redhat.com
Received: (qmail 15940 invoked from network); 2 May 2002 18:08:57 -0000
Received: from unknown (HELO cygnus.com) (205.180.83.203)
  by sources.redhat.com with SMTP; 2 May 2002 18:08:57 -0000
Received: from redhat.com (reddwarf.sfbay.redhat.com [172.16.24.50])
	by runyon.cygnus.com (8.8.7-cygnus/8.8.7) with ESMTP id LAA15077;
	Thu, 2 May 2002 11:08:53 -0700 (PDT)
Message-ID: <3CD17DBF.4EFF771A@redhat.com>
Date: Thu, 02 May 2002 11:08:00 -0000
From: Michael Snyder <msnyder@redhat.com>
Organization: Red Hat, Inc.
X-Accept-Language: en
MIME-Version: 1.0
To: Pierre Muller <muller@cerbere.u-strasbg.fr>
CC: gdb-patches@sources.redhat.com
Subject: Re: [PATCH] Use TYPE_CODE_CHAR for pascal char type
References: <4.2.0.58.20020502131908.01c96f88@ics.u-strasbg.fr>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-SW-Source: 2002-05/txt/msg00044.txt.bz2

Pierre Muller wrote:
> 
> The patch below is necessary, because
> due to some recent GDB change, pascal
> chars where not displayed as characters anymore.

OK, seems reasonable.

> 
> 2002-05-02  Pierre Muller  <muller@ics.u-strasbg.fr>
> 
>         * p-lang.c (pascal_create_fundamental_type): Use TYPE_CODE_CHAR
>         for fondamental pascal 'char' type.
> 
> Index: p-lang.c
> ===================================================================
> RCS file: /cvs/src/src/gdb/p-lang.c,v
> retrieving revision 1.6
> diff -u -p -r1.6 p-lang.c
> --- p-lang.c    2 May 2002 11:18:07 -0000       1.6
> +++ p-lang.c    2 May 2002 11:21:12 -0000
> @@ -293,7 +293,7 @@ pascal_create_fundamental_type (struct o
>                          0, "void", objfile);
>         break;
>       case FT_CHAR:
> -      type = init_type (TYPE_CODE_INT,
> +      type = init_type (TYPE_CODE_CHAR,
>                          TARGET_CHAR_BIT / TARGET_CHAR_BIT,
>                          0, "char", objfile);
>         break;
> 
> Pierre Muller
> Institut Charles Sadron
> 6,rue Boussingault
> F 67083 STRASBOURG CEDEX (France)
> mailto:muller@ics.u-strasbg.fr
> Phone : (33)-3-88-41-40-07  Fax : (33)-3-88-41-40-99