aktop_int <= ALU_NOP;
opp_int <= ALU_NOP;
err_int <= 0;
- errc_int <= 70;
+ errc_int <= 71;
errc_tmp_int <= 0;
firstz_int <= true;
-- out ports
type errstrings is array (natural range 1 to 3) of hstring;
constant error_str : errstrings := (
- 1 => " Division durch Null" & nul,
- 2 => " Syntax" & nul,
- 3 => " Over- bzw. Underflow" & nul
+ 1 => " Division durch Null" & nul,
+ 2 => " Syntax" & nul,
+ 3 => " Over- bzw. Underflow" & nul
);
begin
-- internal
when SDONE =>
err_next <= 0;
- errc_next <= 70;
+ errc_next <= 71;
p_finished_next <= '1';
end case;