PACKAGE my_stuff IS TYPE binary_new IS (ON, OFF); CONSTANT PI : REAL : = 3.14; PROCEDURE add_bits3 (SIGNAL a, b, en : IN BIT; SIGNAL temp_result, temp_carry : OUT BIT); END my_stuff;