--- process(gpio_clk)
--- begin
--- if gpio_clk= '1' and gpio_clk'event then
--- spiclk_old_lvl<=spi_clk;
--- end if;
--- end process;
--- spi_clk_rise <= (not spiclk_old_lvl) and spi_clk;
--- spi_clk_fall <= (not spi_clk) and spiclk_old_lvl;
-
-
--- process(spi_clk_fall,spi_clk_rise)