# HG changeset patch
# User jwe
# Date 810418132 0
# Node ID 35477f627d7c7305dc9630f83220afc6d1f2b9a4
# Parent  6a323120f2919b6103acadefdd2f7e882851157b
[project @ 1995-09-06 20:08:52 by jwe]

diff --git a/src/pt-exp-base.cc b/src/pt-exp-base.cc
--- a/src/pt-exp-base.cc
+++ b/src/pt-exp-base.cc
@@ -680,6 +680,15 @@
 tree_fvc::lookup_map_element (SLList<char*>& list, int insert, int silent)
 {
   static tree_constant retval;
+
+  int l = line ();
+  int c = column ();
+
+  if (l == -1 && c == -1)
+    ::error ("invalid structure reference");
+  else
+    ::error ("invalid structure reference near line %d column %d", l, c);
+
   return retval;
 }