value type: accept "->" in type tags

[bison.git] / src / named-ref.c

diff --git a/src/named-ref.c b/src/named-ref.c
index 4388acba88706f8106190164ee2050881fc27d15..1693767918541c04263d600e125dd770f1218082 100644 (file)
--- a/src/named-ref.c
+++ b/src/named-ref.c
@@ -1,6 +1,6 @@
 /* Named symbol references for Bison
 
-   Copyright 2009 Free Software Foundation, Inc.
+   Copyright (C) 2009-2013 Free Software Foundation, Inc.
 
    This file is part of Bison, the GNU Compiler Compiler.
 
@@ -33,9 +33,14 @@ named_ref_new (uniqstr id, location loc)
   return res;
 }
 
+named_ref *
+named_ref_copy (const named_ref *r)
+{
+  return named_ref_new (r->id, r->loc);
+}
+
 void
 named_ref_free (named_ref *r)
 {
   free (r);
 }
-