---------------------------------------------------------
-- A small_int type, taking values in the range 0 to 255.
---------------------------------------------------------

PACKAGE my_types IS BEGIN
   TYPE small_int IS RANGE 0 TO 255; 
END PACKAGE my_types;

USE WORK.my_types.ALL;
ENTITY small_adder IS 
   PORT( a,b: IN small_int;
         s: OUT small_int); 
END  ENTITY small_adder;