luke
/
sv2v
mirror of https://github.com/zachjs/sv2v.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

apply patterns to substructures

This commit is contained in:
Zachary Snow 2019-10-13 23:37:43 -04:00
parent de581ecaf5
commit a1cd6941ae
3 changed files with 149 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Convert/Struct.hs
View File

@ -358,6 +358,9 @@ convertAsgn structs types (lhs, expr) =
-- look up by name
if Map.member fieldName namedItemMap then
namedItemMap Map.! fieldName
-- recurse for substructures
else if isStruct fieldType then
Pattern specialItems
-- look up by field type
else if Map.member fieldTypeName specialItemMap then
specialItemMap Map.! fieldTypeName
@ -372,6 +375,9 @@ convertAsgn structs types (lhs, expr) =
fieldType = fieldTypeMap Map.! fieldName
fieldTypeName =
specialTag : (show $ fst $ typeRanges fieldType)
isStruct :: Type -> Bool
isStruct (Struct{}) = True
isStruct _ = False
convertExpr (Struct (Packed sg) fields (r : rs)) subExpr =
Repeat (rangeSize r) [subExpr']

29
test/basic/pattern.sv
View File

@ -35,6 +35,35 @@ module test;
#1 a = '{w: 8, int: 3, byte: 2, default: 0};
end
typedef struct packed {
int x;
struct_a y;
logic z;
} struct_b;
struct_b b;
initial begin
#100;
$monitor("%2d: %b %b %b %b", $time, b, b.x, b.y, b.z);
#1 b.x = 0;
#1 b.y = 0;
#1 b.z = 0;
#1 b = '{default: 1};
#1 b = '{default: 2};
#1 b = '{default: 3};
#1 b = '{default: 0};
#1 b = '{default: -1};
#1 b = '{default: -2};
#1 b = '{int: 0, default: 1};
#1 b = '{byte: 0, default: 1};
#1 b = '{logic: 0, default: 1};
#1 b = '{logic: 1, int: 2, byte: 3};
#1 b = '{logic: 1, int: 2, byte: 3, default: -1};
#1 b = '{int: 3, byte: 2, default: 0};
end
endmodule
module top; endmodule

114
test/basic/pattern.v
View File

@ -113,6 +113,120 @@ module test;
a_z = 0;
end
end
reg [31:0] b_x;
wire [72:0] b_y;
reg b_z;
reg [105:0] b;
assign b_y = a;
always @* b = {b_x, b_y, b_z};
initial begin
#100;
a_w = 'bx;
a_x = 'bx;
a_y = 'bx;
a_z = 'bx;
$monitor("%2d: %b %b %b %b", $time, b, b_x, b_y, b_z);
#1 b_x = 0;
#1 begin
a_w = 0;
a_x = 0;
a_y = 0;
a_z = 0;
end
#1 b_z = 0;
#1 begin
a_w = 1;
a_x = 1;
a_y = 1;
a_z = 1;
b_x = 1;
b_z = 1;
end
#1 begin
a_w = 2;
a_x = 2;
a_y = 2;
a_z = 2;
b_x = 2;
b_z = 2;
end
#1 begin
a_w = 3;
a_x = 3;
a_y = 3;
a_z = 3;
b_x = 3;
b_z = 3;
end
#1 begin
a_w = 0;
a_x = 0;
a_y = 0;
a_z = 0;
b_x = 0;
b_z = 0;
end
#1 begin
a_w = -1;
a_x = -1;
a_y = -1;
a_z = -1;
b_x = -1;
b_z = -1;
end
#1 begin
a_w = -2;
a_x = -2;
a_y = -2;
a_z = -2;
b_x = -2;
b_z = -2;
end
#1 begin
a_w = 0;
a_x = 0;
a_y = 1;
a_z = 1;
b_x = 0;
b_z = 1;
end
#1 begin
a_w = 1;
a_x = 1;
a_y = 0;
a_z = 1;
b_x = 1;
b_z = 1;
end
#1 begin
a_w = 1;
a_x = 1;
a_y = 1;
a_z = 0;
b_x = 1;
b_z = 0;
end
#1 begin
a_w = 2;
a_x = 2;
a_y = 3;
a_z = 1;
b_x = 2;
b_z = 1;
end
#1;
#1 begin
a_w = 3;
a_x = 3;
a_y = 2;
a_z = 0;
b_x = 3;
b_z = 0;
end
end
endmodule