Commit e0d425d9 by Zachary Snow

default implicit output ports to logic

parent 93ba497c
...@@ -389,7 +389,9 @@ parseDTsAsDecls mode l0 = ...@@ -389,7 +389,9 @@ parseDTsAsDecls mode l0 =
(tps, l7) = takeTrips l6 initReason (tps, l7) = takeTrips l6 initReason
pos = tokPos $ head l0 pos = tokPos $ head l0
base = von dir t base = von dir t
t = tf rs t = case (dir, tf rs) of
(Output, Implicit sg _) -> IntegerVector TLogic sg rs
(_, typ) -> typ
decls = decls =
CommentDecl ("Trace: " ++ show pos) : CommentDecl ("Trace: " ++ show pos) :
map (\(x, a, e) -> base x a e) tps map (\(x, a, e) -> base x a e) tps
......
module mod(output x, y);
initial x = 1;
assign y = 1;
endmodule
module mod(output reg x, output wire y);
initial x = 1;
assign y = 1;
endmodule
module top;
wire o1, o2;
mod m(o1, o2);
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