From af3047833424103c4e17728e849670da865d37c3 Mon Sep 17 00:00:00 2001
From: dsmith <dsmith>
Date: Thu, 17 Jan 2008 20:44:34 +0000
Subject: 2008-01-17  David Smith  <dsmith@redhat.com>

	* tapsets.cxx
	(perfmon_var_expanding_copy_visitor::visit_target_symbol): Print an
	error when trying to use the perfmon target variable '$counter as
	an array or structure.
---
 tapsets.cxx | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

(limited to 'tapsets.cxx')

diff --git a/tapsets.cxx b/tapsets.cxx
index 89819d6e..84187960 100644
--- a/tapsets.cxx
+++ b/tapsets.cxx
@@ -5882,6 +5882,25 @@ perfmon_var_expanding_copy_visitor::visit_target_symbol (target_symbol *e)
   if (e->base_name != "$counter")
     throw semantic_error ("target variables not available to perfmon probes");
 
+  if (e->components.size() > 0)
+    {
+      switch (e->components[0].first)
+	{
+	case target_symbol::comp_literal_array_index:
+	  throw semantic_error("perfmon probe '$counter' variable may not be used as array",
+			       e->tok);
+	  break;
+	case target_symbol::comp_struct_member:
+	  throw semantic_error("perfmon probe '$counter' variable may not be used as a structure",
+			       e->tok);
+	  break;
+	default:
+	  throw semantic_error ("invalid use of perfmon probe '$counter' variable",
+				e->tok);
+	  break;
+	}
+    }
+
   ec->code = "THIS->__retvalue = _pfm_pmd_x[" + 
 	  lex_cast<string>(counter_number) + "].reg_num;";
   ec->code += "/* pure */";
-- 
cgit