changeset 1370:35477f627d7c

[project @ 1995-09-06 20:08:52 by jwe]
author jwe
date Wed, 06 Sep 1995 20:08:52 +0000
parents 6a323120f291
children 766af9ca8edb
files src/pt-exp-base.cc
diffstat 1 files changed, 9 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/pt-exp-base.cc	Wed Sep 06 19:35:50 1995 +0000
+++ b/src/pt-exp-base.cc	Wed Sep 06 20:08:52 1995 +0000
@@ -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;
 }