From 16fa8d7cc8c92f5ab879e4cf9c6c0bbb3567860f Mon Sep 17 00:00:00 2001 From: Gabe Black Date: Thu, 24 May 2018 01:37:55 -0700 Subject: systemc: Import tests from the Accellera systemc distribution. Change-Id: Iad76b398949a55d768a34d027a2d8e3739953da6 Reviewed-on: https://gem5-review.googlesource.com/10845 Reviewed-by: Giacomo Travaglini Maintainer: Gabe Black --- .../datatypes/fx/shift/operator_shift_both.cpp | 109 +++++++++++++++++++++ 1 file changed, 109 insertions(+) create mode 100644 src/systemc/tests/systemc/datatypes/fx/shift/operator_shift_both.cpp (limited to 'src/systemc/tests/systemc/datatypes/fx/shift/operator_shift_both.cpp') diff --git a/src/systemc/tests/systemc/datatypes/fx/shift/operator_shift_both.cpp b/src/systemc/tests/systemc/datatypes/fx/shift/operator_shift_both.cpp new file mode 100644 index 000000000..3d3eef3e8 --- /dev/null +++ b/src/systemc/tests/systemc/datatypes/fx/shift/operator_shift_both.cpp @@ -0,0 +1,109 @@ +/***************************************************************************** + + Licensed to Accellera Systems Initiative Inc. (Accellera) under one or + more contributor license agreements. See the NOTICE file distributed + with this work for additional information regarding copyright ownership. + Accellera licenses this file to you under the Apache License, Version 2.0 + (the "License"); you may not use this file except in compliance with the + License. You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + + Unless required by applicable law or agreed to in writing, software + distributed under the License is distributed on an "AS IS" BASIS, + WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or + implied. See the License for the specific language governing + permissions and limitations under the License. + + *****************************************************************************/ + +/***************************************************************************** + + operator_shift_both.cpp -- + + Original Author: Martin Janssen, Synopsys, Inc., 2002-02-15 + + *****************************************************************************/ + +/***************************************************************************** + + MODIFICATION LOG - modifiers, enter your name, affiliation, date and + changes you are making here. + + Name, Affiliation, Date: + Description of Modification: + + *****************************************************************************/ + +// This may look like C code, but it is really -*- C++ -*- +// +// operator_shift_both.cxx -- +// Copyright Synopsys 1998 +// Author : Ric Hilderink +// Created On : Fri Jan 15 14:08:43 1999 +// Status : none +// + + +#include +#define SC_INCLUDE_FX +#include "systemc.h" + + + +#define T_FX_FLOAT sc_fxval +#define T_FX_UFIX sc_ufix +#define T_FX_FIX sc_fix +#define T_FX_FIXED sc_fixed +#define T_FX_UFIXED sc_ufixed + +#define SHOW(i, a) \ + out << i << " : " << a.to_string(SC_BIN) << "\n"; + + +#define SHIFT_BOTH_OP(T_op) \ +{ \ + sc_fxtype_params fooc(T_WL, T_IWL, SC_TRN, SC_WRAP); \ + \ + T_op r(2); \ + int i; \ + for (i = 0; i < T_WL+10; ++i) \ + { \ + r -= 1; \ + r >>= 1; \ + SHOW(i, r); \ + } \ + r *= 1.010203; \ + for (i = 0; i < T_WL+10; ++i) \ + { \ + r -= 1; \ + r <<= 1; \ + SHOW(i, r); \ + } \ +} + +#define SHIFT_BOTH \ +SHIFT_BOTH_OP(T_FX_FLOAT) \ +SHIFT_BOTH_OP(T_FX_UFIX) \ +SHIFT_BOTH_OP(T_FX_FIX) \ +SHIFT_BOTH_OP(T_FX_FIXED) \ +SHIFT_BOTH_OP(T_FX_UFIXED) + + + +void operator_shift_both(ostream& out) +{ +#define T_WL 26 +#define T_IWL 13 + SHIFT_BOTH; +#undef T_WL +#undef T_IWL +#define T_WL 130 +#define T_IWL 65 + SHIFT_BOTH; +#undef T_WL +#undef T_IWL +#define T_WL 300 +#define T_IWL 150 + SHIFT_BOTH; +} -- cgit v1.2.3