forked from github/verilator
Add __PVT__ prefix to selects nodes (#4001)
This commit is contained in:
parent
725ec088ea
commit
cc45f64280
@ -103,13 +103,19 @@ private:
|
||||
}
|
||||
void visit(AstMemberDType* nodep) override {
|
||||
if (!nodep->user1()) {
|
||||
rename(nodep, false);
|
||||
rename(nodep, true);
|
||||
iterateChildren(nodep);
|
||||
}
|
||||
}
|
||||
void visit(AstMemberSel* nodep) override {
|
||||
if (!nodep->user1()) {
|
||||
rename(nodep, false);
|
||||
rename(nodep, true);
|
||||
iterateChildren(nodep);
|
||||
}
|
||||
}
|
||||
void visit(AstStructSel* nodep) override {
|
||||
if (!nodep->user1()) {
|
||||
rename(nodep, true);
|
||||
iterateChildren(nodep);
|
||||
}
|
||||
}
|
||||
|
21
test_regress/t/t_class_field_name.pl
Executable file
21
test_regress/t/t_class_field_name.pl
Executable file
@ -0,0 +1,21 @@
|
||||
#!/usr/bin/env perl
|
||||
if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); die; }
|
||||
# DESCRIPTION: Verilator: Verilog Test driver/expect definition
|
||||
#
|
||||
# Copyright 2020 by Wilson Snyder. This program is free software; you
|
||||
# can redistribute it and/or modify it under the terms of either the GNU
|
||||
# Lesser General Public License Version 3 or the Perl Artistic License
|
||||
# Version 2.0.
|
||||
# SPDX-License-Identifier: LGPL-3.0-only OR Artistic-2.0
|
||||
|
||||
scenarios(simulator => 1);
|
||||
|
||||
compile(
|
||||
);
|
||||
|
||||
execute(
|
||||
check_finished => 1,
|
||||
);
|
||||
|
||||
ok(1);
|
||||
1;
|
21
test_regress/t/t_class_field_name.v
Normal file
21
test_regress/t/t_class_field_name.v
Normal file
@ -0,0 +1,21 @@
|
||||
// DESCRIPTION: Verilator: Verilog Test module
|
||||
//
|
||||
// This file ONLY is placed under the Creative Commons Public Domain, for
|
||||
// any use, without warranty, 2023 by Antmicro Ltd.
|
||||
// SPDX-License-Identifier: CC0-1.0
|
||||
|
||||
class Cls;
|
||||
int queue;
|
||||
endclass
|
||||
|
||||
module t (/*AUTOARG*/);
|
||||
|
||||
initial begin
|
||||
Cls cls = new;
|
||||
cls.queue = 1;
|
||||
if (cls.queue == 1) begin
|
||||
$write("*-* All Finished *-*\n");
|
||||
$finish;
|
||||
end
|
||||
end
|
||||
endmodule
|
Loading…
Reference in New Issue
Block a user