Commit bb2a8feb by Zachary Snow

module item traversals visit items with attributes

parent 77b9d2f0
......@@ -128,6 +128,8 @@ traverseModuleItemsM mapper (Part extern kw lifetime name ports items) = do
mapM fullGenItemMapper genItems >>= mapper . Generate
fullMapper (Generate genItems) =
mapM fullGenItemMapper genItems >>= mapper . Generate
fullMapper (MIAttr attr mi) =
fullMapper mi >>= return . MIAttr attr
fullMapper other = mapper other
fullGenItemMapper = traverseNestedGenItemsM genItemMapper
genItemMapper (GenModuleItem moduleItem) = do
......
module top;
(* foo="bar" *) logic x;
initial begin
x = 1;
$display(x);
end
endmodule
module top;
(* foo="bar" *) reg x;
initial begin
x = 1;
$display(x);
end
endmodule
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment