From 5cf8ecfc25d56e733e2c803942f1bee0378e6639 Mon Sep 17 00:00:00 2001
From: Boris Kolpackov <boris@codesynthesis.com>
Date: Thu, 21 Jul 2011 15:23:19 +0200
Subject: Add support for optional tree node value in pragmas

---
 odb/parser.cxx | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'odb/parser.cxx')

diff --git a/odb/parser.cxx b/odb/parser.cxx
index fda4579..16612df 100644
--- a/odb/parser.cxx
+++ b/odb/parser.cxx
@@ -1886,6 +1886,10 @@ process_pragmas (tree t,
         tmp[j] = '-';
 
     node.set (tmp, i->value);
+
+    if (i->node != 0)
+      node.set (tmp + "-node", i->node);
+
     node.set (tmp + "-loc", i->loc);
   }
 }
@@ -1917,6 +1921,10 @@ process_named_pragmas (tree t, node& node)
         tmp[j] = '-';
 
     node.set (tmp, i->value);
+
+    if (i->node != 0)
+      node.set (tmp + "-node", i->node);
+
     node.set (tmp + "-loc", i->loc);
   }
 }
-- 
cgit v1.1