| Eric Botcazou | 96540b2 | 2013-11-18 10:09:10 +0000 | [diff] [blame] | 1 | package body Volatile11_Pkg is
|
| 2 |
|
| 3 | procedure Bit_Test(Input : in Integer;
|
| 4 | Output1 : out Boolean; Output2 : out Boolean;
|
| 5 | Output3 : out Boolean; Output4 : out Boolean;
|
| 6 | Output5 : out Boolean; Output6 : out Boolean;
|
| 7 | Output7 : out Boolean; Output8 : out Boolean) is
|
| 8 | begin
|
| 9 | Output8 := B;
|
| 10 | Output7 := Input = 7;
|
| 11 | Output6 := Input = 6;
|
| 12 | Output5 := Input = 5;
|
| 13 | Output4 := Input = 4;
|
| 14 | Output3 := Input = 3;
|
| 15 | Output2 := Input = 2;
|
| 16 | Output1 := Input = 1;
|
| 17 | end Bit_Test;
|
| 18 |
|
| 19 | function F return Ptr is
|
| 20 | begin
|
| 21 | B := True;
|
| 22 | return B'Access;
|
| 23 | end;
|
| 24 |
|
| 25 | end Volatile11_Pkg;
|
