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/*****************************************************************************
2112855Sgabeblack@google.com
2212855Sgabeblack@google.com  test.cpp --
2312855Sgabeblack@google.com
2412855Sgabeblack@google.com  Original Author: Martin Janssen, Synopsys, Inc., 2002-02-15
2512855Sgabeblack@google.com
2612855Sgabeblack@google.com *****************************************************************************/
2712855Sgabeblack@google.com
2812855Sgabeblack@google.com/*****************************************************************************
2912855Sgabeblack@google.com
3012855Sgabeblack@google.com  MODIFICATION LOG - modifiers, enter your name, affiliation, date and
3112855Sgabeblack@google.com  changes you are making here.
3212855Sgabeblack@google.com
3312855Sgabeblack@google.com      Name, Affiliation, Date:
3412855Sgabeblack@google.com  Description of Modification:
3512855Sgabeblack@google.com
3612855Sgabeblack@google.com *****************************************************************************/
3712855Sgabeblack@google.com
3812855Sgabeblack@google.com//
3912855Sgabeblack@google.com//	Verifies the functionality of concanetation operation.
4012855Sgabeblack@google.com//	Operands form the rvalue of an assignment
4112855Sgabeblack@google.com//
4212855Sgabeblack@google.com//	Author: PRP
4312855Sgabeblack@google.com//	Date Created: 19 Feb 99
4412855Sgabeblack@google.com//
4512855Sgabeblack@google.com
4612855Sgabeblack@google.com
4712855Sgabeblack@google.com#include "systemc.h"
4812855Sgabeblack@google.com#include "test.h"
4912855Sgabeblack@google.com
5012855Sgabeblack@google.comvoid test::entry()
5112855Sgabeblack@google.com{
5212855Sgabeblack@google.com  sc_lv<8> a;
5312855Sgabeblack@google.com  sc_lv<8> b;
5412855Sgabeblack@google.com  sc_lv<8> c;
5512855Sgabeblack@google.com  sc_lv<8> d;
5612855Sgabeblack@google.com  sc_lv<24> e;
5712855Sgabeblack@google.com  sc_lv<24> f;
5812855Sgabeblack@google.com
5912855Sgabeblack@google.com  // sc_logic k;
6012855Sgabeblack@google.com  // sc_logic n;
6112855Sgabeblack@google.com  // sc_logic m, o, p, q, r, s, t, u;
6212855Sgabeblack@google.com  sc_lv<1> k, n, m, o, p, q, r, s, t, u;
6312855Sgabeblack@google.com
6412855Sgabeblack@google.com  sc_lv<32> x;
6512855Sgabeblack@google.com  sc_lv<32> y;
6612855Sgabeblack@google.com  sc_lv<32> z;
6712855Sgabeblack@google.com
6812855Sgabeblack@google.com  int i,j;
6912855Sgabeblack@google.com
7012855Sgabeblack@google.com  while (true) {
7112855Sgabeblack@google.com
7212855Sgabeblack@google.com  wait ();
7312855Sgabeblack@google.com
7412855Sgabeblack@google.com
7512855Sgabeblack@google.com  b = "00000001";	// 1
7612855Sgabeblack@google.com  c = "00000011";	// 3
7712855Sgabeblack@google.com  d = "00001111";	// 15
7812855Sgabeblack@google.com
7912855Sgabeblack@google.com  // =============== Array + Array ====================================
8012855Sgabeblack@google.com
8112855Sgabeblack@google.com  (a, f) = "00000000000000000000000000000011"; // a = 0, f = 3
8212855Sgabeblack@google.com
8312855Sgabeblack@google.com  // =============== Cascading ====================================
8412855Sgabeblack@google.com  // cascading  array variables
8512855Sgabeblack@google.com  (a, f) = (b, c, d, a);
8612855Sgabeblack@google.com	// a = 00000001  f = "00000011 00001111 00000000"
8712855Sgabeblack@google.com  z = (a, f);
8812855Sgabeblack@google.com
8912855Sgabeblack@google.com  // composing cascaded  array variables
9012855Sgabeblack@google.com  x = ( sc_lv_base( "00000011" ), "00000011", "00000011", "00000101");
9112855Sgabeblack@google.com  (a, (b, c, d)) = x;
9212855Sgabeblack@google.com  z = z | x;	// z = 00000011 00000011 00001111 00000101
9312855Sgabeblack@google.com
9412855Sgabeblack@google.com  // =============== Array (variable) + Scalar ==============================
9512855Sgabeblack@google.com
9612855Sgabeblack@google.com  (b, c, d, a.range (7, 2), k, n) = (a, b, c, d);
9712855Sgabeblack@google.com	// b = 00000011  c = 00000011  d = 00000011 a = 00000111
9812855Sgabeblack@google.com	// k = 0  n = 1
9912855Sgabeblack@google.com  z = z | (a, b, c, d); // z = 00000111 00000011 00001111 00000111
10012855Sgabeblack@google.com
10112855Sgabeblack@google.com  ( k, m, a.range (5, 0)) = z.range (15, 8);
10212855Sgabeblack@google.com	// k = 0  m = 0  a = 00001111
10312855Sgabeblack@google.com  z = z | ( sc_lv_base( n ), m, k, n, "0000", a, "0000000000000000");
10412855Sgabeblack@google.com	// z = 10010111 00001111 00001111 00000111
10512855Sgabeblack@google.com
10612855Sgabeblack@google.com  // =============== Null Vector ====================================
10712855Sgabeblack@google.com
10812855Sgabeblack@google.com  ( m, n, o, p, q, r, s, t ) = "11011010";
10912855Sgabeblack@google.com  a = ( sc_lv_base( s ), t, q, r, o, m, n, p);	// a = "10100111"
11012855Sgabeblack@google.com  z = (z.range (31, 8), a); 	// z = 10010111 00001111 00001111 10100111
11112855Sgabeblack@google.com
11212855Sgabeblack@google.com  b = "00000000";
11312855Sgabeblack@google.com
11412855Sgabeblack@google.com  z =  z | (b, b, b, z.range (7, 0));
11512855Sgabeblack@google.com
11612855Sgabeblack@google.com  // =============== LHS/RHS of different widths ==============================
11712855Sgabeblack@google.com
11812855Sgabeblack@google.com  (x.range (15, 0), x.range (31, 16)) = ("1001011100001111000011111010011101");
11912855Sgabeblack@google.com  // RHS is (z, "01")
12012855Sgabeblack@google.com  // x = 00111110 10011101 01011100 00111100
12112855Sgabeblack@google.com
12212855Sgabeblack@google.com  (z.range (31, 16), z.range (15, 0)) = (x.range (7, 0), x.range (23, 16),
12312855Sgabeblack@google.com					 x.range (15, 8), x.range (31, 24));
12412855Sgabeblack@google.com	// z = 00111100 10011101 01011100 00111110
12512855Sgabeblack@google.com
12612855Sgabeblack@google.com  o1 = z.to_int();
12712855Sgabeblack@google.com  wait();
12812855Sgabeblack@google.com
12912855Sgabeblack@google.com  }
13012855Sgabeblack@google.com}
13112855Sgabeblack@google.com
132