From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 10408 invoked by alias); 29 Sep 2003 17:35:37 -0000 Mailing-List: contact gdb-patches-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sources.redhat.com Received: (qmail 10320 invoked from network); 29 Sep 2003 17:35:35 -0000 Received: from unknown (HELO elmo.streamline) (212.103.239.121) by sources.redhat.com with SMTP; 29 Sep 2003 17:35:35 -0000 Received: from elmo.streamline (localhost.localdomain [127.0.0.1]) by elmo.streamline (8.12.8/8.12.8) with ESMTP id h8THZILV012294 for ; Mon, 29 Sep 2003 18:35:18 +0100 Received: (from david@localhost) by elmo.streamline (8.12.8/8.12.8/Submit) id h8THZHN6012292 for gdb-patches@sources.redhat.com; Mon, 29 Sep 2003 18:35:17 +0100 X-Authentication-Warning: elmo.streamline: david set sender to david@streamline-computing.com using -f Date: Mon, 29 Sep 2003 17:35:00 -0000 From: David Lecomber To: gdb-patches@sources.redhat.com Subject: Re: Large array printing patch for Fortran Message-ID: <20030929173517.GA12280@streamline-computing.com> References: <20030910143536.GA23943@streamline-computing.com> <20030915155834.GA8599@nevyn.them.org> <20030915195058.GA12113@streamline-computing.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline In-Reply-To: <20030915195058.GA12113@streamline-computing.com> User-Agent: Mutt/1.4.1i X-SW-Source: 2003-09/txt/msg00631.txt.bz2 This patch sets the formatting correctly in the patch I previously applied. 2003-09-29 David Lecomber * f-valprint.c: Reformatting Index: f-valprint.c =================================================================== RCS file: /cvs/src/src/gdb/f-valprint.c,v retrieving revision 1.18 diff -u -p -r1.18 f-valprint.c --- f-valprint.c 16 Sep 2003 18:56:35 -0000 1.18 +++ f-valprint.c 29 Sep 2003 17:31:59 -0000 @@ -276,6 +276,7 @@ f77_create_arrayprint_offset_tbl (struct /* Actual function which prints out F77 arrays, Valaddr == address in the superior. Address == the address in the inferior. */ + static void f77_print_array_1 (int nss, int ndimensions, struct type *type, char *valaddr, CORE_ADDR address, struct ui_file *stream, int format, @@ -295,13 +296,13 @@ f77_print_array_1 (int nss, int ndimensi stream, format, deref_ref, recurse, pretty, elts); fprintf_filtered (stream, ") "); } - if (*elts >= print_max && i < F77_DIM_SIZE (nss)) { + if (*elts >= print_max && i < F77_DIM_SIZE (nss)) fprintf_filtered (stream, "..."); - } } else { - for (i = 0; (i < F77_DIM_SIZE (nss) && (*elts) < print_max); i++, (*elts)++) + for (i = 0; i < F77_DIM_SIZE (nss) && (*elts) < print_max; + i++, (*elts)++) { val_print (TYPE_TARGET_TYPE (type), valaddr + i * F77_DIM_OFFSET (ndimensions), @@ -312,7 +313,7 @@ f77_print_array_1 (int nss, int ndimensi if (i != (F77_DIM_SIZE (nss) - 1)) fprintf_filtered (stream, ", "); - if ((( *elts) == print_max - 1) && (i != (F77_DIM_SIZE (nss) - 1))) + if ((*elts == print_max - 1) && (i != (F77_DIM_SIZE (nss) - 1))) fprintf_filtered (stream, "..."); } }