From ee5b5cc594c64172c4cf1ad88aaddec6d1d504fd Mon Sep 17 00:00:00 2001
From: tmeissner <programming@goodcleanfun.de>
Date: Wed, 10 Dec 2014 19:45:52 +0100
Subject: [PATCH] add LUT implementation of FiRo

---
 raspiFpga/src/FiRoE.vhd      | 31 ++++++++++++++++++++++++++++---
 raspiFpga/src/RaspiFpgaE.vhd |  4 +++-
 2 files changed, 31 insertions(+), 4 deletions(-)

diff --git a/raspiFpga/src/FiRoE.vhd b/raspiFpga/src/FiRoE.vhd
index bc4aa9f..07307c0 100644
--- a/raspiFpga/src/FiRoE.vhd
+++ b/raspiFpga/src/FiRoE.vhd
@@ -2,11 +2,15 @@ library ieee;
   use ieee.std_logic_1164.all;
   use ieee.numeric_std.all;
 
+library machxo2;
+  use machxo2.components.all;
+
 
 
 entity FiRoE is
   generic (
-    TOGGLE   : boolean := true
+    IMP    : string  := "HDL",
+    TOGGLE : boolean := true
   );
   port (
     FiRo_o : out std_logic;
@@ -38,12 +42,33 @@ architecture rtl of FiRoE is
 begin
 
 
-  FiroRingG : for index in 1 to 15 generate
+  FiroRingG : for index in 0 to 30 generate
+
+    HdlG : if IMP = "HDL" generate
+
+      s_ring(index) <= not(s_ring(index - 1));
+
+    end generate HdlG;
 
-    s_ring(index) <= not(s_ring(index - 1));
+    LutG : if IMP = "LUT" generate
+
+      lut : LUT4
+        generic map (
+          init => x"FFFF"
+        )
+        port map (
+          Z => s_ring(i-1),
+          A => s_ring(i),
+          B => '0',
+          C => '0',
+          D => '0'
+        );
+
+      end generate LutG;
 
   end generate FiroRingG;
 
+
   s_ring(0) <= (s_ring(15) xor s_ring(14) xor s_ring(7) xor s_ring(6) xor s_ring(5) xor s_ring(4) xor s_ring(2)) and Run_i;
 
 
diff --git a/raspiFpga/src/RaspiFpgaE.vhd b/raspiFpga/src/RaspiFpgaE.vhd
index 7113d52..4a4df49 100644
--- a/raspiFpga/src/RaspiFpgaE.vhd
+++ b/raspiFpga/src/RaspiFpgaE.vhd
@@ -105,7 +105,8 @@ architecture rtl of RaspiFpgaE is
 
   component FiRoE is
     generic (
-      TOGGLE   : boolean := true
+      IMP    : string  := "HDL",
+      TOGGLE : boolean := true
     );
     port (
       FiRo_o : out std_logic;
@@ -323,6 +324,7 @@ begin
 
   i_FiRoE : FiRoE
     generic map (
+      IMP    => "LUT",
       TOGGLE => true
     )
     port map (