Use pragma instead of aspect for Interrupt_Priority on Serial_Port

The definition of Serial_Port uses the aspect Interrupt_Priority taking
a value from the specified discriminants. However the discriminant is
not visible in this scope. Use a pragma in the definition of the type
instead where the discriminant is visible.

ref #466

Author: jklmnn

examples/shared/serial_ports/src/serial_io-nonblocking.ads

@@ -77,9 +77,8 @@ private
      (Device       : not null access USART;
       IRQ          : Interrupt_ID;
       IRQ_Priority : Interrupt_Priority)
-   with
-      Interrupt_Priority => IRQ_Priority
    is
+      pragma Interrupt_Priority (IRQ_Priority);
 
       procedure Start_Sending (Msg : not null access Message);