From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gdb-patches-return-40229-listarch-gdb-patches=sources.redhat.com@sources.redhat.com>
Received: (qmail 24478 invoked by alias); 6 Jul 2005 08:31:05 -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 24381 invoked by uid 22791); 6 Jul 2005 08:30:54 -0000
Received: from ausmtp01.au.ibm.com (HELO ausmtp01.au.ibm.com) (202.81.18.186)
    by sourceware.org (qpsmtpd/0.30-dev) with ESMTP; Wed, 06 Jul 2005 08:30:53 +0000
Received: from sd0112e0.au.ibm.com (d23rh903.au.ibm.com [202.81.18.201])
	by ausmtp01.au.ibm.com (8.12.10/8.12.10) with ESMTP id j668XCil368672
	for <gdb-patches@sources.redhat.com>; Wed, 6 Jul 2005 18:33:14 +1000
Received: from d23av04.au.ibm.com (d23av04.au.ibm.com [9.190.250.237])
	by sd0112e0.au.ibm.com (8.12.10/NCO/VER6.6) with ESMTP id j668T6aB035540
	for <gdb-patches@sources.redhat.com>; Wed, 6 Jul 2005 18:33:28 +1000
Received: from d23av04.au.ibm.com (loopback [127.0.0.1])
	by d23av04.au.ibm.com (8.12.11/8.13.3) with ESMTP id j6686Rfm026025
	for <gdb-patches@sources.redhat.com>; Wed, 6 Jul 2005 18:06:27 +1000
Received: from [9.181.134.93] ([9.181.134.93])
	by d23av04.au.ibm.com (8.12.11/8.12.11) with ESMTP id j6686EV1025671;
	Wed, 6 Jul 2005 18:06:26 +1000
Date: Wed, 06 Jul 2005 08:31:00 -0000
From: Wu Zhou <woodzltc@cn.ibm.com>
To: Daniel Jacobowitz <drow@false.org>
cc: Nick Roberts <nickrob@snap.net.nz>, gdb-patches@sources.redhat.com
Subject: Re: PATCH: Start Fortran support for variable objects.
In-Reply-To: <20050703161706.GA13289@nevyn.them.org>
Message-ID: <Pine.LNX.4.63.0507061529150.13408@wks190384wss.cn.ibm.com>
References: <17091.4780.953681.620094@farnswood.snap.net.nz>
 <20050630131809.GB8241@nevyn.them.org> <17092.28833.284587.118362@farnswood.snap.net.nz>
 <Pine.LNX.4.63.0506300455390.11503@wks190384wss.cn.ibm.com>
 <17092.51062.559020.560618@farnswood.snap.net.nz> <20050703161706.GA13289@nevyn.them.org>
MIME-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
X-SW-Source: 2005-07/txt/msg00067.txt.bz2

On Sun, 3 Jul 2005, Daniel Jacobowitz wrote:

> On Fri, Jul 01, 2005 at 04:32:54PM +1200, Nick Roberts wrote:
> > So I should have done:
> > 
> > (top-gdb) p TYPE_LOW_BOUND(var->type->main_type->fields->type)
> > $1 = 1
> > (top-gdb) p TYPE_HIGH_BOUND(var->type->main_type->fields->type)
> > $2 = 4
> 
> Right - specifically, TYPE_LOW_BOUND (TYPE_INDEX_TYPE (var->type))
> is supposed to be the lower bound for an array.  Tricky.  It comes from
> read_subrange_type in dwarf2read.c for dwarf2.

Yes, it is tricky to me too.  Maybe it is better to change TYPE_INDEX_TYPE 
to TYPE_RANGE_TYPE.  This seems more obvious IMO.
 
- Wu Zhou