From: Pierre Muller <muller@sourceware.org>
Date: Mon, 19 Aug 2002 13:12:09 +0000 (+0000)
Subject:  * remove wrong patch about TYPE_CODE_FLAGS for pascal
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=242f28010b35a65458caabe489b1c80d6b9679ce;p=binutils-gdb.git

 * remove wrong patch about TYPE_CODE_FLAGS for pascal
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 9f56d5f957c..4b90dc8e0d4 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,7 +1,3 @@
-2002-08-19  Pierre Muller  <muller@ics.u-strasbg.fr>
-
-	* p-valprint.c (pascal_val_print): Add support for TYPE_CODE_FLAGS.
-
 2002-08-19  Pierre Muller  <muller@ics.u-strasbg.fr>
 
 	* i387-tdep.c (i387_print_float_info): Fix typo in comment.
diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c
index 747223cb6c5..06a821605fe 100644
--- a/gdb/p-valprint.c
+++ b/gdb/p-valprint.c
@@ -36,7 +36,6 @@
 #include "target.h"
 #include "annotate.h"
 #include "p-lang.h"
-#include "c-lang.h"
 #include "cp-abi.h"
 
 
@@ -73,10 +72,6 @@ pascal_val_print (struct type *type, char *valaddr, int embedded_offset,
   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_ARRAY:
       if (TYPE_LENGTH (type) > 0 && TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 0)
 	{