Отправлено paha 25 апреля 2002 г. 10:44 В ответ на: О преобразовании типов в VHDL отправлено Alexus 24 апреля 2002 г. 19:29

function CONV (X :STD_LOGIC) return BIT is
constant XMAP :BIT:='0';
begin
case X is
when '0' | 'L' => return '0';
when '1' | 'H' => return '1';
when others => return XMAP;
end case;
end CONV;

function CONV (X :BIT) return STD_LOGIC is
begin
case X is
when '0' => return '0';
when '1' => return '1';
end case;
end CONV;