119370Spst/* Support for printing Modula 2 values for GDB, the GNU debugger. 298944Sobrien Copyright 1986, 1988, 1989, 1991, 1992, 1996, 1998, 2000 398944Sobrien Free Software Foundation, Inc. 419370Spst 598944Sobrien This file is part of GDB. 619370Spst 798944Sobrien This program is free software; you can redistribute it and/or modify 898944Sobrien it under the terms of the GNU General Public License as published by 998944Sobrien the Free Software Foundation; either version 2 of the License, or 1098944Sobrien (at your option) any later version. 1119370Spst 1298944Sobrien This program is distributed in the hope that it will be useful, 1398944Sobrien but WITHOUT ANY WARRANTY; without even the implied warranty of 1498944Sobrien MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 1598944Sobrien GNU General Public License for more details. 1619370Spst 1798944Sobrien You should have received a copy of the GNU General Public License 1898944Sobrien along with this program; if not, write to the Free Software 1998944Sobrien Foundation, Inc., 59 Temple Place - Suite 330, 2098944Sobrien Boston, MA 02111-1307, USA. */ 2119370Spst 2219370Spst#include "defs.h" 2319370Spst#include "symtab.h" 2419370Spst#include "gdbtypes.h" 2546283Sdfr#include "m2-lang.h" 2619370Spst 2719370Spst/* FIXME: For now, just explicitly declare c_val_print and use it instead */ 2819370Spst 2919370Spstint 3098944Sobrienm2_val_print (struct type *type, char *valaddr, int embedded_offset, 3198944Sobrien CORE_ADDR address, struct ui_file *stream, int format, 3298944Sobrien int deref_ref, int recurse, enum val_prettyprint pretty) 3319370Spst{ 3498944Sobrien extern int c_val_print (struct type *, char *, int, CORE_ADDR, 3598944Sobrien struct ui_file *, int, int, int, 3698944Sobrien enum val_prettyprint); 3746283Sdfr return (c_val_print (type, valaddr, 0, address, stream, format, deref_ref, 3819370Spst recurse, pretty)); 3919370Spst} 40