112855Sgabeblack@google.com/*****************************************************************************
212855Sgabeblack@google.com
312855Sgabeblack@google.com  Licensed to Accellera Systems Initiative Inc. (Accellera) under one or
412855Sgabeblack@google.com  more contributor license agreements.  See the NOTICE file distributed
512855Sgabeblack@google.com  with this work for additional information regarding copyright ownership.
612855Sgabeblack@google.com  Accellera licenses this file to you under the Apache License, Version 2.0
712855Sgabeblack@google.com  (the "License"); you may not use this file except in compliance with the
812855Sgabeblack@google.com  License.  You may obtain a copy of the License at
912855Sgabeblack@google.com
1012855Sgabeblack@google.com    http://www.apache.org/licenses/LICENSE-2.0
1112855Sgabeblack@google.com
1212855Sgabeblack@google.com  Unless required by applicable law or agreed to in writing, software
1312855Sgabeblack@google.com  distributed under the License is distributed on an "AS IS" BASIS,
1412855Sgabeblack@google.com  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
1512855Sgabeblack@google.com  implied.  See the License for the specific language governing
1612855Sgabeblack@google.com  permissions and limitations under the License.
1712855Sgabeblack@google.com
1812855Sgabeblack@google.com *****************************************************************************/
1912855Sgabeblack@google.com
2012855Sgabeblack@google.com// test02.cpp -- Test Method Suspending Itself
2112855Sgabeblack@google.com//
2212855Sgabeblack@google.com//  Original Author: John Aynsley, Doulos
2312855Sgabeblack@google.com//
2412855Sgabeblack@google.com// MODIFICATION LOG - modifiers, enter your name, affiliation, date and
2512855Sgabeblack@google.com//
2612855Sgabeblack@google.com// $Log: test02.cpp,v $
2712855Sgabeblack@google.com// Revision 1.3  2011/03/07 19:32:19  acg
2812855Sgabeblack@google.com//  Andy Goodrich: addition to set sc_core::sc_allow_process_control_corners
2912855Sgabeblack@google.com//  to true so that this test avoids corner case error messages.
3012855Sgabeblack@google.com//
3112855Sgabeblack@google.com// Revision 1.2  2011/02/20 13:44:06  acg
3212855Sgabeblack@google.com//  Andy Goodrich: updates for IEEE 1666 2011.
3312855Sgabeblack@google.com//
3412855Sgabeblack@google.com// Revision 1.1  2011/02/05 21:13:26  acg
3512855Sgabeblack@google.com//  Andy Goodrich: move of tests John Aynsley will replace.
3612855Sgabeblack@google.com//
3712855Sgabeblack@google.com// Revision 1.1  2011/01/20 16:54:54  acg
3812855Sgabeblack@google.com//  Andy Goodrich: changes for IEEE 1666 2011.
3912855Sgabeblack@google.com//
4012855Sgabeblack@google.com
4112855Sgabeblack@google.com#define SC_INCLUDE_DYNAMIC_PROCESSES
4212855Sgabeblack@google.com
4312855Sgabeblack@google.com#include <systemc>
4412855Sgabeblack@google.com
4512855Sgabeblack@google.comusing namespace sc_core;
4612855Sgabeblack@google.comusing std::cout;
4712855Sgabeblack@google.comusing std::endl;
4812855Sgabeblack@google.com
4912855Sgabeblack@google.comstruct M5: sc_module
5012855Sgabeblack@google.com{
5112855Sgabeblack@google.com  M5(sc_module_name _name)
5212855Sgabeblack@google.com  {
5312855Sgabeblack@google.com    SC_THREAD(ticker);
5412855Sgabeblack@google.com    SC_THREAD(calling);
5512855Sgabeblack@google.com    SC_METHOD(target);
5612855Sgabeblack@google.com      sensitive << ev;
5712855Sgabeblack@google.com      dont_initialize();
5812855Sgabeblack@google.com      t = sc_get_current_process_handle();
5912855Sgabeblack@google.com    suspend_target = false;
6012855Sgabeblack@google.com    resume_target = false;
6112855Sgabeblack@google.com  }
6212855Sgabeblack@google.com
6312855Sgabeblack@google.com  sc_process_handle t;
6412855Sgabeblack@google.com  sc_event ev;
6512855Sgabeblack@google.com  bool suspend_target;
6612855Sgabeblack@google.com  bool resume_target;
6712855Sgabeblack@google.com
6812855Sgabeblack@google.com  void ticker()
6912855Sgabeblack@google.com  {
7012855Sgabeblack@google.com    for (;;)
7112855Sgabeblack@google.com    {
7212855Sgabeblack@google.com      wait(10, SC_NS);
7312855Sgabeblack@google.com      ev.notify();
7412855Sgabeblack@google.com    }
7512855Sgabeblack@google.com  }
7612855Sgabeblack@google.com
7712855Sgabeblack@google.com  void calling()
7812855Sgabeblack@google.com  {
7912855Sgabeblack@google.com    wait(15, SC_NS);
8012855Sgabeblack@google.com    // Target runs at 10 NS
8112855Sgabeblack@google.com
8212855Sgabeblack@google.com    suspend_target = true;
8312855Sgabeblack@google.com    wait(10, SC_NS);
8412855Sgabeblack@google.com    // Target runs at 20 NS and suspends itself
8512855Sgabeblack@google.com
8612855Sgabeblack@google.com    wait(10, SC_NS);
8712855Sgabeblack@google.com    // Target does not run at 30 NS
8812855Sgabeblack@google.com
8912855Sgabeblack@google.com    suspend_target = false;
9012855Sgabeblack@google.com    t.resume();
9112855Sgabeblack@google.com    // Target runs at 35 NS
9212855Sgabeblack@google.com
9312855Sgabeblack@google.com    wait(10, SC_NS);
9412855Sgabeblack@google.com    // Target runs at 40 NS
9512855Sgabeblack@google.com
9612855Sgabeblack@google.com    suspend_target = true;
9712855Sgabeblack@google.com    resume_target = true;
9812855Sgabeblack@google.com    wait(10, SC_NS);
9912855Sgabeblack@google.com    // Target runs at 50 NS
10012855Sgabeblack@google.com
10112855Sgabeblack@google.com    sc_stop();
10212855Sgabeblack@google.com  }
10312855Sgabeblack@google.com
10412855Sgabeblack@google.com  void target()
10512855Sgabeblack@google.com  {
10612855Sgabeblack@google.com    cout << "Target called at " << sc_time_stamp() << endl;
10712855Sgabeblack@google.com    if (suspend_target)
10812855Sgabeblack@google.com      t.suspend();
10912855Sgabeblack@google.com    if (resume_target)
11012855Sgabeblack@google.com    {
11112855Sgabeblack@google.com      t.resume();
11212855Sgabeblack@google.com      suspend_target = false;
11312855Sgabeblack@google.com    }
11412855Sgabeblack@google.com  }
11512855Sgabeblack@google.com
11612855Sgabeblack@google.com  SC_HAS_PROCESS(M5);
11712855Sgabeblack@google.com};
11812855Sgabeblack@google.com
11912855Sgabeblack@google.comint sc_main(int argc, char* argv[])
12012855Sgabeblack@google.com{
12112855Sgabeblack@google.com  M5 m("m");
12212855Sgabeblack@google.com
12312855Sgabeblack@google.com  sc_core::sc_allow_process_control_corners = true;
12412855Sgabeblack@google.com  sc_start();
12512855Sgabeblack@google.com
12612855Sgabeblack@google.com  return 0;
12712855Sgabeblack@google.com}
12812855Sgabeblack@google.com
129