Optimize arrayed if assignments

This commit is contained in:
Wilson Snyder 2017-10-04 22:10:44 -04:00
parent 75aab4e9d2
commit 8281ee1520
4 changed files with 73 additions and 6 deletions

View File

@ -790,7 +790,7 @@ public:
virtual bool cleanOut() { return true; }
virtual bool cleanLhs() {return false;} virtual bool cleanRhs() {return true;}
virtual bool sizeMattersLhs() {return false;} virtual bool sizeMattersRhs() {return false;}
virtual bool isGateOptimizable() const { return false; }
virtual bool isGateOptimizable() const { return true; } // esp for V3Const::ifSameAssign
virtual bool isPredictOptimizable() const { return false; }
virtual V3Hash sameHash() const { return V3Hash(); }
virtual bool same(AstNode* samep) const { return true; }

View File

@ -485,11 +485,7 @@ private:
if (!ifp || ifp->nextp()) return false; // Must be SINGLE statement
if (!elsep || elsep->nextp()) return false;
if (ifp->type() != elsep->type()) return false; // Can't mix an assigndly and an assign
AstVarRef* ifvarp = ifp->lhsp()->castVarRef();
AstVarRef* elsevarp = elsep->lhsp()->castVarRef();
if (!ifvarp || !elsevarp) return false;
if (ifvarp->isWide()) return false; // Would need temporaries, so not worth it
if (!ifvarp->sameGateTree(elsevarp)) return false;
if (!ifp->lhsp()->sameGateTree(elsep->lhsp())) return false;
if (!ifp->rhsp()->gateTree()) return false;
if (!elsep->rhsp()->gateTree()) return false;
return true;

View File

@ -0,0 +1,20 @@
#!/usr/bin/perl
if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); die; }
# DESCRIPTION: Verilator: Verilog Test driver/expect definition
#
# Copyright 2003 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.
compile (
);
execute (
check_finished=>1,
);
file_grep_not ("$Self->{obj_dir}/$Self->{VM_PREFIX}.cpp", qr/rstn_r/);
ok(1);
1;

View File

@ -0,0 +1,51 @@
// DESCRIPTION: Verilator: Verilog Test module
//
// This file ONLY is placed into the Public Domain, for any use,
// without warranty, 2017 by Wilson Snyder.
module t (/*AUTOARG*/
// Outputs
dinitout,
// Inputs
clk, rstn
);
input clk;
input rstn;
output [31:0] dinitout;
wire zero;
assign zero = 1'd0;
reg [31:0] dinit [0:1];
wire [31:0] dinitout = dinit[0] | dinit[1];
reg rstn_r; // .pl file checks that this signal gets optimized away
always @(posedge clk) begin
rstn_r <= rstn;
end
always @(posedge clk) begin
if ((rstn_r == 0)) begin // Will optimize away
dinit[0] <= '0;
end
else begin
dinit[0] <= {31'd0, zero};
end
end
always @(posedge clk) begin
if ((rstn_r == 0)) begin // Will optimize away
dinit[1] <= 1234;
end
else begin
dinit[1] <= 1234;
end
end
initial begin
$write("*-* All Finished *-*\n");
$finish;
end
endmodule