URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 384 |
package body Case_Optimization_Pkg2 is
|
package body Case_Optimization_Pkg2 is
|
|
|
procedure Initialize (Radar : in Radar_T) is
|
procedure Initialize (Radar : in Radar_T) is
|
Antenna1 : Antenna_Type_T;
|
Antenna1 : Antenna_Type_T;
|
Antenna2 : Antenna_Type_T;
|
Antenna2 : Antenna_Type_T;
|
begin
|
begin
|
case Radar.Sensor_Type is
|
case Radar.Sensor_Type is
|
when radpr | radssr =>
|
when radpr | radssr =>
|
Antenna1 := Radar.Sensor_Type;
|
Antenna1 := Radar.Sensor_Type;
|
Antenna2 := Radar.Sensor_Type;
|
Antenna2 := Radar.Sensor_Type;
|
when radcmb =>
|
when radcmb =>
|
Antenna1 := radpr;
|
Antenna1 := radpr;
|
Antenna2 := radssr;
|
Antenna2 := radssr;
|
when others =>
|
when others =>
|
Antenna1 := radpr;
|
Antenna1 := radpr;
|
Antenna2 := radssr;
|
Antenna2 := radssr;
|
end case;
|
end case;
|
if Antenna1 /= radpr or Antenna2 /= radssr then
|
if Antenna1 /= radpr or Antenna2 /= radssr then
|
raise Program_Error;
|
raise Program_Error;
|
end if;
|
end if;
|
end Initialize;
|
end Initialize;
|
|
|
end Case_Optimization_Pkg2;
|
end Case_Optimization_Pkg2;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.