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 4bf3da12e323d7198bcd4ba6b47e5b2528d5e3ed..1693767918541c04263d600e125dd770f1218082 100644 (file)
--- a/src/named-ref.c
+++ b/src/named-ref.c
@@ -1,6 +1,6 @@
 /* Named symbol references for Bison
 
-   Copyright (C) 2009-2011 Free Software Foundation, Inc.
+   Copyright (C) 2009-2013 Free Software Foundation, Inc.
 
    This file is part of Bison, the GNU Compiler Compiler.
 
@@ -33,6 +33,12 @@ 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)
 {