You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
959 lines
43 KiB
VHDL
959 lines
43 KiB
VHDL
-- © IBM Corp. 2020
|
|
-- Licensed under the Apache License, Version 2.0 (the "License"), as modified by
|
|
-- the terms below; you may not use the files in this repository except in
|
|
-- compliance with the License as modified.
|
|
-- You may obtain a copy of the License at http://www.apache.org/licenses/LICENSE-2.0
|
|
--
|
|
-- Modified Terms:
|
|
--
|
|
-- 1) For the purpose of the patent license granted to you in Section 3 of the
|
|
-- License, the "Work" hereby includes implementations of the work of authorship
|
|
-- in physical form.
|
|
--
|
|
-- 2) Notwithstanding any terms to the contrary in the License, any licenses
|
|
-- necessary for implementation of the Work that are available from OpenPOWER
|
|
-- via the Power ISA End User License Agreement (EULA) are explicitly excluded
|
|
-- hereunder, and may be obtained from OpenPOWER under the terms and conditions
|
|
-- of the EULA.
|
|
--
|
|
-- Unless required by applicable law or agreed to in writing, the reference design
|
|
-- 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.
|
|
--
|
|
-- Additional rights, including the ability to physically implement a softcore that
|
|
-- is compliant with the required sections of the Power ISA Specification, are
|
|
-- available at no cost under the terms of the OpenPOWER Power ISA EULA, which can be
|
|
-- obtained (along with the Power ISA) here: https://openpowerfoundation.org.
|
|
|
|
|
|
library ieee,ibm,support,tri,work;
|
|
use ieee.std_logic_1164.all;
|
|
use ibm.std_ulogic_unsigned.all;
|
|
use ibm.std_ulogic_support.all;
|
|
use ibm.std_ulogic_function_support.all;
|
|
use support.power_logic_pkg.all;
|
|
use tri.tri_latches_pkg.all;
|
|
use ibm.std_ulogic_ao_support.all;
|
|
use ibm.std_ulogic_mux_support.all;
|
|
|
|
|
|
|
|
entity fuq_alg is
|
|
generic( expand_type : integer := 2 );
|
|
port(
|
|
|
|
vdd :inout power_logic;
|
|
gnd :inout power_logic;
|
|
clkoff_b :in std_ulogic;
|
|
act_dis :in std_ulogic;
|
|
flush :in std_ulogic;
|
|
delay_lclkr :in std_ulogic_vector(1 to 3);
|
|
mpw1_b :in std_ulogic_vector(1 to 3);
|
|
mpw2_b :in std_ulogic_vector(0 to 0);
|
|
sg_1 :in std_ulogic;
|
|
thold_1 :in std_ulogic;
|
|
fpu_enable :in std_ulogic;
|
|
nclk :in clk_logic;
|
|
|
|
|
|
f_alg_si :in std_ulogic;
|
|
f_alg_so :out std_ulogic;
|
|
rf1_act :in std_ulogic;
|
|
ex1_act :in std_ulogic;
|
|
|
|
f_byp_alg_ex1_b_expo :in std_ulogic_vector(1 to 13);
|
|
f_byp_alg_ex1_a_expo :in std_ulogic_vector(1 to 13);
|
|
f_byp_alg_ex1_c_expo :in std_ulogic_vector(1 to 13);
|
|
f_byp_alg_ex1_b_frac :in std_ulogic_vector(0 to 52);
|
|
f_byp_alg_ex1_b_sign :in std_ulogic;
|
|
|
|
f_fmt_ex1_prod_zero :in std_ulogic;
|
|
f_fmt_ex1_b_zero :in std_ulogic;
|
|
f_fmt_ex1_pass_sel :in std_ulogic;
|
|
f_fmt_ex2_pass_frac :in std_ulogic_vector(0 to 52);
|
|
|
|
f_dcd_rf1_sp :in std_ulogic;
|
|
f_dcd_rf1_from_integer_b :in std_ulogic;
|
|
f_dcd_rf1_to_integer_b :in std_ulogic;
|
|
f_dcd_rf1_word_b :in std_ulogic;
|
|
f_dcd_rf1_uns_b :in std_ulogic;
|
|
|
|
f_pic_ex1_rnd_to_int :in std_ulogic;
|
|
f_pic_ex1_frsp_ue1 :in std_ulogic;
|
|
f_pic_ex1_effsub_raw :in std_ulogic;
|
|
f_pic_ex1_sh_unf_ig_b :in std_ulogic;
|
|
f_pic_ex1_sh_unf_do :in std_ulogic;
|
|
f_pic_ex1_sh_ovf_ig_b :in std_ulogic;
|
|
f_pic_ex1_sh_ovf_do :in std_ulogic;
|
|
f_pic_ex2_rnd_nr :in std_ulogic;
|
|
f_pic_ex2_rnd_inf_ok :in std_ulogic;
|
|
|
|
f_alg_ex1_sign_frmw :out std_ulogic;
|
|
f_alg_ex2_byp_nonflip :out std_ulogic;
|
|
f_alg_ex2_res :out std_ulogic_vector(0 to 162);
|
|
f_alg_ex2_sel_byp :out std_ulogic;
|
|
f_alg_ex2_effsub_eac_b :out std_ulogic;
|
|
f_alg_ex2_prod_z :out std_ulogic;
|
|
f_alg_ex2_sh_unf :out std_ulogic;
|
|
f_alg_ex2_sh_ovf :out std_ulogic;
|
|
f_alg_ex3_frc_sel_p1 :out std_ulogic;
|
|
f_alg_ex3_sticky :out std_ulogic;
|
|
f_alg_ex3_int_fr :out std_ulogic;
|
|
f_alg_ex3_int_fi :out std_ulogic
|
|
);
|
|
|
|
|
|
|
|
end fuq_alg;
|
|
|
|
architecture fuq_alg of fuq_alg is
|
|
|
|
constant tiup : std_ulogic := '1';
|
|
constant tidn : std_ulogic := '0';
|
|
|
|
signal thold_0_b, thold_0, forcee :std_ulogic;
|
|
signal sg_0 :std_ulogic;
|
|
signal ex2_act :std_ulogic;
|
|
signal spare_unused :std_ulogic_vector(0 to 3);
|
|
signal act_so :std_ulogic_vector(0 to 4);
|
|
signal act_si :std_ulogic_vector(0 to 4);
|
|
signal ex1_ctl_so :std_ulogic_vector(0 to 4);
|
|
signal ex1_ctl_si :std_ulogic_vector(0 to 4);
|
|
signal ex2_shd_so, ex2_shd_si :std_ulogic_vector(0 to 67);
|
|
signal ex2_shc_so, ex2_shc_si :std_ulogic_vector(0 to 24);
|
|
signal ex2_ctl_so :std_ulogic_vector(0 to 14);
|
|
signal ex2_ctl_si :std_ulogic_vector(0 to 14);
|
|
signal ex3_ctl_so :std_ulogic_vector(0 to 10);
|
|
signal ex3_ctl_si :std_ulogic_vector(0 to 10);
|
|
signal ex1_from_integer :std_ulogic;
|
|
signal ex2_from_integer :std_ulogic;
|
|
signal ex1_to_integer :std_ulogic;
|
|
signal ex1_sel_special, ex1_sel_special_b, ex2_sel_special_b :std_ulogic;
|
|
signal ex1_sh_ovf :std_ulogic;
|
|
signal ex1_sh_unf_x , ex2_sh_unf_x :std_ulogic;
|
|
signal ex1_sel_byp_nonflip :std_ulogic;
|
|
signal ex1_sel_byp_nonflip_lze :std_ulogic;
|
|
signal ex1_from_integer_neg :std_ulogic;
|
|
signal ex1_integer_op :std_ulogic;
|
|
signal ex1_to_integer_neg :std_ulogic;
|
|
signal ex1_negate :std_ulogic;
|
|
signal ex1_effsub_alg :std_ulogic;
|
|
signal ex2_sh_unf :std_ulogic;
|
|
signal ex2_sel_byp :std_ulogic;
|
|
signal ex2_effsub_alg :std_ulogic;
|
|
signal ex2_prd_sel_pos_hi :std_ulogic;
|
|
signal ex2_prd_sel_neg_hi :std_ulogic;
|
|
signal ex2_prd_sel_pos_lo :std_ulogic;
|
|
signal ex2_prd_sel_neg_lo :std_ulogic;
|
|
signal ex2_prd_sel_pos_lohi :std_ulogic;
|
|
signal ex2_prd_sel_neg_lohi :std_ulogic;
|
|
signal ex2_byp_sel_pos :std_ulogic;
|
|
signal ex2_byp_sel_neg :std_ulogic;
|
|
signal ex2_byp_sel_byp_pos :std_ulogic;
|
|
signal ex2_byp_sel_byp_neg :std_ulogic;
|
|
signal ex2_b_sign :std_ulogic;
|
|
signal ex2_to_integer :std_ulogic;
|
|
signal ex1_sh_lvl2 :std_ulogic_vector(0 to 67) ;
|
|
signal ex2_sh_lvl2, ex2_sh_lvl2_b :std_ulogic_vector(0 to 67) ;
|
|
signal ex2_bsha :std_ulogic_vector(6 to 9) ;
|
|
signal ex2_sticky_en16_x :std_ulogic_vector(0 to 4) ;
|
|
signal ex2_xthrm_6_ns_b :std_ulogic;
|
|
signal ex2_xthrm_7_ns_b :std_ulogic;
|
|
signal ex2_xthrm_8_b :std_ulogic;
|
|
signal ex2_xthrm_8a9_b :std_ulogic;
|
|
signal ex2_xthrm_8o9_b :std_ulogic;
|
|
signal ex2_xthrm7o8a9 :std_ulogic;
|
|
signal ex2_xthrm7o8 :std_ulogic;
|
|
signal ex2_xthrm7o8o9 :std_ulogic;
|
|
signal ex2_xthrm7a8a9 :std_ulogic;
|
|
signal ex2_xthrm_6_ns :std_ulogic;
|
|
signal ex2_ge176_b :std_ulogic;
|
|
signal ex2_ge160_b :std_ulogic;
|
|
signal ex2_ge144_b :std_ulogic;
|
|
signal ex2_ge128_b :std_ulogic;
|
|
signal ex2_ge112_b :std_ulogic;
|
|
signal ex1_bsha_6, ex1_bsha_7, ex1_bsha_8, ex1_bsha_9 :std_ulogic;
|
|
signal ex2_bsha_pos :std_ulogic;
|
|
signal ex2_sh_lvl3 :std_ulogic_vector(0 to 162) ;
|
|
signal ex2_sticky_or16 :std_ulogic_vector(0 to 4) ;
|
|
signal ex1_b_zero :std_ulogic ;
|
|
signal ex2_b_zero, ex2_b_zero_b :std_ulogic ;
|
|
|
|
signal ex1_dp :std_ulogic;
|
|
|
|
signal ex2_byp_nonflip_lze :std_ulogic;
|
|
signal ex2_sel_byp_nonflip :std_ulogic;
|
|
signal ex2_prod_zero :std_ulogic;
|
|
signal ex2_sh_ovf_en, ex2_sh_unf_en, ex2_sh_unf_do :std_ulogic;
|
|
signal ex2_sh_ovf :std_ulogic;
|
|
signal ex2_integer_op :std_ulogic;
|
|
signal ex2_negate :std_ulogic;
|
|
signal ex2_unf_bz :std_ulogic;
|
|
signal ex2_all1_x :std_ulogic;
|
|
signal ex2_ovf_pz :std_ulogic;
|
|
signal ex2_all1_y :std_ulogic;
|
|
signal ex2_sel_special :std_ulogic;
|
|
signal rf1_from_integer , rf1_to_integer , rf1_dp :std_ulogic;
|
|
signal rf1_uns, rf1_word, ex1_uns, ex1_word :std_ulogic;
|
|
signal ex1_word_from, ex2_word_from :std_ulogic;
|
|
signal ex2_rnd_to_int :std_ulogic;
|
|
signal ex1_sign_from :std_ulogic;
|
|
signal ex1_b_frac :std_ulogic_vector(0 to 52);
|
|
signal ex1_b_expo :std_ulogic_vector(1 to 13);
|
|
signal ex1_b_sign :std_ulogic;
|
|
signal ex1_bsha_neg, ex2_bsha_neg : std_ulogic ;
|
|
|
|
|
|
signal ex1_lvl1_shdcd000_b :std_ulogic;
|
|
signal ex1_lvl1_shdcd001_b :std_ulogic;
|
|
signal ex1_lvl1_shdcd002_b :std_ulogic;
|
|
signal ex1_lvl1_shdcd003_b :std_ulogic;
|
|
signal ex1_lvl2_shdcd000 :std_ulogic;
|
|
signal ex1_lvl2_shdcd004 :std_ulogic;
|
|
signal ex1_lvl2_shdcd008 :std_ulogic;
|
|
signal ex1_lvl2_shdcd012 :std_ulogic;
|
|
signal ex1_lvl3_shdcd000 :std_ulogic;
|
|
signal ex1_lvl3_shdcd016 :std_ulogic;
|
|
signal ex1_lvl3_shdcd032 :std_ulogic;
|
|
signal ex1_lvl3_shdcd048 :std_ulogic;
|
|
signal ex1_lvl3_shdcd064 :std_ulogic;
|
|
signal ex1_lvl3_shdcd080 :std_ulogic;
|
|
signal ex1_lvl3_shdcd096 :std_ulogic;
|
|
signal ex1_lvl3_shdcd112 :std_ulogic;
|
|
signal ex1_lvl3_shdcd128 :std_ulogic;
|
|
signal ex1_lvl3_shdcd144 :std_ulogic;
|
|
signal ex1_lvl3_shdcd160 :std_ulogic;
|
|
signal ex1_lvl3_shdcd176 :std_ulogic;
|
|
signal ex1_lvl3_shdcd192 :std_ulogic;
|
|
signal ex1_lvl3_shdcd208 :std_ulogic;
|
|
signal ex1_lvl3_shdcd224 :std_ulogic;
|
|
signal ex1_lvl3_shdcd240 :std_ulogic;
|
|
|
|
signal ex2_lvl3_shdcd000 :std_ulogic;
|
|
signal ex2_lvl3_shdcd016 :std_ulogic;
|
|
signal ex2_lvl3_shdcd032 :std_ulogic;
|
|
signal ex2_lvl3_shdcd048 :std_ulogic;
|
|
signal ex2_lvl3_shdcd064 :std_ulogic;
|
|
signal ex2_lvl3_shdcd080 :std_ulogic;
|
|
signal ex2_lvl3_shdcd096 :std_ulogic;
|
|
signal ex2_lvl3_shdcd112 :std_ulogic;
|
|
signal ex2_lvl3_shdcd128 :std_ulogic;
|
|
signal ex2_lvl3_shdcd144 :std_ulogic;
|
|
signal ex2_lvl3_shdcd160 :std_ulogic;
|
|
signal ex2_lvl3_shdcd176 :std_ulogic;
|
|
signal ex2_lvl3_shdcd192 :std_ulogic;
|
|
signal ex2_lvl3_shdcd208 :std_ulogic;
|
|
signal ex2_lvl3_shdcd224 :std_ulogic;
|
|
signal ex2_lvl3_shdcd240 :std_ulogic;
|
|
|
|
signal ex3_int_fr_nr1_b, ex3_int_fr_nr2_b, ex3_int_fr_ok_b :std_ulogic;
|
|
signal ex3_int_fr :std_ulogic;
|
|
signal ex3_sel_p1_0_b, ex3_sel_p1_1_b :std_ulogic;
|
|
signal ex3_sticky_math :std_ulogic;
|
|
signal ex3_sticky_toint :std_ulogic;
|
|
signal ex3_sticky_toint_nr :std_ulogic;
|
|
signal ex3_sticky_toint_ok :std_ulogic;
|
|
signal ex3_frmneg_o_toneg :std_ulogic;
|
|
signal ex3_frmneg_o_topos :std_ulogic;
|
|
signal ex3_lsb_toint_nr :std_ulogic;
|
|
signal ex3_g_math :std_ulogic;
|
|
signal ex3_g_toint :std_ulogic;
|
|
signal ex3_g_toint_nr :std_ulogic;
|
|
signal ex3_g_toint_ok :std_ulogic;
|
|
signal ex2_frmneg :std_ulogic;
|
|
signal ex2_toneg :std_ulogic;
|
|
signal ex2_topos :std_ulogic;
|
|
signal ex2_frmneg_o_toneg :std_ulogic;
|
|
signal ex2_frmneg_o_topos :std_ulogic;
|
|
signal ex2_toint_gate_x :std_ulogic;
|
|
signal ex2_toint_gate_g :std_ulogic;
|
|
signal ex2_toint_gt_nr_x :std_ulogic;
|
|
signal ex2_toint_gt_nr_g :std_ulogic;
|
|
signal ex2_toint_gt_ok_x :std_ulogic;
|
|
signal ex2_toint_gt_ok_g :std_ulogic;
|
|
signal ex2_math_gate_x :std_ulogic;
|
|
signal ex2_math_gate_g :std_ulogic;
|
|
signal ex2_sticky_eac_x :std_ulogic;
|
|
signal ex2_sticky_math :std_ulogic;
|
|
signal ex2_sticky_toint :std_ulogic;
|
|
signal ex2_sticky_toint_nr :std_ulogic;
|
|
signal ex2_sticky_toint_ok :std_ulogic;
|
|
signal ex2_lsb_toint_nr :std_ulogic;
|
|
signal ex2_g_math :std_ulogic;
|
|
signal ex2_g_toint :std_ulogic;
|
|
signal ex2_g_toint_nr :std_ulogic;
|
|
signal ex2_g_toint_ok :std_ulogic;
|
|
signal ex2_sh16_162, ex2_sh16_163 :std_ulogic;
|
|
signal alg_ex2_d1clk, alg_ex2_d2clk :std_ulogic;
|
|
|
|
signal alg_ex2_lclk :clk_logic;
|
|
|
|
signal ex2_bsha_b :std_ulogic_vector(6 to 9);
|
|
signal ex2_bsha_neg_b :std_ulogic;
|
|
signal ex2_sh_ovf_b :std_ulogic;
|
|
signal ex2_sh_unf_x_b :std_ulogic;
|
|
signal ex2_lvl3_shdcd000_b :std_ulogic;
|
|
signal ex2_lvl3_shdcd016_b :std_ulogic;
|
|
signal ex2_lvl3_shdcd032_b :std_ulogic;
|
|
signal ex2_lvl3_shdcd048_b :std_ulogic;
|
|
signal ex2_lvl3_shdcd064_b :std_ulogic;
|
|
signal ex2_lvl3_shdcd080_b :std_ulogic;
|
|
signal ex2_lvl3_shdcd096_b :std_ulogic;
|
|
signal ex2_lvl3_shdcd112_b :std_ulogic;
|
|
signal ex2_lvl3_shdcd128_b :std_ulogic;
|
|
signal ex2_lvl3_shdcd144_b :std_ulogic;
|
|
signal ex2_lvl3_shdcd160_b :std_ulogic;
|
|
signal ex2_lvl3_shdcd176_b :std_ulogic;
|
|
signal ex2_lvl3_shdcd192_b :std_ulogic;
|
|
signal ex2_lvl3_shdcd208_b :std_ulogic;
|
|
signal ex2_lvl3_shdcd224_b :std_ulogic;
|
|
signal ex2_lvl3_shdcd240_b :std_ulogic;
|
|
signal ex2_b_zero_l2_b :std_ulogic;
|
|
signal ex2_prod_zero_b :std_ulogic;
|
|
signal ex2_byp_nonflip_lze_b :std_ulogic;
|
|
signal ex2_sel_byp_nonflip_b :std_ulogic;
|
|
signal ex2_sh_unf_do_b :std_ulogic;
|
|
signal ex2_sh_unf_en_b :std_ulogic;
|
|
signal ex2_sh_ovf_en_b :std_ulogic;
|
|
signal ex2_effsub_alg_b :std_ulogic;
|
|
signal ex2_negate_b :std_ulogic;
|
|
signal ex2_b_sign_b :std_ulogic;
|
|
signal ex2_to_integer_b :std_ulogic;
|
|
signal ex2_from_integer_b :std_ulogic;
|
|
signal ex2_rnd_to_int_b :std_ulogic;
|
|
signal ex2_integer_op_b :std_ulogic;
|
|
signal ex2_word_from_b :std_ulogic;
|
|
|
|
signal unused :std_ulogic;
|
|
|
|
|
|
begin
|
|
|
|
unused <= ex1_b_expo(1) or ex1_b_expo(2) or
|
|
ex1_dp or
|
|
ex2_lvl3_shdcd176 ;
|
|
|
|
ex1_b_frac(0 to 52) <= f_byp_alg_ex1_b_frac(0 to 52);
|
|
ex1_b_sign <= f_byp_alg_ex1_b_sign ;
|
|
ex1_b_expo(1 to 13) <= f_byp_alg_ex1_b_expo(1 to 13);
|
|
|
|
|
|
thold_reg_0: tri_plat generic map (expand_type => expand_type) port map (
|
|
vd => vdd,
|
|
gd => gnd,
|
|
nclk => nclk,
|
|
flush => flush ,
|
|
din(0) => thold_1,
|
|
q(0) => thold_0 );
|
|
|
|
sg_reg_0: tri_plat generic map (expand_type => expand_type) port map (
|
|
vd => vdd,
|
|
gd => gnd,
|
|
nclk => nclk,
|
|
flush => flush ,
|
|
din(0) => sg_1 ,
|
|
q(0) => sg_0 );
|
|
|
|
|
|
lcbor_0: tri_lcbor generic map (expand_type => expand_type ) port map (
|
|
clkoff_b => clkoff_b,
|
|
thold => thold_0,
|
|
sg => sg_0,
|
|
act_dis => act_dis,
|
|
forcee => forcee,
|
|
thold_b => thold_0_b );
|
|
|
|
|
|
|
|
|
|
|
|
act_lat: tri_rlmreg_p generic map (width=> 5, expand_type => expand_type, needs_sreset => 0) port map (
|
|
vd => vdd,
|
|
gd => gnd,
|
|
forcee => forcee,
|
|
delay_lclkr => delay_lclkr(2) ,
|
|
mpw1_b => mpw1_b(2) ,
|
|
mpw2_b => mpw2_b(0) ,
|
|
nclk => nclk,
|
|
act => fpu_enable,
|
|
thold_b => thold_0_b,
|
|
sg => sg_0,
|
|
scout => act_so ,
|
|
scin => act_si ,
|
|
din(0) => spare_unused(0),
|
|
din(1) => spare_unused(1),
|
|
din(2) => ex1_act,
|
|
din(3) => spare_unused(2),
|
|
din(4) => spare_unused(3),
|
|
dout(0) => spare_unused(0),
|
|
dout(1) => spare_unused(1),
|
|
dout(2) => ex2_act,
|
|
dout(3) => spare_unused(2) ,
|
|
dout(4) => spare_unused(3) );
|
|
|
|
|
|
alg_ex2_lcb : tri_lcbnd generic map (expand_type => expand_type) port map(
|
|
delay_lclkr => delay_lclkr(2) ,
|
|
mpw1_b => mpw1_b(2) ,
|
|
mpw2_b => mpw2_b(0) ,
|
|
forcee => forcee,
|
|
nclk => nclk ,
|
|
vd => vdd ,
|
|
gd => gnd ,
|
|
act => ex1_act ,
|
|
sg => sg_0 ,
|
|
thold_b => thold_0_b ,
|
|
d1clk => alg_ex2_d1clk ,
|
|
d2clk => alg_ex2_d2clk ,
|
|
lclk => alg_ex2_lclk );
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
rf1_from_integer <= not f_dcd_rf1_from_integer_b ;
|
|
rf1_to_integer <= not f_dcd_rf1_to_integer_b ;
|
|
rf1_dp <= not f_dcd_rf1_sp ;
|
|
rf1_word <= not f_dcd_rf1_word_b ;
|
|
rf1_uns <= not f_dcd_rf1_uns_b ;
|
|
|
|
|
|
ex1_ctl_lat: tri_rlmreg_p generic map (width=> 5, expand_type => expand_type, needs_sreset => 0) port map (
|
|
forcee => forcee,
|
|
delay_lclkr => delay_lclkr(1) ,
|
|
mpw1_b => mpw1_b(1) ,
|
|
mpw2_b => mpw2_b(0) ,
|
|
vd => vdd ,
|
|
gd => gnd ,
|
|
nclk => nclk ,
|
|
thold_b => thold_0_b ,
|
|
sg => sg_0 ,
|
|
act => rf1_act ,
|
|
scout => ex1_ctl_so ,
|
|
scin => ex1_ctl_si ,
|
|
din(0) => rf1_from_integer ,
|
|
din(1) => rf1_to_integer ,
|
|
din(2) => rf1_dp ,
|
|
din(3) => rf1_word ,
|
|
din(4) => rf1_uns ,
|
|
dout(0) => ex1_from_integer ,
|
|
dout(1) => ex1_to_integer ,
|
|
dout(2) => ex1_dp ,
|
|
dout(3) => ex1_word ,
|
|
dout(4) => ex1_uns );
|
|
|
|
|
|
|
|
|
|
sha: entity work.fuq_alg_add(fuq_alg_add) generic map (expand_type => expand_type) port map(
|
|
vdd => vdd,
|
|
gnd => gnd,
|
|
f_byp_alg_ex1_b_expo(1 to 13) => f_byp_alg_ex1_b_expo ,
|
|
f_byp_alg_ex1_a_expo(1 to 13) => f_byp_alg_ex1_a_expo ,
|
|
f_byp_alg_ex1_c_expo(1 to 13) => f_byp_alg_ex1_c_expo ,
|
|
ex1_sel_special_b => ex1_sel_special_b ,
|
|
ex1_bsha_6_o => ex1_bsha_6 ,
|
|
ex1_bsha_7_o => ex1_bsha_7 ,
|
|
ex1_bsha_8_o => ex1_bsha_8 ,
|
|
ex1_bsha_9_o => ex1_bsha_9 ,
|
|
ex1_bsha_neg_o => ex1_bsha_neg ,
|
|
ex1_sh_ovf => ex1_sh_ovf ,
|
|
ex1_sh_unf_x => ex1_sh_unf_x ,
|
|
ex1_lvl1_shdcd000_b => ex1_lvl1_shdcd000_b ,
|
|
ex1_lvl1_shdcd001_b => ex1_lvl1_shdcd001_b ,
|
|
ex1_lvl1_shdcd002_b => ex1_lvl1_shdcd002_b ,
|
|
ex1_lvl1_shdcd003_b => ex1_lvl1_shdcd003_b ,
|
|
ex1_lvl2_shdcd000 => ex1_lvl2_shdcd000 ,
|
|
ex1_lvl2_shdcd004 => ex1_lvl2_shdcd004 ,
|
|
ex1_lvl2_shdcd008 => ex1_lvl2_shdcd008 ,
|
|
ex1_lvl2_shdcd012 => ex1_lvl2_shdcd012 ,
|
|
ex1_lvl3_shdcd000 => ex1_lvl3_shdcd000 ,
|
|
ex1_lvl3_shdcd016 => ex1_lvl3_shdcd016 ,
|
|
ex1_lvl3_shdcd032 => ex1_lvl3_shdcd032 ,
|
|
ex1_lvl3_shdcd048 => ex1_lvl3_shdcd048 ,
|
|
ex1_lvl3_shdcd064 => ex1_lvl3_shdcd064 ,
|
|
ex1_lvl3_shdcd080 => ex1_lvl3_shdcd080 ,
|
|
ex1_lvl3_shdcd096 => ex1_lvl3_shdcd096 ,
|
|
ex1_lvl3_shdcd112 => ex1_lvl3_shdcd112 ,
|
|
ex1_lvl3_shdcd128 => ex1_lvl3_shdcd128 ,
|
|
ex1_lvl3_shdcd144 => ex1_lvl3_shdcd144 ,
|
|
ex1_lvl3_shdcd160 => ex1_lvl3_shdcd160 ,
|
|
ex1_lvl3_shdcd176 => ex1_lvl3_shdcd176 ,
|
|
ex1_lvl3_shdcd192 => ex1_lvl3_shdcd192 ,
|
|
ex1_lvl3_shdcd208 => ex1_lvl3_shdcd208 ,
|
|
ex1_lvl3_shdcd224 => ex1_lvl3_shdcd224 ,
|
|
ex1_lvl3_shdcd240 => ex1_lvl3_shdcd240 );
|
|
|
|
ex1_sel_special <= ex1_from_integer ;
|
|
ex1_sel_special_b <= not ex1_from_integer ;
|
|
|
|
|
|
|
|
|
|
ex1_sel_byp_nonflip_lze <=
|
|
( f_fmt_ex1_pass_sel ) or
|
|
( f_pic_ex1_sh_ovf_do ) ;
|
|
|
|
ex1_sel_byp_nonflip <=
|
|
( f_pic_ex1_frsp_ue1 ) or
|
|
( f_fmt_ex1_pass_sel ) or
|
|
( f_pic_ex1_sh_ovf_do ) ;
|
|
|
|
ex1_integer_op <= ex1_from_integer or (ex1_to_integer and not f_pic_ex1_rnd_to_int);
|
|
|
|
|
|
f_alg_ex1_sign_frmw <= ex1_b_frac(21) ;
|
|
|
|
ex1_sign_from <=
|
|
(ex1_from_integer and ex1_word and ex1_b_frac(21) ) or
|
|
(ex1_from_integer and not ex1_word and ex1_b_sign );
|
|
|
|
ex1_from_integer_neg <= ex1_from_integer and ex1_sign_from and not ex1_uns;
|
|
|
|
ex1_word_from <= ex1_word and ex1_from_integer ;
|
|
|
|
ex1_to_integer_neg <= ex1_to_integer and ex1_b_sign and not f_pic_ex1_rnd_to_int;
|
|
|
|
ex1_negate <= f_pic_ex1_effsub_raw or
|
|
ex1_from_integer_neg or
|
|
ex1_to_integer_neg ;
|
|
|
|
ex1_effsub_alg <= f_pic_ex1_effsub_raw and not f_fmt_ex1_pass_sel;
|
|
|
|
ex1_b_zero <= f_fmt_ex1_b_zero;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
sh4: entity work.fuq_alg_sh4(fuq_alg_sh4) generic map (expand_type => expand_type) port map(
|
|
ex1_lvl1_shdcd000_b => ex1_lvl1_shdcd000_b ,
|
|
ex1_lvl1_shdcd001_b => ex1_lvl1_shdcd001_b ,
|
|
ex1_lvl1_shdcd002_b => ex1_lvl1_shdcd002_b ,
|
|
ex1_lvl1_shdcd003_b => ex1_lvl1_shdcd003_b ,
|
|
ex1_lvl2_shdcd000 => ex1_lvl2_shdcd000 ,
|
|
ex1_lvl2_shdcd004 => ex1_lvl2_shdcd004 ,
|
|
ex1_lvl2_shdcd008 => ex1_lvl2_shdcd008 ,
|
|
ex1_lvl2_shdcd012 => ex1_lvl2_shdcd012 ,
|
|
ex1_sel_special => ex1_sel_special ,
|
|
ex1_b_sign => ex1_b_sign ,
|
|
ex1_b_expo(3 to 13) => ex1_b_expo(3 to 13) ,
|
|
ex1_b_frac(0 to 52) => ex1_b_frac(0 to 52) ,
|
|
ex1_sh_lvl2(0 to 67) => ex1_sh_lvl2(0 to 67) );
|
|
|
|
|
|
ex2_shd_lat: entity tri.tri_inv_nlats(tri_inv_nlats) generic map (width=> 68, btr => "NLI0001_X2_A12TH", expand_type => expand_type, needs_sreset => 0 ) port map (
|
|
vd => vdd ,
|
|
gd => gnd ,
|
|
LCLK => alg_ex2_lclk ,
|
|
D1CLK => alg_ex2_d1clk ,
|
|
D2CLK => alg_ex2_d2clk ,
|
|
SCANIN => ex2_shd_si ,
|
|
SCANOUT => ex2_shd_so ,
|
|
D => ex1_sh_lvl2 (0 to 67) ,
|
|
QB => ex2_sh_lvl2_b(0 to 67) );
|
|
|
|
ex2_sh_lvl2(0 to 67) <= not ex2_sh_lvl2_b(0 to 67) ;
|
|
|
|
|
|
ex2_shc_lat: entity tri.tri_inv_nlats(tri_inv_nlats) generic map (width=> 25, btr => "NLI0001_X2_A12TH", expand_type => expand_type, needs_sreset => 0 ) port map (
|
|
vd => vdd ,
|
|
gd => gnd ,
|
|
LCLK => alg_ex2_lclk ,
|
|
D1CLK => alg_ex2_d1clk ,
|
|
D2CLK => alg_ex2_d2clk ,
|
|
SCANIN => ex2_shc_si ,
|
|
SCANOUT => ex2_shc_so ,
|
|
D(0) => ex1_bsha_neg ,
|
|
D(1) => ex1_sh_ovf ,
|
|
D(2) => ex1_sh_unf_x ,
|
|
D(3) => ex1_sel_special ,
|
|
D(4) => ex1_sel_special_b,
|
|
D(5) => ex1_bsha_6 ,
|
|
D(6) => ex1_bsha_7 ,
|
|
D(7) => ex1_bsha_8 ,
|
|
D(8) => ex1_bsha_9 ,
|
|
D(9) => ex1_lvl3_shdcd000 ,
|
|
D(10) => ex1_lvl3_shdcd016 ,
|
|
D(11) => ex1_lvl3_shdcd032 ,
|
|
D(12) => ex1_lvl3_shdcd048 ,
|
|
D(13) => ex1_lvl3_shdcd064 ,
|
|
D(14) => ex1_lvl3_shdcd080 ,
|
|
D(15) => ex1_lvl3_shdcd096 ,
|
|
D(16) => ex1_lvl3_shdcd112 ,
|
|
D(17) => ex1_lvl3_shdcd128 ,
|
|
D(18) => ex1_lvl3_shdcd144 ,
|
|
D(19) => ex1_lvl3_shdcd160 ,
|
|
D(20) => ex1_lvl3_shdcd176 ,
|
|
D(21) => ex1_lvl3_shdcd192 ,
|
|
D(22) => ex1_lvl3_shdcd208 ,
|
|
D(23) => ex1_lvl3_shdcd224 ,
|
|
D(24) => ex1_lvl3_shdcd240 ,
|
|
QB(0) => ex2_bsha_neg_b ,
|
|
QB(1) => ex2_sh_ovf_b ,
|
|
QB(2) => ex2_sh_unf_x_b ,
|
|
QB(3) => ex2_sel_special_b ,
|
|
QB(4) => ex2_sel_special ,
|
|
QB(5) => ex2_bsha_b(6) ,
|
|
QB(6) => ex2_bsha_b(7) ,
|
|
QB(7) => ex2_bsha_b(8) ,
|
|
QB(8) => ex2_bsha_b(9) ,
|
|
QB(9) => ex2_lvl3_shdcd000_b ,
|
|
QB(10) => ex2_lvl3_shdcd016_b ,
|
|
QB(11) => ex2_lvl3_shdcd032_b ,
|
|
QB(12) => ex2_lvl3_shdcd048_b ,
|
|
QB(13) => ex2_lvl3_shdcd064_b ,
|
|
QB(14) => ex2_lvl3_shdcd080_b ,
|
|
QB(15) => ex2_lvl3_shdcd096_b ,
|
|
QB(16) => ex2_lvl3_shdcd112_b ,
|
|
QB(17) => ex2_lvl3_shdcd128_b ,
|
|
QB(18) => ex2_lvl3_shdcd144_b ,
|
|
QB(19) => ex2_lvl3_shdcd160_b ,
|
|
QB(20) => ex2_lvl3_shdcd176_b ,
|
|
QB(21) => ex2_lvl3_shdcd192_b ,
|
|
QB(22) => ex2_lvl3_shdcd208_b ,
|
|
QB(23) => ex2_lvl3_shdcd224_b ,
|
|
QB(24) => ex2_lvl3_shdcd240_b );
|
|
|
|
|
|
ex2_bsha_neg <= not ex2_bsha_neg_b ;
|
|
ex2_sh_ovf <= not ex2_sh_ovf_b ;
|
|
ex2_sh_unf_x <= not ex2_sh_unf_x_b ;
|
|
ex2_bsha(6) <= not ex2_bsha_b(6) ;
|
|
ex2_bsha(7) <= not ex2_bsha_b(7) ;
|
|
ex2_bsha(8) <= not ex2_bsha_b(8) ;
|
|
ex2_bsha(9) <= not ex2_bsha_b(9) ;
|
|
ex2_lvl3_shdcd000 <= not ex2_lvl3_shdcd000_b ;
|
|
ex2_lvl3_shdcd016 <= not ex2_lvl3_shdcd016_b ;
|
|
ex2_lvl3_shdcd032 <= not ex2_lvl3_shdcd032_b ;
|
|
ex2_lvl3_shdcd048 <= not ex2_lvl3_shdcd048_b ;
|
|
ex2_lvl3_shdcd064 <= not ex2_lvl3_shdcd064_b ;
|
|
ex2_lvl3_shdcd080 <= not ex2_lvl3_shdcd080_b ;
|
|
ex2_lvl3_shdcd096 <= not ex2_lvl3_shdcd096_b ;
|
|
ex2_lvl3_shdcd112 <= not ex2_lvl3_shdcd112_b ;
|
|
ex2_lvl3_shdcd128 <= not ex2_lvl3_shdcd128_b ;
|
|
ex2_lvl3_shdcd144 <= not ex2_lvl3_shdcd144_b ;
|
|
ex2_lvl3_shdcd160 <= not ex2_lvl3_shdcd160_b ;
|
|
ex2_lvl3_shdcd176 <= not ex2_lvl3_shdcd176_b ;
|
|
ex2_lvl3_shdcd192 <= not ex2_lvl3_shdcd192_b ;
|
|
ex2_lvl3_shdcd208 <= not ex2_lvl3_shdcd208_b ;
|
|
ex2_lvl3_shdcd224 <= not ex2_lvl3_shdcd224_b ;
|
|
ex2_lvl3_shdcd240 <= not ex2_lvl3_shdcd240_b ;
|
|
|
|
|
|
|
|
|
|
ex2_ctl_lat: entity tri.tri_inv_nlats(tri_inv_nlats) generic map (width=> 15, btr => "NLI0001_X2_A12TH", expand_type => expand_type, needs_sreset => 0 ) port map (
|
|
vd => vdd ,
|
|
gd => gnd ,
|
|
LCLK => alg_ex2_lclk ,
|
|
D1CLK => alg_ex2_d1clk ,
|
|
D2CLK => alg_ex2_d2clk ,
|
|
SCANIN => ex2_ctl_si ,
|
|
SCANOUT => ex2_ctl_so ,
|
|
D(0) => ex1_b_zero ,
|
|
D(1) => f_fmt_ex1_prod_zero ,
|
|
D(2) => ex1_sel_byp_nonflip_lze ,
|
|
D(3) => ex1_sel_byp_nonflip ,
|
|
D(4) => f_pic_ex1_sh_unf_do ,
|
|
D(5) => f_pic_ex1_sh_unf_ig_b ,
|
|
D(6) => f_pic_ex1_sh_ovf_ig_b ,
|
|
D(7) => ex1_effsub_alg ,
|
|
D(8) => ex1_negate ,
|
|
D(9) => ex1_b_sign ,
|
|
D(10) => ex1_to_integer ,
|
|
D(11) => ex1_from_integer ,
|
|
D(12) => f_pic_ex1_rnd_to_int ,
|
|
D(13) => ex1_integer_op ,
|
|
D(14) => ex1_word_from ,
|
|
QB(0) => ex2_b_zero_l2_b ,
|
|
QB(1) => ex2_prod_zero_b ,
|
|
QB(2) => ex2_byp_nonflip_lze_b ,
|
|
QB(3) => ex2_sel_byp_nonflip_b ,
|
|
QB(4) => ex2_sh_unf_do_b ,
|
|
QB(5) => ex2_sh_unf_en_b ,
|
|
QB(6) => ex2_sh_ovf_en_b ,
|
|
QB(7) => ex2_effsub_alg_b ,
|
|
QB(8) => ex2_negate_b ,
|
|
QB(9) => ex2_b_sign_b ,
|
|
QB(10) => ex2_to_integer_b ,
|
|
QB(11) => ex2_from_integer_b ,
|
|
QB(12) => ex2_rnd_to_int_b ,
|
|
QB(13) => ex2_integer_op_b ,
|
|
QB(14) => ex2_word_from_b );
|
|
|
|
|
|
ex2_b_zero <= not ex2_b_zero_l2_b ;
|
|
ex2_prod_zero <= not ex2_prod_zero_b ;
|
|
ex2_byp_nonflip_lze <= not ex2_byp_nonflip_lze_b ;
|
|
ex2_sel_byp_nonflip <= not ex2_sel_byp_nonflip_b ;
|
|
ex2_sh_unf_do <= not ex2_sh_unf_do_b ;
|
|
ex2_sh_unf_en <= not ex2_sh_unf_en_b ;
|
|
ex2_sh_ovf_en <= not ex2_sh_ovf_en_b ;
|
|
ex2_effsub_alg <= not ex2_effsub_alg_b ;
|
|
ex2_negate <= not ex2_negate_b ;
|
|
ex2_b_sign <= not ex2_b_sign_b ;
|
|
ex2_to_integer <= not ex2_to_integer_b ;
|
|
ex2_from_integer <= not ex2_from_integer_b ;
|
|
ex2_rnd_to_int <= not ex2_rnd_to_int_b ;
|
|
ex2_integer_op <= not ex2_integer_op_b ;
|
|
ex2_word_from <= not ex2_word_from_b ;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ex2_xthrm_6_ns_b <= not( ex2_bsha(6) and ex2_sel_special_b );
|
|
ex2_xthrm_7_ns_b <= not( ex2_bsha(7) and ex2_sel_special_b );
|
|
ex2_xthrm_8_b <= not( ex2_bsha(8) );
|
|
ex2_xthrm_8a9_b <= not( ex2_bsha(8) and ex2_bsha(9) );
|
|
ex2_xthrm_8o9_b <= not( ex2_bsha(8) or ex2_bsha(9) );
|
|
|
|
ex2_xthrm7o8a9 <= not( ex2_xthrm_7_ns_b and ex2_xthrm_8a9_b );
|
|
ex2_xthrm7o8 <= not( ex2_xthrm_7_ns_b and ex2_xthrm_8_b );
|
|
ex2_xthrm7o8o9 <= not( ex2_xthrm_7_ns_b and ex2_xthrm_8o9_b );
|
|
ex2_xthrm7a8a9 <= not( ex2_xthrm_7_ns_b or ex2_xthrm_8a9_b );
|
|
ex2_xthrm_6_ns <= not( ex2_xthrm_6_ns_b );
|
|
|
|
ex2_ge176_b <= not( ex2_xthrm_6_ns and ex2_xthrm7o8a9 );
|
|
ex2_ge160_b <= not( ex2_xthrm_6_ns and ex2_xthrm7o8 );
|
|
ex2_ge144_b <= not( ex2_xthrm_6_ns and ex2_xthrm7o8o9 );
|
|
ex2_ge128_b <= not( ex2_xthrm_6_ns );
|
|
ex2_ge112_b <= not( ex2_xthrm_6_ns or ex2_xthrm7a8a9 );
|
|
|
|
ex2_sticky_en16_x(0) <= not ex2_ge176_b ;
|
|
ex2_sticky_en16_x(1) <= not ex2_ge160_b ;
|
|
ex2_sticky_en16_x(2) <= not ex2_ge144_b ;
|
|
ex2_sticky_en16_x(3) <= not ex2_ge128_b ;
|
|
ex2_sticky_en16_x(4) <= not ex2_ge112_b ;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ex2_b_zero_b <= not ex2_b_zero ;
|
|
|
|
|
|
f_alg_ex2_byp_nonflip <= ex2_byp_nonflip_lze ;
|
|
f_alg_ex2_sel_byp <= ex2_sel_byp ;
|
|
f_alg_ex2_effsub_eac_b <= not ex2_effsub_alg ;
|
|
f_alg_ex2_prod_z <= ex2_prod_zero ;
|
|
f_alg_ex2_sh_unf <= ex2_sh_unf ;
|
|
f_alg_ex2_sh_ovf <= ex2_ovf_pz ;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
or16: entity work.fuq_alg_or16(fuq_alg_or16) generic map (expand_type => expand_type) port map (
|
|
ex2_sh_lvl2(0 to 67) => ex2_sh_lvl2(0 to 67) ,
|
|
ex2_sticky_or16(0 to 4) => ex2_sticky_or16(0 to 4) );
|
|
|
|
|
|
sh16: entity work.fuq_alg_sh16(fuq_alg_sh16) generic map (expand_type => expand_type) port map (
|
|
ex2_lvl3_shdcd000 => ex2_lvl3_shdcd000 ,
|
|
ex2_lvl3_shdcd016 => ex2_lvl3_shdcd016 ,
|
|
ex2_lvl3_shdcd032 => ex2_lvl3_shdcd032 ,
|
|
ex2_lvl3_shdcd048 => ex2_lvl3_shdcd048 ,
|
|
ex2_lvl3_shdcd064 => ex2_lvl3_shdcd064 ,
|
|
ex2_lvl3_shdcd080 => ex2_lvl3_shdcd080 ,
|
|
ex2_lvl3_shdcd096 => ex2_lvl3_shdcd096 ,
|
|
ex2_lvl3_shdcd112 => ex2_lvl3_shdcd112 ,
|
|
ex2_lvl3_shdcd128 => ex2_lvl3_shdcd128 ,
|
|
ex2_lvl3_shdcd144 => ex2_lvl3_shdcd144 ,
|
|
ex2_lvl3_shdcd160 => ex2_lvl3_shdcd160 ,
|
|
ex2_lvl3_shdcd192 => ex2_lvl3_shdcd192 ,
|
|
ex2_lvl3_shdcd208 => ex2_lvl3_shdcd208 ,
|
|
ex2_lvl3_shdcd224 => ex2_lvl3_shdcd224 ,
|
|
ex2_lvl3_shdcd240 => ex2_lvl3_shdcd240 ,
|
|
ex2_sel_special => ex2_sel_special ,
|
|
ex2_sh_lvl2(0 to 67) => ex2_sh_lvl2(0 to 67) ,
|
|
ex2_sh16_162 => ex2_sh16_162 ,
|
|
ex2_sh16_163 => ex2_sh16_163 ,
|
|
ex2_sh_lvl3(0 to 162) => ex2_sh_lvl3(0 to 162) );
|
|
|
|
|
|
|
|
ex2_ovf_pz <= ex2_prod_zero or (ex2_sh_ovf and ex2_sh_ovf_en and not ex2_b_zero);
|
|
ex2_sel_byp <= ex2_sel_byp_nonflip or ex2_ovf_pz ;
|
|
ex2_all1_y <= ex2_negate and ex2_ovf_pz ;
|
|
ex2_all1_x <= ex2_negate and ex2_unf_bz ;
|
|
ex2_sh_unf <= ex2_sh_unf_do or ( ex2_sh_unf_en and ex2_sh_unf_x and not ex2_prod_zero);
|
|
ex2_unf_bz <= ex2_b_zero or ex2_sh_unf ;
|
|
|
|
|
|
|
|
|
|
ex2_byp_sel_byp_pos <=
|
|
( ex2_sel_byp_nonflip ) or
|
|
( ex2_ovf_pz and not ex2_integer_op and not ex2_negate and not ex2_unf_bz ) or
|
|
( ex2_ovf_pz and not ex2_integer_op and ex2_all1_x );
|
|
|
|
ex2_byp_sel_byp_neg <= not ex2_sel_byp_nonflip and
|
|
ex2_ovf_pz and not ex2_integer_op and ex2_negate ;
|
|
|
|
ex2_byp_sel_pos <=
|
|
( not ex2_sel_byp and not ex2_integer_op and not ex2_negate and not ex2_unf_bz ) or
|
|
( not ex2_sel_byp and not ex2_integer_op and ex2_all1_x );
|
|
ex2_byp_sel_neg <=
|
|
( not ex2_sel_byp and not ex2_integer_op and ex2_negate );
|
|
|
|
|
|
ex2_prd_sel_pos_hi <= ex2_prd_sel_pos_lo and not ex2_integer_op ;
|
|
ex2_prd_sel_neg_hi <= ex2_prd_sel_neg_lo and not ex2_integer_op ;
|
|
|
|
ex2_prd_sel_pos_lohi <= ex2_prd_sel_pos_lo and not ex2_word_from ;
|
|
ex2_prd_sel_neg_lohi <= ex2_prd_sel_neg_lo and not ex2_word_from ;
|
|
|
|
|
|
ex2_prd_sel_pos_lo <=
|
|
( not ex2_sel_byp_nonflip and not ex2_ovf_pz and not ex2_unf_bz and not ex2_negate ) or
|
|
( not ex2_sel_byp_nonflip and ex2_all1_x ) or
|
|
( not ex2_sel_byp_nonflip and ex2_all1_y ) ;
|
|
ex2_prd_sel_neg_lo <=
|
|
( not ex2_sel_byp_nonflip and ex2_negate ) ;
|
|
|
|
|
|
|
|
bymx: entity work.fuq_alg_bypmux(fuq_alg_bypmux) generic map (expand_type => expand_type) port map (
|
|
ex2_byp_sel_byp_neg => ex2_byp_sel_byp_neg ,
|
|
ex2_byp_sel_byp_pos => ex2_byp_sel_byp_pos ,
|
|
ex2_byp_sel_neg => ex2_byp_sel_neg ,
|
|
ex2_byp_sel_pos => ex2_byp_sel_pos ,
|
|
ex2_prd_sel_neg_hi => ex2_prd_sel_neg_hi ,
|
|
ex2_prd_sel_neg_lo => ex2_prd_sel_neg_lo ,
|
|
ex2_prd_sel_neg_lohi => ex2_prd_sel_neg_lohi ,
|
|
ex2_prd_sel_pos_hi => ex2_prd_sel_pos_hi ,
|
|
ex2_prd_sel_pos_lo => ex2_prd_sel_pos_lo ,
|
|
ex2_prd_sel_pos_lohi => ex2_prd_sel_pos_lohi ,
|
|
ex2_sh_lvl3(0 to 162) => ex2_sh_lvl3(0 to 162) ,
|
|
f_fmt_ex2_pass_frac(0 to 52) => f_fmt_ex2_pass_frac(0 to 52) ,
|
|
f_alg_ex2_res(0 to 162) => f_alg_ex2_res(0 to 162) );
|
|
|
|
|
|
|
|
ex2_frmneg <= ex2_from_integer and ex2_negate;
|
|
ex2_toneg <= (ex2_to_integer and not ex2_rnd_to_int and ex2_b_sign) ;
|
|
ex2_topos <= (ex2_to_integer and not ex2_rnd_to_int and not ex2_b_sign) or ex2_rnd_to_int;
|
|
ex2_frmneg_o_toneg <= ex2_frmneg or ex2_toneg;
|
|
ex2_frmneg_o_topos <= ex2_frmneg or ex2_topos;
|
|
|
|
ex2_math_gate_x <= not ex2_sel_byp_nonflip and ex2_b_zero_b and not ex2_ovf_pz ;
|
|
ex2_toint_gate_x <= ex2_to_integer and ex2_b_zero_b ;
|
|
ex2_toint_gt_nr_x <= ex2_to_integer and ex2_b_zero_b and f_pic_ex2_rnd_nr ;
|
|
ex2_toint_gt_ok_x <= ex2_to_integer and ex2_b_zero_b and f_pic_ex2_rnd_inf_ok ;
|
|
|
|
ex2_math_gate_g <= not ex2_sel_byp_nonflip and not ex2_ovf_pz and ex2_b_zero_b and (ex2_prd_sel_pos_lo or ex2_prd_sel_neg_lo);
|
|
ex2_toint_gate_g <= ex2_to_integer and not ex2_ovf_pz and not ex2_sh_unf and ex2_b_zero_b;
|
|
ex2_toint_gt_nr_g <= ex2_to_integer and not ex2_ovf_pz and not ex2_sh_unf and ex2_b_zero_b and f_pic_ex2_rnd_nr ;
|
|
ex2_toint_gt_ok_g <= ex2_to_integer and not ex2_ovf_pz and not ex2_sh_unf and ex2_b_zero_b and f_pic_ex2_rnd_inf_ok ;
|
|
|
|
ex2_bsha_pos <= not ex2_bsha_neg ;
|
|
|
|
ex2_sticky_eac_x <=
|
|
( (ex2_sh_unf or ex2_sticky_en16_x(0)) and ex2_sticky_or16(0) and ex2_bsha_pos ) or
|
|
( (ex2_sh_unf or ex2_sticky_en16_x(1)) and ex2_sticky_or16(1) and ex2_bsha_pos ) or
|
|
( (ex2_sh_unf or ex2_sticky_en16_x(2)) and ex2_sticky_or16(2) and ex2_bsha_pos ) or
|
|
( (ex2_sh_unf or ex2_sticky_en16_x(3)) and ex2_sticky_or16(3) and ex2_bsha_pos ) or
|
|
( (ex2_sh_unf or ex2_sticky_en16_x(4)) and ex2_sticky_or16(4) and ex2_bsha_pos ) ;
|
|
|
|
|
|
ex2_sticky_math <= ex2_sticky_eac_x and ex2_math_gate_x ;
|
|
ex2_sticky_toint <= ex2_sticky_eac_x and ex2_toint_gate_x;
|
|
ex2_sticky_toint_nr <= ex2_sticky_eac_x and ex2_toint_gt_nr_x;
|
|
ex2_sticky_toint_ok <= ex2_sticky_eac_x and ex2_toint_gt_ok_x ;
|
|
|
|
ex2_lsb_toint_nr <= (ex2_sh16_162 or ex2_rnd_to_int) and ex2_toint_gt_nr_g ;
|
|
|
|
ex2_g_math <= ex2_sh16_163 and ex2_math_gate_g ;
|
|
ex2_g_toint <= ex2_sh16_163 and ex2_toint_gate_g;
|
|
ex2_g_toint_nr <= ex2_sh16_163 and ex2_toint_gt_nr_g ;
|
|
ex2_g_toint_ok <= ex2_sh16_163 and ex2_toint_gt_ok_g ;
|
|
|
|
|
|
|
|
|
|
|
|
ex3_ctl_lat: tri_rlmreg_p generic map (width=> 11, expand_type => expand_type, needs_sreset => 0) port map (
|
|
forcee => forcee,
|
|
delay_lclkr => delay_lclkr(3) ,
|
|
mpw1_b => mpw1_b(3) ,
|
|
mpw2_b => mpw2_b(0) ,
|
|
vd => vdd ,
|
|
gd => gnd ,
|
|
nclk => nclk ,
|
|
thold_b => thold_0_b ,
|
|
sg => sg_0 ,
|
|
act => ex2_act ,
|
|
scout => ex3_ctl_so ,
|
|
scin => ex3_ctl_si ,
|
|
din(0) => ex2_sticky_math ,
|
|
din(1) => ex2_sticky_toint ,
|
|
din(2) => ex2_sticky_toint_nr ,
|
|
din(3) => ex2_sticky_toint_ok ,
|
|
din(4) => ex2_frmneg_o_toneg ,
|
|
din(5) => ex2_frmneg_o_topos ,
|
|
din(6) => ex2_lsb_toint_nr ,
|
|
din(7) => ex2_g_math ,
|
|
din(8) => ex2_g_toint ,
|
|
din(9) => ex2_g_toint_nr ,
|
|
din(10) => ex2_g_toint_ok ,
|
|
dout(0) => ex3_sticky_math ,
|
|
dout(1) => ex3_sticky_toint ,
|
|
dout(2) => ex3_sticky_toint_nr ,
|
|
dout(3) => ex3_sticky_toint_ok ,
|
|
dout(4) => ex3_frmneg_o_toneg ,
|
|
dout(5) => ex3_frmneg_o_topos ,
|
|
dout(6) => ex3_lsb_toint_nr ,
|
|
dout(7) => ex3_g_math ,
|
|
dout(8) => ex3_g_toint ,
|
|
dout(9) => ex3_g_toint_nr ,
|
|
dout(10) => ex3_g_toint_ok );
|
|
|
|
|
|
f_alg_ex3_sticky <= ex3_sticky_math or ex3_g_math ;
|
|
f_alg_ex3_int_fi <= ex3_sticky_toint or ex3_g_toint ;
|
|
|
|
ex3_int_fr_nr1_b <= not( ex3_g_toint_nr and ex3_sticky_toint_nr );
|
|
ex3_int_fr_nr2_b <= not( ex3_g_toint_nr and ex3_lsb_toint_nr );
|
|
ex3_int_fr_ok_b <= not( ex3_g_toint_ok or ex3_sticky_toint_ok );
|
|
ex3_int_fr <= not( ex3_int_fr_nr1_b and ex3_int_fr_nr2_b and ex3_int_fr_ok_b );
|
|
f_alg_ex3_int_fr <= ex3_int_fr ;
|
|
|
|
ex3_sel_p1_0_b <= not( not ex3_int_fr and ex3_frmneg_o_toneg);
|
|
ex3_sel_p1_1_b <= not( ex3_int_fr and ex3_frmneg_o_topos);
|
|
f_alg_ex3_frc_sel_p1 <= not(ex3_sel_p1_0_b and ex3_sel_p1_1_b ) ;
|
|
|
|
|
|
|
|
ex1_ctl_si (0 to 4) <= ex1_ctl_so (1 to 4) & f_alg_si ;
|
|
ex2_shd_si (0 to 67) <= ex2_shd_so (1 to 67) & ex1_ctl_so (0) ;
|
|
ex2_shc_si (0 to 24) <= ex2_shc_so (1 to 24) & ex2_shd_so (0) ;
|
|
ex2_ctl_si (0 to 14) <= ex2_ctl_so (1 to 14) & ex2_shc_so (0) ;
|
|
ex3_ctl_si (0 to 10) <= ex3_ctl_so (1 to 10) & ex2_ctl_so (0) ;
|
|
act_si (0 to 4) <= act_so (1 to 4) & ex3_ctl_so (0) ;
|
|
f_alg_so <= act_so (0) ;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|