Code Statement

[johnjohn@cox.net]

Trying to use the "Code Statement" for a special project, by passing the 
ASM proc/func. So, can Gnat process a true "Code Statement" statement?

When I compile the following example using 
>gnat make temp.adb -gnatpg 
gcc -c -gnatpg temp.adb
temp.adb:10:07: incorrect type for code statement
gnatmake: "temp.adb" compilation error


Source code:

   package Machine_Code is

       type Asm_Insn is new Integer;  --  type required by gant

       x86_NOP    : constant Asm_Insn := 16#90#;

       type M_Code_0  is record
                         Opcode : Asm_Insn;
       end record;
       pragma Pack (M_Code_0);
   end Machine_Code;

Source code:

   with Machine_Code;

   procedure temp is

       procedure Test;

       procedure Test is
          use Machine_Code;
       begin
          M_Code_0'(Opcode => x86_NOP);  -- line 10
       end Test;

   begin
      null;
   end temp;