包集合的详细定义 packge body upac is function cony integer(x: std logic vector) return integer is variable result: integer; begin result: =0; for I in x'range loop result -result*2; case x(i)is when OL=> null; when 'IH=> result =result+1 when others = null end case; end loop; return result: end conv integer end upac;包集合的详细定义 packge body upac is function conv_integer (x: std_logic_vector) return integer is variable result: integer; begin result := 0; for I in x'range loop result :=result*2; case x(i) is when '0'|'L' => null; when '1'|'H' => result := result+1; when others => null; end case; end loop; return result; end conv_integer; end upac;