OpenCores
URL https://opencores.org/ocsvn/bluespec-h264/bluespec-h264/trunk

Subversion Repositories bluespec-h264

Compare Revisions

  • This comparison shows the changes necessary to convert path 
    /
    from Rev 37 to Rev 38
    ↔ Reverse comparison
  •

Rev 37 → Rev 38

/trunk/src/DeblockTee.bsv
1,26 → 1,205
import GetPut::*;
import H264Types::*;
import RegFile::*;
 
typedef enum
{
Forwarding,
DumpingY,
DumpingU,
DumpingV
}
State deriving (Bits, Eq);
 
module mkDeblockTee#(Get#(DeblockFilterOT) inputData, Put#(DeblockFilterOT) outputData, String prefix) ();
module mkDeblockTee#(Get#(DeblockFilterOT) inputData, Put#(DeblockFilterOT) outputData, String prefix, Bool recordFrames) ();
 
Reg#(Bit#(32)) cycles <- mkReg(0);
Reg#(State) state <- mkReg(Forwarding);
Reg#(Bit#(32)) horCounter;
Reg#(Bit#(32)) verCounter;
Reg#(Bit#(32)) counter;
Reg#(Bit#(PicWidthSz)) picWidth;
Reg#(Bit#(PicHeightSz)) picHeight;
Reg#(Bit#(PicAreaSz)) frameinmb;
RegFile#(Bit#(TAdd#(PicAreaSz,6)), Bit#(32)) yValues;
RegFile#(Bit#(TAdd#(PicAreaSz,4)), Bit#(32)) uValues;
RegFile#(Bit#(TAdd#(PicAreaSz,4)), Bit#(32)) vValues;
if(recordFrames)
begin
counter <- mkReg(0);
horCounter <- mkReg(0);
verCounter <- mkReg(0);
picWidth <- mkReg(maxPicWidthInMB);
picHeight <- mkReg(0);
frameinmb <- mkReg(0);
yValues <- mkRegFileFull();
uValues <- mkRegFileFull();
vValues <- mkRegFileFull();
end
 
 
rule cycleup;
cycles <= cycles + 1;
endrule
 
rule processData;
rule processData(state == Forwarding);
let dataIn <- inputData.get();
outputData.put(dataIn);
$write(prefix);
case (dataIn) matches
tagged DFBLuma .data: $display("DFBLuma(%d): hor: %d ver:%d data:%h\n", cycles,data.hor, data.ver, data.data);
tagged DFBChroma .data: $display("DFBChroma(%d): flag: %d hor: %d ver:%d data:%h\n", cycles, data.uv, data.hor, data.ver, data.data);
tagged EndOfFrame: $display("EndOfFrame(%d)", cycles);
tagged EDOT .data: $display("EDOT");
tagged DFBLuma .data:
begin
$display("DFBLuma(%d): hor: %d ver:%d data:%h\n", cycles,data.hor, data.ver, data.data);
if(recordFrames)
begin
Bit#(TAdd#(PicAreaSz,6)) addr = {(zeroExtend(data.ver)*zeroExtend(picWidth)),2'b00}+zeroExtend(data.hor);
$write(prefix);
$display("Writing to %d, %h", addr, data);
yValues.upd(addr,{data.data[7:0],data.data[15:8],data.data[23:16],data.data[31:24]});
end
end
tagged DFBChroma .data:
begin
$display("DFBChroma(%d): flag: %d hor: %d ver:%d data:%h\n", cycles, data.uv, data.hor, data.ver, data.data);
if(recordFrames)
begin
Bit#(TAdd#(PicAreaSz,4)) addr = {(zeroExtend(data.ver)*zeroExtend(picWidth)),1'b0}+zeroExtend(data.hor);
if(data.uv == 1)
begin
$write(prefix);
$display("Writing to %d, %h", addr, data);
vValues.upd(addr, {data.data[7:0],data.data[15:8],data.data[23:16],data.data[31:24]});
end
else
begin
$write(prefix);
$display("Writing to %d, %h", addr, data);
uValues.upd(addr, {data.data[7:0],data.data[15:8],data.data[23:16],data.data[31:24]});
end
end
end
tagged EndOfFrame:
begin
if(recordFrames)
begin
state <= DumpingY;
counter <= 0;
end
$display("EndOfFrame(%d)", cycles);
end
tagged EDOT .data:
case (data) matches
tagged SPSpic_width_in_mbs .xdata :
begin
if(recordFrames)
begin
picWidth <= xdata;
end
end
tagged SPSpic_height_in_map_units .xdata :
begin
if(recordFrames)
begin
picHeight <= xdata;
frameinmb <= zeroExtend(picWidth)*zeroExtend(xdata);
end
end
endcase
endcase
endrule
 
if(recordFrames)
begin
rule dumpY(state == DumpingY);
Bit#(TAdd#(PicAreaSz,6)) addr = truncate({(verCounter*zeroExtend(picWidth)),2'b00}+zeroExtend(horCounter));
$write(prefix);
//$write("(%d,%d,%d,%d,%d,%d)", counter, addr, horCounter, verCounter, picWidth, picHeight);
$write("DUMP ");
$display("%h", yValues.sub(addr));
yValues.upd(addr,0);
if(horCounter + 1 == zeroExtend(picWidth)*4) // 4 values per Mb
begin
horCounter <= 0;
if(verCounter + 1 == zeroExtend(picHeight)*16)
begin
state <= DumpingU;
verCounter <= 0;
counter <= 0;
end
else
begin
verCounter <= verCounter + 1;
counter <= counter + 1;
end
end
else
begin
horCounter <= horCounter + 1;
counter <= counter + 1;
end
endrule
 
rule dumpU(state == DumpingU);
Bit#(TAdd#(PicAreaSz,4)) addr = truncate({(verCounter*zeroExtend(picWidth)),1'b0}+zeroExtend(horCounter));
$write(prefix);
//$write("(%d,%d,%d,%d)", counter, addr, horCounter, verCounter);
 
$write("DUMP ");
$display("%h", uValues.sub(addr));
uValues.upd(addr, 0);
 
if(horCounter + 1 == zeroExtend(picWidth)*2) // 2 values per Mb
begin
horCounter <= 0;
if(verCounter + 1 == zeroExtend(picHeight)*8) // Chroma have half as much data
begin
state <= DumpingV;
verCounter <= 0;
counter <= 0;
end
else
begin
verCounter <= verCounter + 1;
counter <= counter + 1;
end
end
else
begin
horCounter <= horCounter + 1;
counter <= counter + 1;
end
endrule
 
rule dumpV(state == DumpingV);
Bit#(TAdd#(PicAreaSz,4)) addr = truncate({(verCounter*zeroExtend(picWidth)),1'b0}+zeroExtend(horCounter));
$write(prefix);
//$write("(%d,%d,%d,%d)", counter, addr, horCounter, verCounter);
$write("DUMP ");
$display("%h", vValues.sub(addr));
vValues.upd(addr, 0);
if(horCounter + 1 == zeroExtend(picWidth)*2) // 2 values per Mb
begin
horCounter <= 0;
if(verCounter + 1 == zeroExtend(picHeight)*8) // Chroma have half as much data
begin
state <= Forwarding;
verCounter <= 0;
end
else
begin
verCounter <= verCounter + 1;
counter <= counter + 1;
end
end
else
begin
horCounter <= horCounter + 1;
counter <= counter + 1;
end
endrule
end
endmodule
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.