Line 15... |
Line 15... |
constant nBits : integer := 32;
|
constant nBits : integer := 32;
|
|
|
--! Number of general registers (r0..r15)
|
--! Number of general registers (r0..r15)
|
constant numGenRegs : integer := 16;
|
constant numGenRegs : integer := 16;
|
|
|
type aluOps is (alu_sum, alu_sub, alu_inc, alu_dec, alu_mul, alu_or, alu_and, alu_xor, alu_not);
|
type aluOps is (alu_pass, alu_sum, alu_sub, alu_inc, alu_dec, alu_mul, alu_or, alu_and, alu_xor, alu_not);
|
type typeEnDis is (enable, disable);
|
type typeEnDis is (enable, disable);
|
type generalRegisters is (r0,r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12,r13,r14,r15);
|
type generalRegisters is (r0,r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12,r13,r14,r15);
|
|
|
function reg2Num (a: generalRegisters) return integer;
|
function reg2Num (a: generalRegisters) return integer;
|
function Num2reg (a: integer) return generalRegisters;
|
function Num2reg (a: integer) return generalRegisters;
|
Line 71... |
Line 71... |
when 11 => valRet := r11;
|
when 11 => valRet := r11;
|
when 12 => valRet := r12;
|
when 12 => valRet := r12;
|
when 13 => valRet := r13;
|
when 13 => valRet := r13;
|
when 14 => valRet := r14;
|
when 14 => valRet := r14;
|
when 15 => valRet := r15;
|
when 15 => valRet := r15;
|
|
when others => valRet := r0;
|
end case;
|
end case;
|
return valRet;
|
return valRet;
|
end Num2reg;
|
end Num2reg;
|
|
|
end pkgOpenCPU32;
|
end pkgOpenCPU32;
|