From 477494da8632b9076df8081725b31d85963c7906 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Christian=20Sch=C3=A4fer?=
 <schaefer@ipd.info.uni-karlsruhe.de>
Date: Wed, 31 May 2000 13:54:22 +0000
Subject: [PATCH] removed the two attributes, 'label lab' and 'bool used' ,
 from the tarval struct, and the '# include label.h' entry.

[r16]
---
 ir/tv/Makefile |  2 --
 ir/tv/tv.c     | 29 -----------------------------
 ir/tv/tv.h     | 12 ------------
 3 files changed, 43 deletions(-)

diff --git a/ir/tv/Makefile b/ir/tv/Makefile
index f8acba863..4518b37d7 100644
--- a/ir/tv/Makefile
+++ b/ir/tv/Makefile
@@ -22,8 +22,6 @@ SHELL       = /bin/sh
 MAKE        = /usr/bin/make
 
 MEMBERS	 = tv.m
-# CS-hac
-# label.m
 
 CFILES = $(MEMBERS:.m=.c)
 
diff --git a/ir/tv/tv.c b/ir/tv/tv.c
index 596752681..dec195618 100644
--- a/ir/tv/tv.c
+++ b/ir/tv/tv.c
@@ -1593,35 +1593,6 @@ tarval_print (XP_PAR1, const xprintf_info *info ATTRIBUTE((unused)), XP_PARN)
   return printed;
 }
 
-
-/* Labeling of tarvals */
-// CS-hac
-/*
-label
-tarval_label (tarval *tv)
-{
-  if (!tv->lab) {
-    tv->lab = new_label();
-    tv->used = 1;
-  }
-  return tv->lab;
-}
-
-
-void
-tarval_forall_labeled (int (*f) (tarval *, void *), void *data)
-{
-  tarval *tv;
-
-  for (tv = pset_first (tarvals);  tv;  tv = pset_next (tarvals)) {
-    if (tv->lab && f (tv, data)) {
-      pset_break (tarvals);
-      return;
-    }
-  }
-}
-*/
-
 ir_mode *
 get_tv_mode (tarval *tv)
 {
diff --git a/ir/tv/tv.h b/ir/tv/tv.h
index 7f393268d..5c3805fb1 100644
--- a/ir/tv/tv.h
+++ b/ir/tv/tv.h
@@ -6,8 +6,6 @@
 
 # include "irmode.h"
 # include "entity.h"
-// CS-hac
-//# include "label.h"
 # include "xprintf.h"
 
 typedef struct tarval tarval;
@@ -51,11 +49,7 @@ struct tarval {
     tarval_B B;			/* universal bits */
     tarval_s s;			/* string */
   } u;
-  // CS-hac
-  //  label lab;			/* value's label in the constant segment */
   ir_mode *mode;
-  // CS-hac
-  //  bool used;	       		/* labeled tv is used (default) */
 };
 
 extern tarval *tarval_bad;
@@ -140,12 +134,6 @@ long tarval_ord (tarval *, int *fail);
 
 int tarval_print (XP_PAR1, const xprintf_info *, XP_PARN);
 
-/* Labeling of tarvals */
-// CS-hac
-//label tarval_label (tarval *);
-//void tarval_forall_labeled (int (*) (tarval *, void *), void *);
-
-
 /* return a mode-specific value */
 
 tarval_f tv_val_f (tarval *tv);
-- 
2.20.1