- fixed issues with GHDL

- fixed not closing file

git-svn-id: http://moon:8086/svn/vhdl/trunk@1388 cc03376c-175c-47c8-b038-4cd826a8556b
This commit is contained in:
2021-03-19 11:06:38 +00:00
parent 88975a56a0
commit c5d7d2fe3b
3 changed files with 12 additions and 9 deletions
+1 -1
View File
@@ -218,7 +218,7 @@ begin
xmem_dout <= mem_data;
xmem_addr <= mem_addr;
cmem_din <= creg_ctrl_out.cmem_high & mem_data;
cmem_addr <= '1' & creg_ctrl_out.bank_sel & mem_addr(MIN(cmem_addr'length-creg_ctrl_out.bank_sel'length-1, mem_addr'length)-1 downto 0);
cmem_addr <= '1' & creg_ctrl_out.bank_sel & mem_addr(JMIN(cmem_addr'length-creg_ctrl_out.bank_sel'length-1, mem_addr'length)-1 downto 0);
--------------------------------------------------------------------
mem_ctrl_lines:
+6 -6
View File
@@ -225,8 +225,8 @@ package cpu_pkg is
function idecoder(opcode : opcode_t; iphase : iphase_t; status : cpu_status_t) return ctrl_lines_t;
function gen_murom return murom_t;
function get_muromaddr (opcode : opcode_t; iphase : iphase_t; status : cpu_status_t) return unsigned;
function MIN (X, Y: INTEGER) return INTEGER;
function MAX (X, Y: INTEGER) return INTEGER;
function JMIN (X, Y: INTEGER) return INTEGER;
function JMAX (X, Y: INTEGER) return INTEGER;
end cpu_pkg;
@@ -824,7 +824,7 @@ package body cpu_pkg is
end get_muromaddr;
-------------------------------------------------------------
function MIN (X, Y: INTEGER) return INTEGER is
function JMIN (X, Y: INTEGER) return INTEGER is
variable res : integer := X;
begin
if Y < X then
@@ -833,10 +833,10 @@ package body cpu_pkg is
return res;
end MIN;
end JMIN;
-------------------------------------------------------------
function MAX (X, Y: INTEGER) return INTEGER is
function JMAX (X, Y: INTEGER) return INTEGER is
variable res : integer := X;
begin
if Y > X then
@@ -845,7 +845,7 @@ package body cpu_pkg is
return res;
end MAX;
end JMAX;
end cpu_pkg;