verif/env/fnx/vlib/report/sim/report_verilog_tasks.v

// ========== Copyright Header Begin ==========================================
//
// OpenSPARC T2 Processor File: report_verilog_tasks.v
// Copyright (C) 1995-2007 Sun Microsystems, Inc. All Rights Reserved
// 4150 Network Circle, Santa Clara, California 95054, U.S.A.
//
// * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
//
// This program is free software; you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation; version 2 of the License.
//
// 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
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
// For the avoidance of doubt, and except that if any non-GPL license
// choice is available it will apply instead, Sun elects to use only
// the General Public License version 2 (GPLv2) at this time for any
// software where a choice of GPL license versions is made
// available with the language indicating that GPLv2 or any later version
// may be used, or where a choice of which version of the GPL is applied is
// otherwise unspecified.
//
// Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
// CA 95054 USA or visit www.sun.com if you need additional information or
// have any questions.
//
// ========== Copyright Header End ============================================
module report_verilog_tasks;

////////////////////////////////////////////////////////////////////////////////
// Class variable accessors

task report_verilog_set_global_print_threshold;
        input [31:0]        new_print_threshold;
    input [31:0]                locked_by;

    begin
        $report_set_global_print_threshold(new_print_threshold, locked_by);
    end
endtask         // report_verilog_set_global_print_threshold

// report_verilog_get_global_print_threshold:   unnecessary -- use ReportClass::get_global_print_threshold()

task report_verilog_set_max_error_count;
        input [31:0]        max_error_count;

    begin
        $report_set_max_error_count(max_error_count);
    end
endtask         // report_verilog_set_max_error_count

// report_verilog_get_max_error_count:          unnecessary -- use ReportClass::get_max_error_count()

task report_verilog_inc_global_error_count;
        begin
        $report_inc_global_error_count;
    end
endtask         // report_verilog_inc_global_error_count

task report_verilog_get_global_error_count;
        output [31:0] global_error_count;

    begin
        global_error_count = $report_get_global_error_count;
    end
endtask         // report_verilog_get_global_error_count

task report_verilog_inc_global_warning_count;
        begin
        $report_inc_global_warning_count;
    end
endtask         // report_verilog_inc_global_warning_count

task report_verilog_get_global_warning_count;
        output [31:0] global_warning_count;

    begin
        global_warning_count = $report_get_global_warning_count;
    end
endtask         // report_verilog_get_global_warning_count

task report_verilog_set_short_pathnames;
        input [31:0] short_names;

    begin
        $report_set_short_pathnames(short_names);
    end
endtask         // report_verilog_set_short_pathnames

// report_verilog_get_short_pathnames:  unnecessary -- use ReportClass::get_short_pathnames()

task report_verilog_set_path_prefix;
        input [256*8:0] path_prefix_str;

    begin
        $report_set_path_prefix(path_prefix_str);
    end
endtask

task report_verilog_set_exit_on_error;
        input [31:0] exit_on_error;

        begin
                $report_set_exit_on_error(exit_on_error);
        end
endtask

task report_verilog_get_exit_on_error;
        output [31:0] exit_on_error;

        begin
                exit_on_error = $report_get_exit_on_error;
        end
endtask

task report_verilog_disable_fatal_errors;
        input [31:0] num_nonfatal_cycles;

    begin
        $report_disable_fatal_errors(num_nonfatal_cycles);
    end
endtask         // report_verilog_disable_fatal_errors

// report_verilog_get_num_remaining_nonfatal_cycles:  unnecessary -- use ReportClass::get_num_...

task report_verilog_set_show_simulation_time;
        input [31:0] show_sim_time;

    begin
        $report_set_show_simulation_time(show_sim_time);
    end
endtask        // report_verilog_set_show_simulation_time

// report_verilog_get_show_simulation_time:             unnecessary -- use ReportClass::get_show_simulation_time


////////////////////

task report_verilog_test_complete;
      input [31:0] cycle;
      input [31:0] errors;
      input [31:0] warnings;

    begin
                $write("\n================================================================================\nReport:: Cycle at finish: %0d\nReport:: Total errors\t = %0d\nReport:: Total warnings\t = %0d\n", cycle, errors, warnings);
                $report_print_cycles_per_second;
    end

endtask         // report_verilog_test_complete


//////////////////////////////////////////////////////////////////
// Set defaults
//
task report_verilog_set_default_print_level;
    input [31:0] report_type;
    input [31:0] print_level;

    begin
        $report_set_default_print_level(report_type, print_level);
    end
endtask         // report_verilog_set_default_print_level

//
task report_verilog_set_default_error_level;
    input [31:0] report_type;
    input [31:0] error_level;

    begin
        $report_set_default_error_level(report_type, error_level);
    end
endtask         // report_verilog_set_default_error_level

//
task report_verilog_set_default_table_mode;
    input [31:0] report_type;
    input [31:0] table_mode;

    begin
        $report_set_default_table_mode(report_type, table_mode);
    end
endtask         // report_verilog_set_default_table_mode


////////////////////////////////////////////////////////////////////////////////
// Instance variable accessors

task report_verilog_set_print_level;
    input [(256*8)-1:0] regexp;
    input [31:0] report_type;
    input [31:0] print_level;

    begin
        $report_set_print_level(regexp, report_type, print_level);
    end
endtask         // report_verilog_set_print_level

task report_verilog_set_error_level;
    input [(256*8)-1:0] regexp;
    input [31:0] report_type;
    input [31:0] error_level;

    begin
        $report_set_error_level(regexp, report_type, error_level);
    end
endtask         // report_verilog_set_error_level

task report_verilog_set_table_mode;
        input [(256*8)-1:0] regexp;
    input [31:0] report_type;
    input [31:0] table_mode;

    begin
        $report_set_table_mode(regexp, report_type, table_mode);
    end
endtask         // report_verilog_set_table_mode

//
task report_verilog_print_cycles_per_second;
        begin
        $report_print_cycles_per_second;
    end
endtask         //report_print_cycles_per_second

endmodule       // report_verilog_tasks