URL
https://opencores.org/ocsvn/raytrac/raytrac/trunk
Go to most recent revision |
Show entire file |
Details |
Blame |
View Log
Rev 109 |
Rev 110 |
Line 114... |
Line 114... |
s4expnurm <= s3expnurm;
|
s4expnurm <= s3expnurm;
|
|
|
|
|
|
|
|
|
|
|
end if;
|
end if;
|
|
|
end process;
|
end process;
|
|
|
|
|
Line 196... |
Line 197... |
begin
|
begin
|
|
|
case s3bgta is
|
case s3bgta is
|
when '1' => -- Negativo b>a : se corre a delta espacios a la derecha y b se queda quieto
|
when '1' => -- Negativo b>a : se corre a delta espacios a la derecha y b se queda quieto
|
s3ssmb <= s3smb;
|
s3ssmb <= s3smb;
|
shiftslab(23 downto 0)<=(others=>s3sma(24));
|
s3shiftslab(23 downto 0)<=(others=>s3sma(24));
|
case s3udelta is
|
case s3udelta is
|
when x"3" => s3ssma <= (s3sma(24)&shiftslab(23 downto 0));
|
when x"3" => s3ssma <= (s3sma(24)&s3shiftslab(23 downto 0));
|
when x"2" => s3ssma <= (s3sma(24)&shiftslab(15 downto 0)&s3sma(23 downto 16));
|
when x"2" => s3ssma <= (s3sma(24)&s3shiftslab(15 downto 0)&s3sma(23 downto 16));
|
when x"1" => s3ssma <= (s3sma(24)&shiftslab(7 downto 0)&s3sma(23 downto 8));
|
when x"1" => s3ssma <= (s3sma(24)&s3shiftslab(7 downto 0)&s3sma(23 downto 8));
|
when others => s3ssma <= s3sma;
|
when others => s3ssma <= s3sma;
|
end case;
|
end case;
|
when others => -- Positivo a>=b : se corre a delta espacios a la derecha y a se queda quieto
|
when others => -- Positivo a>=b : se corre a delta espacios a la derecha y a se queda quieto
|
s3ssma <= s3sma;
|
s3ssma <= s3sma;
|
shiftslab(23 downto 0)<=(others=>s3smb(24));
|
shiftslab(23 downto 0)<=(others=>s3smb(24));
|
case s3udelta is
|
case s3udelta is
|
when x"3" => s3ssmb <= (s3smb(24)&shiftslab(23 downto 0));
|
when x"3" => s3ssmb <= (s3smb(24)&s3shiftslab(23 downto 0));
|
when x"2" => s3ssmb <= (s3smb(24)&shiftslab(15 downto 0)&s3smb(23 downto 16));
|
when x"2" => s3ssmb <= (s3smb(24)&s3shiftslab(15 downto 0)&s3smb(23 downto 16));
|
when x"1" => s3ssmb <= (s3smb(24)&shiftslab(7 downto 0)&s3smb(23 downto 8));
|
when x"1" => s3ssmb <= (s3smb(24)&s3shiftslab(7 downto 0)&s3smb(23 downto 8));
|
when others => s3ssmb <= s3smb;
|
when others => s3ssmb <= s3smb;
|
end case;
|
end case;
|
end case;
|
end case;
|
if s3zero='0' then
|
if s3zero='0' then
|
s3ssm <= (s3ssma(24)&s3ssma)+(s3ssmb(24)&s3ssmb);
|
s3ssm <= (s3ssma(24)&s3ssma)+(s3ssmb(24)&s3ssmb);
|
Line 265... |
Line 266... |
end case;
|
end case;
|
end process;
|
end process;
|
|
|
|
|
|
|
|
|
end fadd32_arch;
|
end fadd32_arch;
|
|
|
|
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.