Support multiple $dumpvar identifiers

This commit is contained in:
Wilson Snyder 2022-11-30 18:13:57 -05:00
parent 355c4f76d0
commit 42e4e18ec8
2 changed files with 3 additions and 1 deletions

View File

@ -3869,7 +3869,7 @@ system_t_call<nodeStmtp>: // IEEE: system_tf_call (as task)
| yD_DUMPVARS parenE { $$ = new AstDumpCtl{$<fl>1, VDumpCtlType::VARS,
new AstConst{$<fl>1, 0}}; }
| yD_DUMPVARS '(' expr ')' { $$ = new AstDumpCtl{$<fl>1, VDumpCtlType::VARS, $3}; }
| yD_DUMPVARS '(' expr ',' idDotted ')' { $$ = new AstDumpCtl{$<fl>1, VDumpCtlType::VARS, $3}; DEL($5); }
| yD_DUMPVARS '(' expr ',' exprList ')' { $$ = new AstDumpCtl{$<fl>1, VDumpCtlType::VARS, $3}; DEL($5); }
| yD_DUMPALL parenE { $$ = new AstDumpCtl{$<fl>1, VDumpCtlType::ALL}; }
| yD_DUMPALL '(' expr ')' { $$ = new AstDumpCtl{$<fl>1, VDumpCtlType::ALL}; DEL($3); }
| yD_DUMPFLUSH parenE { $$ = new AstDumpCtl{$<fl>1, VDumpCtlType::FLUSH}; }

View File

@ -33,6 +33,8 @@ module t (/*AUTOARG*/
`ifdef TEST_DUMP
$dumpfile(filename);
$dumpvars(0); // Intentionally no ", top" for parsing coverage with just (expr)
$dumpvars(1, top); // Intentionally checking parsing coverage
$dumpvars(1, top, top); // Intentionally checking parsing coverage
$dumplimit(10 * 1024 * 1024);
`elsif TEST_DUMPPORTS
$dumpports(top, filename);