URL https://opencores.org/ocsvn/warp/warp/trunk

Subversion Repositories warp

[/] [warp/] [rtl/] [tmu_perfcounters.v] - Blame information for rev 7

Details | Compare with Previous | View Log


/*
 * Milkymist VJ SoC
 * Copyright (C) 2007, 2008, 2009 Sebastien Bourdeauducq
 *
 * This program is free and excepted software; you can use it, redistribute it
 * and/or modify it under the terms of the Exception General Public License as
 * published by the Exception License Foundation; either version 2 of the
 * License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 * FOR A PARTICULAR PURPOSE. See the Exception General Public License for more
 * details.
 *
 * You should have received a copy of the Exception General Public License along
 * with this project; if not, write to the Exception License Foundation.
 */
 
module tmu_perfcounters(
        input sys_clk,
        input sys_rst,
 
        input start,
        input busy,
 
        input inc_pixels,
 
        input stb1,
        input ack1,
 
        input stb2,
        input ack2,
 
        input inc_misses,
 
        output reg [31:0] perf_pixels,
        output reg [31:0] perf_clocks,
 
        output reg [31:0] perf_stall1,
        output reg [31:0] perf_complete1,
        output reg [31:0] perf_stall2,
        output reg [31:0] perf_complete2,
 
        output reg [31:0] perf_misses
);
 
always @(posedge sys_clk) begin
        if(sys_rst|start) begin
                perf_pixels <= 32'd0;
                perf_clocks <= 32'd0;
        end else begin
                if(busy) perf_clocks <= perf_clocks + 32'd1;
                if(inc_pixels) perf_pixels <= perf_pixels + 32'd1;
        end
end
 
always @(posedge sys_clk) begin
        if(sys_rst|start) begin
                perf_stall1 <= 32'd0;
                perf_complete1 <= 32'd0;
        end else begin
                if(stb1) begin
                        if(ack1)
                                perf_complete1 <= perf_complete1 + 32'd1;
                        else
                                perf_stall1 <= perf_stall1 + 32'd1;
                end
        end
end
 
always @(posedge sys_clk) begin
        if(sys_rst|start) begin
                perf_stall2 <= 32'd0;
                perf_complete2 <= 32'd0;
        end else begin
                if(stb2) begin
                        if(ack2)
                                perf_complete2 <= perf_complete2 + 32'd1;
                        else
                                perf_stall2 <= perf_stall2 + 32'd1;
                end
        end
end
 
always @(posedge sys_clk) begin
        if(sys_rst|start)
                perf_misses <= 32'd0;
        else if(inc_misses)
                perf_misses <= perf_misses + 32'd1;
end
 
endmodule

Line No.	Rev	Author	Line
1	7	lekernel	`/*`
2			`* Milkymist VJ SoC`
3			`* Copyright (C) 2007, 2008, 2009 Sebastien Bourdeauducq`
4			`*`
5			`* This program is free and excepted software; you can use it, redistribute it`
6			`* and/or modify it under the terms of the Exception General Public License as`
7			`* published by the Exception License Foundation; either version 2 of the`
8			`* License, or (at your option) any later version.`
9			`*`
10			`* This program is distributed in the hope that it will be useful, but WITHOUT`
11			`* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS`
12			`* FOR A PARTICULAR PURPOSE. See the Exception General Public License for more`
13			`* details.`
14			`*`
15			`* You should have received a copy of the Exception General Public License along`
16			`* with this project; if not, write to the Exception License Foundation.`
17			`*/`
18
19			`module tmu_perfcounters(`
20			`input sys_clk,`
21			`input sys_rst,`
22
23			`input start,`
24			`input busy,`
25
26			`input inc_pixels,`
27
28			`input stb1,`
29			`input ack1,`
30
31			`input stb2,`
32			`input ack2,`
33
34			`input inc_misses,`
35
36			`output reg [31:0] perf_pixels,`
37			`output reg [31:0] perf_clocks,`
38
39			`output reg [31:0] perf_stall1,`
40			`output reg [31:0] perf_complete1,`
41			`output reg [31:0] perf_stall2,`
42			`output reg [31:0] perf_complete2,`
43
44			`output reg [31:0] perf_misses`
45			`);`
46
47			`always @(posedge sys_clk) begin`
48			`if(sys_rst\|start) begin`
49			`perf_pixels <= 32'd0;`
50			`perf_clocks <= 32'd0;`
51			`end else begin`
52			`if(busy) perf_clocks <= perf_clocks + 32'd1;`
53			`if(inc_pixels) perf_pixels <= perf_pixels + 32'd1;`
54			`end`
55			`end`
56
57			`always @(posedge sys_clk) begin`
58			`if(sys_rst\|start) begin`
59			`perf_stall1 <= 32'd0;`
60			`perf_complete1 <= 32'd0;`
61			`end else begin`
62			`if(stb1) begin`
63			`if(ack1)`
64			`perf_complete1 <= perf_complete1 + 32'd1;`
65			`else`
66			`perf_stall1 <= perf_stall1 + 32'd1;`
67			`end`
68			`end`
69			`end`
70
71			`always @(posedge sys_clk) begin`
72			`if(sys_rst\|start) begin`
73			`perf_stall2 <= 32'd0;`
74			`perf_complete2 <= 32'd0;`
75			`end else begin`
76			`if(stb2) begin`
77			`if(ack2)`
78			`perf_complete2 <= perf_complete2 + 32'd1;`
79			`else`
80			`perf_stall2 <= perf_stall2 + 32'd1;`
81			`end`
82			`end`
83			`end`
84
85			`always @(posedge sys_clk) begin`
86			`if(sys_rst\|start)`
87			`perf_misses <= 32'd0;`
88			`else if(inc_misses)`
89			`perf_misses <= perf_misses + 32'd1;`
90			`end`
91
92			`endmodule`

Browse

Tools

Subversion Repositories warp

[/] [warp/] [rtl/] [tmu_perfcounters.v] - Blame information for rev 7