URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [case_optimization_pkg2.adb] - Blame information for rev 304

Go to most recent revision | Details | Compare with Previous | View Log


package body Case_Optimization_Pkg2 is
 
  procedure Initialize (Radar : in Radar_T) is
    Antenna1 : Antenna_Type_T;
    Antenna2 : Antenna_Type_T;
  begin
    case Radar.Sensor_Type is
      when radpr | radssr =>
        Antenna1 := Radar.Sensor_Type;
        Antenna2 := Radar.Sensor_Type;
      when radcmb =>
        Antenna1 := radpr;
        Antenna2 := radssr;
      when others =>
        Antenna1 := radpr;
        Antenna2 := radssr;
    end case;
    if Antenna1 /= radpr or Antenna2 /= radssr then
      raise Program_Error;
    end if;
  end Initialize;
 
end Case_Optimization_Pkg2;

Line No.	Rev	Author	Line
1	304	jeremybenn	`package body Case_Optimization_Pkg2 is`
2
3			`procedure Initialize (Radar : in Radar_T) is`
4			`Antenna1 : Antenna_Type_T;`
5			`Antenna2 : Antenna_Type_T;`
6			`begin`
7			`case Radar.Sensor_Type is`
8			`when radpr \| radssr =>`
9			`Antenna1 := Radar.Sensor_Type;`
10			`Antenna2 := Radar.Sensor_Type;`
11			`when radcmb =>`
12			`Antenna1 := radpr;`
13			`Antenna2 := radssr;`
14			`when others =>`
15			`Antenna1 := radpr;`
16			`Antenna2 := radssr;`
17			`end case;`
18			`if Antenna1 /= radpr or Antenna2 /= radssr then`
19			`raise Program_Error;`
20			`end if;`
21			`end Initialize;`
22
23			`end Case_Optimization_Pkg2;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [case_optimization_pkg2.adb] - Blame information for rev 304