[SOLVED] verilog to vhdl translation

`timescale 1ns/10ps
module dct_mac(
              clk, 
				  ena, 
				  dclr, 
				  din, 
				  coef, 
				  result
				  );
				  

parameter dwidth = 8;
parameter cwidth = 16;
parameter mwidth = dwidth + cwidth;  
parameter rwidth = mwidth +3;        

input               clk;    
input               ena;    
input               dclr;   
input  [dwidth-1:0] din;   
input  [cwidth-1:0] coef;  
output [rwidth-1:0] result; 
reg [rwidth -1:0] result;

wire [mwidth-1:0] idin;
wire [mwidth-1:0] icoef;

reg  [mwidth -1:0] mult_res ;
wire [rwidth -1:0] ext_mult_res;


assign icoef = { {(mwidth-cwidth){coef[cwidth-1]}}, coef};
assign idin  = { {(mwidth-dwidth){din[dwidth-1]}}, din};

always @(posedge clk)
begin
	  if(ena)
	  mult_res<=icoef * idin; 
end

assign ext_mult_res = { {3{mult_res[mwidth-1]}}, mult_res};


always @(posedge clk)
begin
	  if(ena)
	  begin
	        if(dclr)
	        result<=ext_mult_res;
	    else
	        result<=ext_mult_res + result; 
	  end
end			
endmodule

library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_misc.all;
use ieee.numeric_std.all;
--use ieee.std_logic_arith.all;
entity dct_mac is 
generic (
        dwidth : INTEGER := 8 ;
        cwidth : INTEGER := 16 ;
        mwidth : INTEGER := 24 ;
        rwidth : INTEGER := 27 
    );
     port (
        clk :  in std_logic;
        ena :  in std_logic;
        dclr :  in std_logic;
        din :  in std_logic_vector( ( dwidth - 1  )  downto 0  );
        coef :  in std_logic_vector( ( cwidth - 1  )  downto 0  );
        result :  out std_logic_vector( ( rwidth - 1  )  downto 0  )
    );
end dct_mac; 


architecture rtl of dct_mac is 
    signal idin : std_logic_vector( ( mwidth - 1  )  downto 0  );
    signal icoef : std_logic_vector( ( mwidth - 1  )  downto 0  );
    signal mult_res : std_logic_vector( ( mwidth - 1  )  downto 0  );
    signal ext_mult_res : std_logic_vector( ( rwidth - 1  )  downto 0  );
    begin 
        icoef <= ( ( coef(( cwidth - 1  ) ) & coef(( cwidth - 1  ) ) & coef(( cwidth - 1  ) ) & coef(( cwidth - 1  ) ) & coef(( cwidth - 1  ) ) & coef(( cwidth - 1  ) ) & coef(( cwidth - 1  ) ) & coef(( cwidth - 1  ) ) ) & coef );
        idin <= ( ( din(( dwidth - 1  ) ) & din(( dwidth - 1  ) ) & din(( dwidth - 1  ) ) & din(( dwidth - 1  ) ) & din(( dwidth - 1  ) ) & din(( dwidth - 1  ) ) & din(( dwidth - 1  ) ) & din(( dwidth - 1  ) ) & din(( dwidth - 1  ) ) & din(( dwidth - 1  ) ) & din(( dwidth - 1  ) ) & din(( dwidth - 1  ) ) & din(( dwidth - 1  ) ) & din(( dwidth - 1  ) ) & din(( dwidth - 1  ) ) & din(( dwidth - 1  ) ) ) & din );
        process 
        begin
            wait until ( clk'EVENT and ( clk = '1' )  ) ;
            if ( ena = '1' ) then 
                mult_res <= ( icoef * idin) ; -- error
            end if;
        end process;
        ext_mult_res <= ( ( mult_res(( mwidth - 1  ) ) & mult_res(( mwidth - 1  ) ) & mult_res(( mwidth - 1  ) ) ) & mult_res );
        process 
        begin
            wait until ( clk'EVENT and ( clk = '1' )  ) ;
            if ( ena = '1' ) then 
                if ( dclr = '1' ) then 
                    result <= ext_mult_res;
                else 
                    result <= ( ext_mult_res + result) ; -- error
                end if;
            end if;
        end process;
    end rtl;

Line 66. * can not have such operands in this context.
Line 77. + can not have such operands in this context.