shadd and shift working in ghdl