From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 3822 invoked by alias); 19 Aug 2002 12:19:01 -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 3815 invoked from network); 19 Aug 2002 12:19:01 -0000 Received: from unknown (HELO cerbere.u-strasbg.fr) (130.79.112.250) by sources.redhat.com with SMTP; 19 Aug 2002 12:19:01 -0000 Received: from laocoon (laocoon.u-strasbg.fr [130.79.112.72]) by cerbere.u-strasbg.fr (Postfix) with ESMTP id DF839563 for ; Mon, 19 Aug 2002 14:25:19 +0200 (CEST) Message-Id: <4.2.0.58.20020819140438.00ab64d0@ics.u-strasbg.fr> X-Sender: muller@ics.u-strasbg.fr Date: Mon, 19 Aug 2002 05:19:00 -0000 To: gdb-patches@sources.redhat.com From: Pierre Muller Subject: [RFA] Add support for TYPE_CODE_FLAGS in fortran_val_print. Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" X-SW-Source: 2002-08/txt/msg00544.txt.bz2 As already said in the previous mail, fortran language support is currently borken for i386 flags printing. Writing this mail, I noticed that I didn't mention the addition of the "c-nag.h" include in my previous patch, is the following ChangeLog entry better? The ada source wil probably not suffer from the same problem as the default case is to call the c_val_print function. ChangeLog entry 2002-08-19 Pierre Muller * f-valprint.c: Add "c-lang.h" dependency needed for TYPE_CODE_FLAGS support. (fortran_val_print): Add support for TYPE_CODE_FLAGS. $ cvs diff -u -p f-valprint.c Index: f-valprint.c =================================================================== RCS file: /cvs/src/src/gdb/f-valprint.c,v retrieving revision 1.6 diff -u -p -r1.6 f-valprint.c --- f-valprint.c 7 Mar 2001 02:57:08 -0000 1.6 +++ f-valprint.c 19 Aug 2002 12:12:24 -0000 @@ -30,6 +30,7 @@ #include "valprint.h" #include "language.h" #include "f-lang.h" +#include "c-lang.h" #include "frame.h" #include "gdbcore.h" #include "command.h" @@ -364,6 +365,11 @@ f_val_print (struct type *type, char *va CHECK_TYPEDEF (type); switch (TYPE_CODE (type)) { + + case TYPE_CODE_FLAGS: + return c_val_print (type, valaddr, embedded_offset, address, stream, + format, deref_ref, recurse, pretty); + case TYPE_CODE_STRING: f77_get_dynamic_length_of_aggregate (type); LA_PRINT_STRING (stream, valaddr, TYPE_LENGTH (type), 1, 0); 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