library ieee;
|
library ieee;
|
use ieee.std_logic_1164.all;
|
use ieee.std_logic_1164.all;
|
use ieee.std_logic_arith.all;
|
use ieee.std_logic_arith.all;
|
use ieee.math_real.all;
|
use ieee.math_real.all;
|
|
|
library std;
|
library std;
|
use std.textio.all;
|
use std.textio.all;
|
|
|
|
|
|
|
--! Memory Compiler Library
|
--! Memory Compiler Library
|
|
library altera_mf;
|
|
use altera_mf.all;
|
library lpm;
|
library lpm;
|
use lpm.all;
|
use lpm.all;
|
|
|
|
|
|
|
package arithpack is
|
package arithpack is
|
--! Estados para la maquina de estados.
|
--! Estados para la maquina de estados.
|
type macState is (LOAD_INSTRUCTION,FLUSH_ARITH_PIPELINE,EXECUTE_INSTRUCTION);
|
type macState is (LOAD_INSTRUCTION,FLUSH_ARITH_PIPELINE,EXECUTE_INSTRUCTION);
|
--! Estados para el controlador de interrupciones.
|
--! Estados para el controlador de interrupciones.
|
type iCtrlState is (WAITING_FOR_AN_EVENT,FIRING_INTERRUPTIONS,SUSPEND);
|
type iCtrlState is (WAITING_FOR_AN_EVENT,FIRING_INTERRUPTIONS,SUSPEND);
|
|
|
--! Float data blocks
|
--! Float data blocks
|
constant floatwidth : integer := 32;
|
constant floatwidth : integer := 32;
|
constant widthadmemblock : integer := 9;
|
constant widthadmemblock : integer := 9;
|
|
|
|
|
subtype xfloat32 is std_logic_vector(31 downto 0);
|
subtype xfloat32 is std_logic_vector(31 downto 0);
|
type v3f is array(02 downto 0) of xfloat32;
|
type v3f is array(02 downto 0) of xfloat32;
|
|
|
--! Constantes para definir
|
--! Constantes para definir
|
|
|
--!type vectorblock12 is array (11 downto 0) of std_logic_vector(floatwidth-1 downto 0);
|
--!type vectorblock12 is array (11 downto 0) of std_logic_vector(floatwidth-1 downto 0);
|
type vectorblock12 is array (11 downto 0) of xfloat32;
|
type vectorblock12 is array (11 downto 0) of xfloat32;
|
|
|
type vectorblock08 is array (07 downto 0) of xfloat32;
|
type vectorblock08 is array (07 downto 0) of xfloat32;
|
type vectorblock06 is array (05 downto 0) of std_logic_vector(floatwidth-1 downto 0);
|
type vectorblock06 is array (05 downto 0) of std_logic_vector(floatwidth-1 downto 0);
|
type vectorblock04 is array (03 downto 0) of std_logic_vector(floatwidth-1 downto 0);
|
type vectorblock04 is array (03 downto 0) of std_logic_vector(floatwidth-1 downto 0);
|
type vectorblock03 is array (02 downto 0) of std_logic_vector(floatwidth-1 downto 0);
|
type vectorblock03 is array (02 downto 0) of std_logic_vector(floatwidth-1 downto 0);
|
type vectorblock02 is array (01 downto 0) of std_logic_vector(floatwidth-1 downto 0);
|
type vectorblock02 is array (01 downto 0) of std_logic_vector(floatwidth-1 downto 0);
|
type vectorblockadd02 is array (01 downto 0) of std_logic_vector(widthadmemblock-1 downto 0);
|
type vectorblockadd02 is array (01 downto 0) of std_logic_vector(widthadmemblock-1 downto 0);
|
|
|
|
|
|
|
|
|
|
|
--! Constante de reseteo
|
--! Constante de reseteo
|
constant rstMasterValue : std_logic :='0';
|
constant rstMasterValue : std_logic :='0';
|
--! Constantes periodicas.
|
--! Constantes periodicas.
|
constant tclk : time := 20 ns;
|
constant tclk : time := 20 ns;
|
constant tclk_2 : time := tclk/2;
|
constant tclk_2 : time := tclk/2;
|
constant tclk_4 : time := tclk/4;
|
constant tclk_4 : time := tclk/4;
|
|
|
|
|
component raytrac
|
component raytrac
|
port (
|
port (
|
|
|
clk : in std_logic;
|
clk : in std_logic;
|
rst : in std_logic;
|
rst : in std_logic;
|
|
|
--! Señal de lectura de alguna de las colas de resultados.
|
--! Señal de lectura de alguna de las colas de resultados.
|
rd : in std_logic;
|
rd : in std_logic;
|
|
|
--! Señal de escritura en alguno de los bloques de memoria de operandos o en la cola de instrucciones.
|
--! Señal de escritura en alguno de los bloques de memoria de operandos o en la cola de instrucciones.
|
wr : in std_logic;
|
wr : in std_logic;
|
|
|
--! Direccion de escritura o lectura
|
--! Direccion de escritura o lectura
|
add : in std_logic_vector (12 downto 0);
|
add : in std_logic_vector (12 downto 0);
|
|
|
--! datos de entrada
|
--! datos de entrada
|
d : in std_logic_vector (31 downto 0);
|
d : in std_logic_vector (31 downto 0);
|
|
|
--! Interrupciones
|
--! Interrupciones
|
int : out std_logic_vector (7 downto 0);
|
int : out std_logic_vector (7 downto 0);
|
|
|
--! Salidas
|
--! Salidas
|
q : out std_logic_vector (31 downto 0)
|
q : out std_logic_vector (31 downto 0)
|
|
|
|
|
|
|
);
|
);
|
end component;
|
end component;
|
|
|
--! Componentes Aritméticos
|
--! Componentes Aritméticos
|
|
|
component fadd32
|
component fadd32
|
port (
|
port (
|
clk : in std_logic;
|
clk : in std_logic;
|
dpc : in std_logic;
|
dpc : in std_logic;
|
a32 : in xfloat32;
|
a32 : in xfloat32;
|
b32 : in xfloat32;
|
b32 : in xfloat32;
|
c32 : out xfloat32
|
c32 : out xfloat32
|
);
|
);
|
end component;
|
end component;
|
component fmul32
|
component fmul32
|
port (
|
port (
|
clk : in std_logic;
|
clk : in std_logic;
|
a32 : in xfloat32;
|
a32 : in xfloat32;
|
b32 : in xfloat32;
|
b32 : in xfloat32;
|
p32 : out xfloat32
|
p32 : out xfloat32
|
);
|
);
|
end component;
|
end component;
|
|
|
|
|
--! Contadores para la máquina de estados.
|
--! Contadores para la máquina de estados.
|
|
|
component customCounter
|
component customCounter
|
generic (
|
generic (
|
EOBFLAG : string ;
|
EOBFLAG : string ;
|
ZEROFLAG : string ;
|
ZEROFLAG : string ;
|
BACKWARDS : string ;
|
BACKWARDS : string ;
|
EQUALFLAG : string ;
|
EQUALFLAG : string ;
|
subwidth : integer;
|
subwidth : integer;
|
width : integer
|
width : integer
|
|
|
);
|
);
|
port (
|
port (
|
clk,rst,go,set : in std_logic;
|
clk,rst,go,set : in std_logic;
|
setValue,cmpBlockValue : in std_Logic_vector(width-1 downto subwidth);
|
setValue,cmpBlockValue : in std_Logic_vector(width-1 downto subwidth);
|
zero_flag,eob_flag,eq_flag : out std_logic;
|
zero_flag,eob_flag,eq_flag : out std_logic;
|
count : out std_logic_vector(width-1 downto 0)
|
count : out std_logic_vector(width-1 downto 0)
|
);
|
);
|
end component;
|
end component;
|
|
|
--! LPM_MULTIPLIER
|
--! LPM_MULTIPLIER
|
component lpm_mult
|
component lpm_mult
|
generic (
|
generic (
|
lpm_hint : string;
|
lpm_hint : string;
|
lpm_pipeline : natural;
|
lpm_pipeline : natural;
|
lpm_representation : string;
|
lpm_representation : string;
|
lpm_type : string;
|
lpm_type : string;
|
lpm_widtha : natural;
|
lpm_widtha : natural;
|
lpm_widthb : natural;
|
lpm_widthb : natural;
|
lpm_widthp : natural
|
lpm_widthp : natural
|
);
|
);
|
port (
|
port (
|
dataa : in std_logic_vector ( lpm_widtha-1 downto 0 );
|
dataa : in std_logic_vector ( lpm_widtha-1 downto 0 );
|
datab : in std_logic_vector ( lpm_widthb-1 downto 0 );
|
datab : in std_logic_vector ( lpm_widthb-1 downto 0 );
|
result : out std_logic_vector( lpm_widthp-1 downto 0 )
|
result : out std_logic_vector( lpm_widthp-1 downto 0 )
|
);
|
);
|
end component;
|
end component;
|
--! LPM Memory Compiler.
|
--! LPM Memory Compiler.
|
component scfifo
|
component scfifo
|
generic (
|
generic (
|
add_ram_output_register :string;
|
add_ram_output_register :string;
|
almost_full_value :natural;
|
almost_full_value :natural;
|
allow_wrcycle_when_full :string;
|
allow_rwcycle_when_full :string;
|
intended_device_family :string;
|
intended_device_family :string;
|
lpm_hint :string;
|
lpm_hint :string;
|
lpm_numwords :natural;
|
lpm_numwords :natural;
|
lpm_showahead :string;
|
lpm_showahead :string;
|
lpm_type :string;
|
lpm_type :string;
|
lpm_width :natural;
|
lpm_width :natural;
|
lpm_widthu :natural;
|
lpm_widthu :natural;
|
overflow_checking :string;
|
overflow_checking :string;
|
underflow_checking :string;
|
underflow_checking :string;
|
use_eab :string
|
use_eab :string
|
);
|
);
|
port(
|
port(
|
rdreq : in std_logic;
|
rdreq : in std_logic;
|
aclr : in std_logic;
|
aclr : in std_logic;
|
empty : out std_logic;
|
empty : out std_logic;
|
clock : in std_logic;
|
clock : in std_logic;
|
q : out std_logic_vector(lpm_width-1 downto 0);
|
q : out std_logic_vector(lpm_width-1 downto 0);
|
wrreq : in std_logic;
|
wrreq : in std_logic;
|
data : in std_logic_vector(lpm_width-1 downto 0);
|
data : in std_logic_vector(lpm_width-1 downto 0);
|
almost_full : out std_logic;
|
almost_full : out std_logic;
|
full : out std_logic
|
full : out std_logic
|
);
|
);
|
end component;
|
end component;
|
|
|
|
|
component altsyncram
|
component altsyncram
|
generic (
|
generic (
|
address_aclr_b : string;
|
address_aclr_b : string;
|
address_reg_b : string;
|
address_reg_b : string;
|
clock_enable_input_a : string;
|
clock_enable_input_a : string;
|
clock_enable_input_b : string;
|
clock_enable_input_b : string;
|
clock_enable_output_b : string;
|
clock_enable_output_b : string;
|
intended_device_family : string;
|
intended_device_family : string;
|
lpm_type : string;
|
lpm_type : string;
|
numwords_a : natural;
|
numwords_a : natural;
|
numwords_b : natural;
|
numwords_b : natural;
|
operation_mode : string;
|
operation_mode : string;
|
outdata_aclr_b : string;
|
outdata_aclr_b : string;
|
outdata_reg_b : string;
|
outdata_reg_b : string;
|
power_up_uninitialized : string;
|
power_up_uninitialized : string;
|
ram_block_type : string;
|
ram_block_type : string;
|
rdcontrol_reg_b : string;
|
rdcontrol_reg_b : string;
|
read_during_write_mode_mixed_ports : string;
|
read_during_write_mode_mixed_ports : string;
|
widthad_a : natural;
|
widthad_a : natural;
|
widthad_b : natural;
|
widthad_b : natural;
|
width_a : natural;
|
width_a : natural;
|
width_b : natural;
|
width_b : natural;
|
width_byteena_a : natural
|
width_byteena_a : natural
|
);
|
);
|
port (
|
port (
|
wren_a : in std_logic;
|
wren_a : in std_logic;
|
clock0 : in std_logic;
|
clock0 : in std_logic;
|
address_a : in std_logic_vector(8 downto 0);
|
address_a : in std_logic_vector(8 downto 0);
|
address_b : in std_logic_vector(8 downto 0);
|
address_b : in std_logic_vector(8 downto 0);
|
rden_b : in std_logic;
|
rden_b : in std_logic;
|
q_b : out std_logic_vector(31 downto 0);
|
q_b : out std_logic_vector(31 downto 0);
|
data_a : in std_logic_vector(31 downto 0)
|
data_a : in std_logic_vector(31 downto 0)
|
|
|
);
|
);
|
end component;
|
end component;
|
|
|
--! Maquina de Estados.
|
--! Maquina de Estados.
|
component sm
|
component sm
|
|
|
port (
|
port (
|
|
|
--! Señales normales de secuencia.
|
--! Señales normales de secuencia.
|
clk,rst: in std_logic;
|
clk,rst: in std_logic;
|
--! Vector con las instrucción codficada
|
--! Vector con las instrucción codficada
|
instrQq:in std_logic_vector(31 downto 0);
|
instrQq:in std_logic_vector(31 downto 0);
|
--! Señal de cola vacia.
|
--! Señal de cola vacia.
|
instrQ_empty:in std_logic;
|
instrQ_empty:in std_logic;
|
adda,addb:out std_logic_vector (8 downto 0);
|
adda,addb:out std_logic_vector (8 downto 0);
|
sync_chain_0,instrRdAckd:out std_logic;
|
sync_chain_0,instrRdAckd:out std_logic;
|
full_r: in std_logic; --! Indica que la cola de resultados no puede aceptar mas de 32 elementos.
|
full_r: in std_logic; --! Indica que la cola de resultados no puede aceptar mas de 32 elementos.
|
--! End Of Instruction Event
|
--! End Of Instruction Event
|
eoi : out std_logic;
|
eoi : out std_logic;
|
|
|
--! DataPath Control uca code.
|
--! DataPath Control uca code.
|
dpc_uca : out std_logic_vector (2 downto 0);
|
dpc_uca : out std_logic_vector (2 downto 0);
|
state : out macState
|
state : out macState
|
);
|
);
|
end component;
|
end component;
|
--! Maquina de Interrupciones
|
--! Maquina de Interrupciones
|
component im
|
component im
|
generic (
|
generic (
|
num_events : integer ;
|
num_events : integer ;
|
cycles_to_wait : integer
|
cycles_to_wait : integer
|
);
|
);
|
port (
|
port (
|
clk,rst: in std_logic;
|
clk,rst: in std_logic;
|
rfull_events: in std_logic_vector(num_events-1 downto 0); --! full results queue events
|
rfull_events: in std_logic_vector(num_events-1 downto 0); --! full results queue events
|
eoi_events: in std_logic_vector(num_events-1 downto 0); --! end of instruction related events
|
eoi_events: in std_logic_vector(num_events-1 downto 0); --! end of instruction related events
|
eoi_int: out std_logic_vector(num_events-1 downto 0);--! end of instruction related interruptions
|
eoi_int: out std_logic_vector(num_events-1 downto 0);--! end of instruction related interruptions
|
rfull_int: out std_logic_vector(num_events-1downto 0); --! full results queue related interruptions
|
rfull_int: out std_logic_vector(num_events-1downto 0); --! full results queue related interruptions
|
state: out iCtrlState
|
state: out iCtrlState
|
);
|
);
|
end component;
|
end component;
|
--! Bloque de memorias
|
--! Bloque de memorias
|
component memblock
|
component memblock
|
generic (
|
generic (
|
blocksize : integer;
|
blocksize : integer;
|
external_readable_widthad : integer;
|
external_readable_widthad : integer;
|
external_writeable_widthad : integer
|
external_writeable_widthad : integer
|
);
|
);
|
port (
|
port (
|
|
|
|
|
clk,rst,dpfifo_rd,normfifo_rd,dpfifo_wr,normfifo_wr : in std_logic;
|
clk,rst,dpfifo_rd,normfifo_rd,dpfifo_wr,normfifo_wr : in std_logic;
|
instrfifo_rd : in std_logic;
|
instrfifo_rd : in std_logic;
|
resultfifo_wr: in std_logic_vector(8-1 downto 0);
|
resultfifo_wr: in std_logic_vector(8-1 downto 0);
|
instrfifo_empty: out std_logic; ext_rd,ext_wr: in std_logic;
|
instrfifo_empty: out std_logic; ext_rd,ext_wr: in std_logic;
|
ext_wr_add : in std_logic_vector(external_writeable_widthad+widthadmemblock-1 downto 0);
|
ext_wr_add : in std_logic_vector(external_writeable_widthad+widthadmemblock-1 downto 0);
|
ext_rd_add : in std_logic_vector(external_readable_widthad-1 downto 0);
|
ext_rd_add : in std_logic_vector(external_readable_widthad-1 downto 0);
|
ext_d: in std_logic_vector(floatwidth-1 downto 0);
|
ext_d: in std_logic_vector(floatwidth-1 downto 0);
|
int_d : in vectorblock08;
|
int_d : in vectorblock08;
|
resultfifo_full : out std_logic_vector(3 downto 0);
|
resultfifo_full : out std_logic_vector(3 downto 0);
|
ext_q,instrfifo_q : out std_logic_vector(floatwidth-1 downto 0);
|
ext_q,instrfifo_q : out std_logic_vector(floatwidth-1 downto 0);
|
int_q : out vectorblock12;
|
int_q : out vectorblock12;
|
int_rd_add : in std_logic_vector(2*widthadmemblock-1 downto 0);
|
int_rd_add : in std_logic_vector(2*widthadmemblock-1 downto 0);
|
dpfifo_d : in std_logic_vector(floatwidth*2-1 downto 0);
|
dpfifo_d : in std_logic_vector(floatwidth*2-1 downto 0);
|
normfifo_d : in std_logic_vector(floatwidth*3-1 downto 0);
|
normfifo_d : in std_logic_vector(floatwidth*3-1 downto 0);
|
dpfifo_q : out std_logic_vector(floatwidth*2-1 downto 0);
|
dpfifo_q : out std_logic_vector(floatwidth*2-1 downto 0);
|
normfifo_q : out std_logic_vector(floatwidth*3-1 downto 0)
|
normfifo_q : out std_logic_vector(floatwidth*3-1 downto 0)
|
);
|
);
|
end component;
|
end component;
|
--! Bloque decodificacion DataPath Control.
|
--! Bloque decodificacion DataPath Control.
|
component dpc
|
component dpc
|
port (
|
port (
|
clk,rst : in std_logic;
|
clk,rst : in std_logic;
|
paraminput : in vectorblock12; --! Vectores A,B,C,D
|
paraminput : in vectorblock12; --! Vectores A,B,C,D
|
prd32blko : in vectorblock06; --! Salidas de los 6 multiplicadores.
|
prd32blko : in vectorblock06; --! Salidas de los 6 multiplicadores.
|
add32blko : in vectorblock04; --! Salidas de los 4 sumadores.
|
add32blko : in vectorblock04; --! Salidas de los 4 sumadores.
|
sqr32blko,inv32blko : in std_logic_vector (floatwidth-1 downto 0); --! Salidas de la raiz cuadradas y el inversor.
|
sqr32blko,inv32blko : in std_logic_vector (floatwidth-1 downto 0); --! Salidas de la raiz cuadradas y el inversor.
|
fifo32x23_q : in std_logic_vector (03*floatwidth-1 downto 0); --! Salida de la cola intermedia.
|
fifo32x23_q : in std_logic_vector (03*floatwidth-1 downto 0); --! Salida de la cola intermedia.
|
fifo32x09_q : in std_logic_vector (02*floatwidth-1 downto 0); --! Salida de las colas de producto punto.
|
fifo32x09_q : in std_logic_vector (02*floatwidth-1 downto 0); --! Salida de las colas de producto punto.
|
unary,crossprod,addsub : in std_logic; --! Bit con el identificador del bloque AB vs CD e identificador del sub bloque (A/B) o (C/D).
|
unary,crossprod,addsub : in std_logic; --! Bit con el identificador del bloque AB vs CD e identificador del sub bloque (A/B) o (C/D).
|
sync_chain_0 : in std_logic; --! Señal de dato valido que se va por toda la cadena de sincronizacion.
|
sync_chain_0 : in std_logic; --! Señal de dato valido que se va por toda la cadena de sincronizacion.
|
eoi_int : in std_logic; --! Señal de interrupción de final de instrucci&ocaute;n.
|
eoi_int : in std_logic; --! Señal de interrupción de final de instrucci&ocaute;n.
|
eoi_demuxed_int : out std_logic_vector (3 downto 0); --! Señal de interrup&ocaute;n de final de instrucción pero esta vez va asociada a la instruccón UCA.
|
eoi_demuxed_int : out std_logic_vector (3 downto 0); --! Señal de interrup&ocaute;n de final de instrucción pero esta vez va asociada a la instruccón UCA.
|
sqr32blki,inv32blki : out std_logic_vector (floatwidth-1 downto 0); --! Salidas de las 2 raices cuadradas y los 2 inversores.
|
sqr32blki,inv32blki : out std_logic_vector (floatwidth-1 downto 0); --! Salidas de las 2 raices cuadradas y los 2 inversores.
|
fifo32x26_d : out std_logic_vector (03*floatwidth-1 downto 0); --! Entrada a la cola intermedia para la normalización.
|
fifo32x26_d : out std_logic_vector (03*floatwidth-1 downto 0); --! Entrada a la cola intermedia para la normalización.
|
fifo32x09_d : out std_logic_vector (02*floatwidth-1 downto 0); --! Entrada a las colas intermedias del producto punto.
|
fifo32x09_d : out std_logic_vector (02*floatwidth-1 downto 0); --! Entrada a las colas intermedias del producto punto.
|
prd32blki : out vectorblock12; --! Entrada de los 12 factores en el bloque de multiplicación respectivamente.
|
prd32blki : out vectorblock12; --! Entrada de los 12 factores en el bloque de multiplicación respectivamente.
|
add32blki : out vectorblock08; --! Entrada de los 8 sumandos del bloque de 4 sumadores.
|
add32blki : out vectorblock08; --! Entrada de los 8 sumandos del bloque de 4 sumadores.
|
resw : out std_logic_vector (4 downto 0); --! Salidas de escritura y lectura en las colas de resultados.
|
resw : out std_logic_vector (4 downto 0); --! Salidas de escritura y lectura en las colas de resultados.
|
fifo32x09_w : out std_logic;
|
fifo32x09_w : out std_logic;
|
fifo32x23_w,fifo32x09_r : out std_logic;
|
fifo32x23_w,fifo32x09_r : out std_logic;
|
fifo32x23_r : out std_logic;
|
fifo32x23_r : out std_logic;
|
resf_vector : in std_logic_vector(3 downto 0); --! Entradas de la señal de full de las colas de resultados.
|
resf_vector : in std_logic_vector(3 downto 0); --! Entradas de la señal de full de las colas de resultados.
|
resf_event : out std_logic; --! Salida decodificada que indica que la cola de resultados de la operación que está en curso.
|
resf_event : out std_logic; --! Salida decodificada que indica que la cola de resultados de la operación que está en curso.
|
resultoutput : out vectorblock08 --! 8 salidas de resultados, pues lo máximo que podrá calcularse por cada clock son 2 vectores.
|
resultoutput : out vectorblock08 --! 8 salidas de resultados, pues lo máximo que podrá calcularse por cada clock son 2 vectores.
|
);
|
);
|
end component;
|
end component;
|
--! Bloque Aritmetico de Sumadores y Multiplicadores (madd)
|
--! Bloque Aritmetico de Sumadores y Multiplicadores (madd)
|
component arithblock
|
component arithblock
|
port (
|
port (
|
|
|
clk : in std_logic;
|
clk : in std_logic;
|
rst : in std_logic;
|
rst : in std_logic;
|
|
|
dpc : in std_logic;
|
dpc : in std_logic;
|
|
|
f : in vectorblock12;
|
f : in vectorblock12;
|
a : in vectorblock08;
|
a : in vectorblock08;
|
|
|
s : out vectorblock04;
|
s : out vectorblock04;
|
p : out vectorblock06
|
p : out vectorblock06
|
|
|
);
|
);
|
end component;
|
end component;
|
--! Bloque de Raiz Cuadrada
|
--! Bloque de Raiz Cuadrada
|
component sqrt32
|
component sqrt32
|
port (
|
port (
|
|
|
clk : in std_logic;
|
clk : in std_logic;
|
rd32: in xfloat32;
|
rd32: in xfloat32;
|
sq32: out xfloat32
|
sq32: out xfloat32
|
);
|
);
|
end component;
|
end component;
|
--! Bloque de Inversores.
|
--! Bloque de Inversores.
|
component invr32
|
component invr32
|
port (
|
port (
|
|
|
clk : in std_logic;
|
clk : in std_logic;
|
dvd32 : in xfloat32;
|
dvd32 : in xfloat32;
|
qout32 : out xfloat32
|
qout32 : out xfloat32
|
);
|
);
|
end component;
|
end component;
|
|
|
|
|
|
|
|
|
type apCamera is record
|
type apCamera is record
|
resx,resy : integer;
|
resx,resy : integer;
|
width,height : real;
|
width,height : real;
|
dist : real;
|
dist : real;
|
end record;
|
end record;
|
|
|
--! Función que convierte un std_logic_vector en un numero entero
|
--! Función que convierte un std_logic_vector en un numero entero
|
function ap_slv2int(sl:std_logic_vector) return integer;
|
function ap_slv2int(sl:std_logic_vector) return integer;
|
|
|
--! Función que convierte un número flotante IEE754 single float, en un número std_logic_vector.
|
--! Función que convierte un número flotante IEE754 single float, en un número std_logic_vector.
|
function ap_fp2slv (f:real) return std_logic_vector;
|
function ap_fp2slv (f:real) return std_logic_vector;
|
|
|
--! Función que convierte un número std_logic_vector en un ieee754 single float.
|
--! Función que convierte un número std_logic_vector en un ieee754 single float.
|
function ap_slv2fp (sl:std_logic_vector) return real;
|
function ap_slv2fp (sl:std_logic_vector) return real;
|
|
|
--! Función que devuelve un vector en punto flotante IEEE754 a través de un
|
--! Función que devuelve un vector en punto flotante IEEE754 a través de un
|
function ap_slv_calc_xyvec (x,y:integer; cam:apCamera) return v3f;
|
function ap_slv_calc_xyvec (x,y:integer; cam:apCamera) return v3f;
|
|
|
--! Función que devuelve una cadena con el número flotante IEEE 754 ó a una cadena de cifras hexadecimales.
|
--! Función que devuelve una cadena con el número flotante IEEE 754 ó a una cadena de cifras hexadecimales.
|
function ap_slvf2string(sl:std_logic_vector) return string;
|
function ap_slvf2string(sl:std_logic_vector) return string;
|
function ap_slv2hex (s:std_logic_vector) return string;
|
function ap_slv2hex (s:std_logic_vector) return string;
|
--! Función que devuelve una cadena con el estado de macState.
|
--! Función que devuelve una cadena con el estado de macState.
|
function ap_macState2string(s:macState) return string;
|
function ap_macState2string(s:macState) return string;
|
|
|
--! Función que devuelve la cadena de caracteres de 8 datos en punto flotante IEEE 754.
|
--! Función que devuelve la cadena de caracteres de 8 datos en punto flotante IEEE 754.
|
function ap_vblk082string(v8:vectorblock08) return string;
|
function ap_vblk082string(v8:vectorblock08) return string;
|
|
|
--! Función que devuelve la cadena de caracteres de 12 datos en punto flotante IEEE 754.
|
--! Función que devuelve la cadena de caracteres de 12 datos en punto flotante IEEE 754.
|
function ap_vblk122string(v12:vectorblock12) return string;
|
function ap_vblk122string(v12:vectorblock12) return string;
|
|
|
--! Función que convierte un array de 2 std_logic_vectors que contienen un par de direcciones en string
|
--! Función que convierte un array de 2 std_logic_vectors que contienen un par de direcciones en string
|
function ap_vnadd022string(va2:vectorblockadd02) return string;
|
function ap_vnadd022string(va2:vectorblockadd02) return string;
|
|
|
--! Función que devuelve una cadena de caracteres con el estado de la maquina de estados que controla las interrupciones
|
--! Función que devuelve una cadena de caracteres con el estado de la maquina de estados que controla las interrupciones
|
function ap_iCtrlState2string(i:iCtrlState) return string;
|
function ap_iCtrlState2string(i:iCtrlState) return string;
|
|
|
--! Función que devuelve una cadena con los componentes de un vector R3 en punto flotante IEEE754
|
--! Función que devuelve una cadena con los componentes de un vector R3 en punto flotante IEEE754
|
function ap_v3f2string(v:v3f) return string;
|
function ap_v3f2string(v:v3f) return string;
|
|
|
--! Función que formatea una instrucción
|
--! Función que formatea una instrucción
|
function ap_format_instruction(i:string;ac_o,bd_o,ac_f,bd_f:std_logic_vector;comb:std_logic) return std_logic_vector;
|
function ap_format_instruction(i:string;ac_o,bd_o,ac_f,bd_f:std_logic_vector;comb:std_logic) return std_logic_vector;
|
|
|
--! Función que devuelve una cadena de caracteres de un solo caracter con el valor de un bit std_logic
|
--! Función que devuelve una cadena de caracteres de un solo caracter con el valor de un bit std_logic
|
function ap_sl2string(s:std_logic) return string;
|
function ap_sl2string(s:std_logic) return string;
|
|
|
end package;
|
end package;
|
|
|
|
|
package body arithpack is
|
package body arithpack is
|
|
|
function ap_sl2string(s:std_logic) return string is
|
function ap_sl2string(s:std_logic) return string is
|
variable tmp:string(1 to 1);
|
variable tmp:string(1 to 1);
|
begin
|
begin
|
|
|
case s is
|
case s is
|
when '1' =>
|
when '1' =>
|
tmp:="1";
|
tmp:="1";
|
when '0' =>
|
when '0' =>
|
tmp:="0";
|
tmp:="0";
|
when 'U' =>
|
when 'U' =>
|
tmp:="U";
|
tmp:="U";
|
when 'X' =>
|
when 'X' =>
|
tmp:="X";
|
tmp:="X";
|
when 'Z' =>
|
when 'Z' =>
|
tmp:="Z";
|
tmp:="Z";
|
when 'W' =>
|
when 'W' =>
|
tmp:="W";
|
tmp:="W";
|
when 'L' =>
|
when 'L' =>
|
tmp:="L";
|
tmp:="L";
|
when 'H' =>
|
when 'H' =>
|
tmp:="H";
|
tmp:="H";
|
when others =>
|
when others =>
|
tmp:="-"; -- Don't care
|
tmp:="-"; -- Don't care
|
end case;
|
end case;
|
|
|
return tmp;
|
return tmp;
|
end function;
|
end function;
|
|
|
function ap_format_instruction(i:string;ac_o,bd_o,ac_f,bd_f:std_logic_vector;comb:std_logic) return std_logic_vector is
|
function ap_format_instruction(i:string;ac_o,bd_o,ac_f,bd_f:std_logic_vector;comb:std_logic) return std_logic_vector is
|
|
|
alias aco : std_logic_vector (4 downto 0) is ac_o;
|
alias aco : std_logic_vector (4 downto 0) is ac_o;
|
alias acf : std_logic_vector (4 downto 0) is ac_f;
|
alias acf : std_logic_vector (4 downto 0) is ac_f;
|
alias bdo : std_logic_vector (4 downto 0) is bd_o;
|
alias bdo : std_logic_vector (4 downto 0) is bd_o;
|
alias bdf : std_logic_vector (4 downto 0) is bd_f;
|
alias bdf : std_logic_vector (4 downto 0) is bd_f;
|
variable ins : std_logic_vector (31 downto 0);
|
variable ins : std_logic_vector (31 downto 0);
|
alias it : string (1 to 3) is i;
|
alias it : string (1 to 3) is i;
|
begin
|
begin
|
|
|
case it is
|
case it is
|
when "mag" =>
|
when "mag" =>
|
ins(31 downto 29) := "100";
|
ins(31 downto 29) := "100";
|
ins(04 downto 00) := x"18";
|
ins(04 downto 00) := x"18";
|
when "nrm" =>
|
when "nrm" =>
|
ins(31 downto 29) := "101";
|
ins(31 downto 29) := "101";
|
ins(04 downto 00) := x"1d";
|
ins(04 downto 00) := x"1d";
|
when "add" =>
|
when "add" =>
|
ins(31 downto 29) := "001";
|
ins(31 downto 29) := "001";
|
ins(04 downto 00) := x"0a";
|
ins(04 downto 00) := x"0a";
|
when "sub" =>
|
when "sub" =>
|
ins(31 downto 29) := "011";
|
ins(31 downto 29) := "011";
|
ins(04 downto 00) := x"0a";
|
ins(04 downto 00) := x"0a";
|
when "dot" =>
|
when "dot" =>
|
ins(31 downto 29) := "000";
|
ins(31 downto 29) := "000";
|
ins(04 downto 00) := x"17";
|
ins(04 downto 00) := x"17";
|
when "crs" =>
|
when "crs" =>
|
ins(31 downto 29) := "010";
|
ins(31 downto 29) := "010";
|
ins(04 downto 00) := x"0e";
|
ins(04 downto 00) := x"0e";
|
when others =>
|
when others =>
|
ins(31 downto 29) := "111";
|
ins(31 downto 29) := "111";
|
ins(04 downto 00) := x"05";
|
ins(04 downto 00) := x"05";
|
end case;
|
end case;
|
ins(28 downto 24) := aco;
|
ins(28 downto 24) := aco;
|
ins(23 downto 19) := acf;
|
ins(23 downto 19) := acf;
|
ins(18 downto 14) := bdo;
|
ins(18 downto 14) := bdo;
|
ins(13 downto 09) := bdf;
|
ins(13 downto 09) := bdf;
|
ins(08) := comb;
|
ins(08) := comb;
|
ins(07 downto 05) := "000";
|
ins(07 downto 05) := "000";
|
return ins;
|
return ins;
|
|
|
|
|
end function;
|
end function;
|
|
|
|
|
|
|
function ap_v3f2string(v:v3f) return string is
|
function ap_v3f2string(v:v3f) return string is
|
variable tmp:string (1 to 1024);
|
variable tmp:string (1 to 1024);
|
begin
|
begin
|
tmp:="[X]"&ap_slvf2string(v(0))&"[Y]"&ap_slvf2string(v(1))&"[Z]"&ap_slvf2string(v(2));
|
tmp:="[X]"&ap_slvf2string(v(0))&"[Y]"&ap_slvf2string(v(1))&"[Z]"&ap_slvf2string(v(2));
|
return tmp;
|
return tmp;
|
end function;
|
end function;
|
|
|
function ap_iCtrlState2string(i:iCtrlState) return string is
|
function ap_iCtrlState2string(i:iCtrlState) return string is
|
|
|
variable tmp:string (1 to 9);
|
variable tmp:string (1 to 9);
|
|
|
begin
|
begin
|
|
|
case i is
|
case i is
|
when WAITING_FOR_AN_EVENT =>
|
when WAITING_FOR_AN_EVENT =>
|
tmp:="WAIT_EVNT";
|
tmp:="WAIT_EVNT";
|
when FIRING_INTERRUPTIONS =>
|
when FIRING_INTERRUPTIONS =>
|
tmp:="FIRE_INTx";
|
tmp:="FIRE_INTx";
|
when SUSPEND =>
|
when SUSPEND =>
|
tmp:="SUSPENDED";
|
tmp:="SUSPENDED";
|
when others =>
|
when others =>
|
tmp:="ILGL__VAL";
|
tmp:="ILGL__VAL";
|
end case;
|
end case;
|
|
|
return tmp;
|
return tmp;
|
|
|
end function;
|
end function;
|
|
|
function ap_vnadd022string(va2:vectorblockadd02) return string is
|
function ap_vnadd022string(va2:vectorblockadd02) return string is
|
variable tmp:string (1 to 1024);
|
variable tmp:string (1 to 1024);
|
begin
|
begin
|
tmp:="[01]"&ap_slv2hex(va2(1))&" [00]"&ap_slv2hex(va2(0));
|
tmp:="[01]"&ap_slv2hex(va2(1))&" [00]"&ap_slv2hex(va2(0));
|
return tmp;
|
return tmp;
|
end function;
|
end function;
|
|
|
function ap_vblk122string(v12:vectorblock12) return string is
|
function ap_vblk122string(v12:vectorblock12) return string is
|
variable tmp:string (1 to 1024);
|
variable tmp:string (1 to 1024);
|
begin
|
begin
|
|
|
tmp:="["&integer'image(11)&"]";
|
tmp:="["&integer'image(11)&"]";
|
for i in 11 downto 0 loop
|
for i in 11 downto 0 loop
|
tmp:=tmp&ap_slvf2string(v12(i));
|
tmp:=tmp&ap_slvf2string(v12(i));
|
if i>0 then
|
if i>0 then
|
tmp:=tmp&"["&integer'image(i)&"]";
|
tmp:=tmp&"["&integer'image(i)&"]";
|
end if;
|
end if;
|
end loop;
|
end loop;
|
return tmp;
|
return tmp;
|
|
|
|
|
end function;
|
end function;
|
|
|
function ap_vblk082string(v8:vectorblock08) return string is
|
function ap_vblk082string(v8:vectorblock08) return string is
|
variable tmp:string (1 to 1024);
|
variable tmp:string (1 to 1024);
|
begin
|
begin
|
|
|
tmp:="["&integer'image(7)&"]";
|
tmp:="["&integer'image(7)&"]";
|
for i in 7 downto 0 loop
|
for i in 7 downto 0 loop
|
tmp:=tmp&ap_slvf2string(v8(i));
|
tmp:=tmp&ap_slvf2string(v8(i));
|
if i>0 then
|
if i>0 then
|
tmp:=tmp&"["&integer'image(i)&"]";
|
tmp:=tmp&"["&integer'image(i)&"]";
|
end if;
|
end if;
|
end loop;
|
end loop;
|
return tmp;
|
return tmp;
|
|
|
|
|
end function;
|
end function;
|
|
|
|
|
function ap_macState2string(s:macState) return string is
|
function ap_macState2string(s:macState) return string is
|
variable tmp:string (1 to 6);
|
variable tmp:string (1 to 6);
|
begin
|
begin
|
case s is
|
case s is
|
when LOAD_INSTRUCTION =>
|
when LOAD_INSTRUCTION =>
|
tmp:="LD_INS";
|
tmp:="LD_INS";
|
when FLUSH_ARITH_PIPELINE =>
|
when FLUSH_ARITH_PIPELINE =>
|
tmp:="FL_ARP";
|
tmp:="FL_ARP";
|
when EXECUTE_INSTRUCTION =>
|
when EXECUTE_INSTRUCTION =>
|
tmp:="EX_INS";
|
tmp:="EX_INS";
|
when others =>
|
when others =>
|
tmp:="HEL_ON";
|
tmp:="HEL_ON";
|
end case;
|
end case;
|
return tmp;
|
return tmp;
|
end function;
|
end function;
|
|
|
constant hexchars : string (1 to 16) := "0123456789ABCDEF";
|
constant hexchars : string (1 to 16) := "0123456789ABCDEF";
|
function ap_slv2hex (s:std_logic_vector) return string is
|
function ap_slv2hex (s:std_logic_vector) return string is
|
variable x64 : std_logic_vector(63 downto 0):=x"0000000000000000";
|
variable x64 : std_logic_vector(63 downto 0):=x"0000000000000000";
|
variable str : string (1 to 16);
|
variable str : string (1 to 16);
|
begin
|
begin
|
x64(s'high downto s'low):=s;
|
x64(s'high downto s'low):=s;
|
for i in 15 downto 0 loop
|
for i in 15 downto 0 loop
|
str(i+1):=hexchars(1+ieee.std_logic_unsigned.conv_integer(x64(i*4+3 downto i*4)));
|
str(i+1):=hexchars(1+ieee.std_logic_unsigned.conv_integer(x64(i*4+3 downto i*4)));
|
end loop;
|
end loop;
|
return str;
|
return str;
|
end function;
|
end function;
|
|
|
function ap_slv2int (sl:std_logic_vector) return integer is
|
function ap_slv2int (sl:std_logic_vector) return integer is
|
alias s : std_logic_vector (sl'high downto sl'low) is sl;
|
alias s : std_logic_vector (sl'high downto sl'low) is sl;
|
variable i : integer;
|
variable i : integer;
|
begin
|
begin
|
i:=0;
|
i:=0;
|
for index in s'high downto s'low loop
|
for index in s'high downto s'low loop
|
if s(index)='1' then
|
if s(index)='1' then
|
i:=i*2+1;
|
i:=i*2+1;
|
else
|
else
|
i:=i*2;
|
i:=i*2;
|
end if;
|
end if;
|
end loop;
|
end loop;
|
return i;
|
return i;
|
|
|
end function;
|
end function;
|
function ap_fp2slv (f:real) return std_logic_vector is
|
function ap_fp2slv (f:real) return std_logic_vector is
|
variable faux : real;
|
variable faux : real;
|
variable sef : std_logic_vector (31 downto 0);
|
variable sef : std_logic_vector (31 downto 0);
|
begin
|
begin
|
--! Signo
|
--! Signo
|
if (f<0.0) then
|
if (f<0.0) then
|
sef(31) := '1';
|
sef(31) := '1';
|
else
|
else
|
sef(31) := '0';
|
sef(31) := '0';
|
end if;
|
end if;
|
|
|
--! Exponente
|
--! Exponente
|
sef(30 downto 23) := conv_std_logic_vector(integer(floor(log(f,2.0))),8);
|
sef(30 downto 23) := conv_std_logic_vector(integer(floor(log(f,2.0))),8);
|
|
|
--! Fraction
|
--! Fraction
|
faux :=f/floor(log(f,2.0));
|
faux :=f/floor(log(f,2.0));
|
faux := faux - 1.0;
|
faux := faux - 1.0;
|
|
|
sef(22 downto 0) := conv_std_logic_vector(integer(faux),23);
|
sef(22 downto 0) := conv_std_logic_vector(integer(faux),23);
|
|
|
return sef;
|
return sef;
|
|
|
end function;
|
end function;
|
|
|
function ap_slv2fp(sl:std_logic_vector) return real is
|
function ap_slv2fp(sl:std_logic_vector) return real is
|
variable expo,frc:integer;
|
variable expo,frc:integer;
|
alias s: std_logic_vector(31 downto 0) is sl;
|
alias s: std_logic_vector(31 downto 0) is sl;
|
variable f: real;
|
variable f: real;
|
|
|
begin
|
begin
|
|
|
|
|
expo:=ap_slv2int(s(30 downto 23)) - 127;
|
expo:=ap_slv2int(s(30 downto 23)) - 127;
|
expo:=2**expo;
|
expo:=2**expo;
|
frc:=ap_slv2int('1'&s(22 downto 0));
|
frc:=ap_slv2int('1'&s(22 downto 0));
|
f:=real(frc)*(2.0**(-23.0));
|
f:=real(frc)*(2.0**(-23.0));
|
f:=f*real(expo);
|
f:=f*real(expo);
|
|
|
if s(31)='1' then
|
if s(31)='1' then
|
return -f;
|
return -f;
|
else
|
else
|
return f;
|
return f;
|
end if;
|
end if;
|
|
|
|
|
end function;
|
end function;
|
|
|
function ap_slv_calc_xyvec (x,y:integer; cam:apCamera) return v3f is
|
function ap_slv_calc_xyvec (x,y:integer; cam:apCamera) return v3f is
|
|
|
|
|
variable dx,dy : real;
|
variable dx,dy : real;
|
variable v : v3f;
|
variable v : v3f;
|
begin
|
begin
|
|
|
dx := cam.width/real(cam.resx);
|
dx := cam.width/real(cam.resx);
|
dy := cam.height/real(cam.resy);
|
dy := cam.height/real(cam.resy);
|
|
|
--! Eje X: Tomando el dedo índice de la mano derecha, este eje queda apuntando en la direcci&on en la que mira la cámara u observador siempre.
|
--! Eje X: Tomando el dedo índice de la mano derecha, este eje queda apuntando en la direcci&on en la que mira la cámara u observador siempre.
|
v(0):=ap_fp2slv(cam.dist);
|
v(0):=ap_fp2slv(cam.dist);
|
|
|
--! Eje Y: Tomando el dedo corazón de la mano derecha, este eje queda apuntando a la izquierda del observador, desde el observador.
|
--! Eje Y: Tomando el dedo corazón de la mano derecha, este eje queda apuntando a la izquierda del observador, desde el observador.
|
v(1):=ap_fp2slv(dx*real(cam.resx)*0.5-dx*0.5);
|
v(1):=ap_fp2slv(dx*real(cam.resx)*0.5-dx*0.5);
|
|
|
--! Eje Z: Tomando el dedo pulgar de la mano derecha, este eje queda apuntando hacia arriba del observador, desde el observador.
|
--! Eje Z: Tomando el dedo pulgar de la mano derecha, este eje queda apuntando hacia arriba del observador, desde el observador.
|
v(2):=ap_fp2slv(dy*real(cam.resy)*0.5-dy*0.5);
|
v(2):=ap_fp2slv(dy*real(cam.resy)*0.5-dy*0.5);
|
|
|
return v;
|
return v;
|
|
|
end function;
|
end function;
|
|
|
function ap_slvf2string(sl:std_logic_vector) return string is
|
function ap_slvf2string(sl:std_logic_vector) return string is
|
alias f: std_logic_vector(31 downto 0) is sl;
|
alias f: std_logic_vector(31 downto 0) is sl;
|
variable r: real;
|
variable r: real;
|
|
|
begin
|
begin
|
|
|
r:=ap_slv2fp(f);
|
r:=ap_slv2fp(f);
|
return real'image(r);
|
return real'image(r);
|
|
|
end function;
|
end function;
|
|
|
|
|
|
|
|
|
|
|
