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

added support for elaboration tasks

This commit is contained in:
Ethan Sifferman 2024-01-25 16:29:09 -08:00 committed by Zachary Snow
parent 31ffa439f7
commit 74b80c1552
3 changed files with 79 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
src/Convert/SystemTasks.hs
View File

@ -10,9 +10,43 @@ import Convert.Traverse
import Language.SystemVerilog.AST
convert :: [AST] -> [AST]
convert =
map $ traverseDescriptions $ traverseModuleItems $
traverseStmts $ traverseNestedStmts convertStmt
convert = map $ traverseDescriptions $ traverseModuleItems convertModuleItem
convertModuleItem :: ModuleItem -> ModuleItem
convertModuleItem (ElabTask SeverityInfo args) =
Initial (Block Seq "" [] [
(Subroutine (Ident "$write") (Args [(String "Elaboration Info: ")] [])),
(Subroutine (Ident "$display") args)
])
convertModuleItem (ElabTask SeverityWarning args) =
Initial (Block Seq "" [] [
(Subroutine (Ident "$write") (Args [(String "Elaboration Warning: ")] [])),
(Subroutine (Ident "$display") args)
])
convertModuleItem (ElabTask SeverityError args) =
Initial (Block Seq "" [] [
(Subroutine (Ident "$write") (Args [(String "Elaboration Error: ")] [])),
(Subroutine (Ident "$display") args)
])
convertModuleItem (ElabTask SeverityFatal (Args [] [])) =
Initial (Block Seq "" [] [
(Subroutine (Ident "$display") (Args [(String "Elaboration Fatal:")] [])),
(Subroutine (Ident "$finish") (Args [] []))
])
convertModuleItem (ElabTask SeverityFatal (Args (finishArgs:displayArgs) _)) =
Initial (Block Seq "" [] [
(Subroutine (Ident "$write") (Args [(String "Elaboration Fatal: ")] [])),
(Subroutine (Ident "$display") (Args displayArgs [])),
(Subroutine (Ident "$finish") (Args [finishArgs] []))
])
convertModuleItem other =
traverseStmts (traverseNestedStmts convertStmt) other
timeCall :: Expr
timeCall = Call (Ident "$time") (Args [] [])

3
test/nosim/elab_task.sv → test/core/elab_task.sv
View File

@ -6,5 +6,6 @@ module top;
$error;
$error("%b", 3);
$fatal;
$fatal("%b", 4);
$fatal(0);
$fatal(0, "%b", 4);
endmodule

40
test/core/elab_task.v Normal file
View File

@ -0,0 +1,40 @@
module top;
initial begin
$write("Elaboration Info: ");
$display;
end
initial begin
$write("Elaboration Info: ");
$display("%b", 1);
end
initial begin
$write("Elaboration Warning: ");
$display;
end
initial begin
$write("Elaboration Warning: ");
$display("%b", 2);
end
initial begin
$write("Elaboration Error: ");
$display;
end
initial begin
$write("Elaboration Error: ");
$display("%b", 3);
end
initial begin
$display("Elaboration Fatal:");
$finish;
end
initial begin
$write("Elaboration Fatal: ");
$display;
$finish(0);
end
initial begin
$write("Elaboration Fatal: ");
$display("%b", 4);
$finish(0);
end
endmodule