Subversion Repositories bluespec_md6

// CSG includes
import Debug::*;

// Local includes
import MD6Parameters::*;
import MD6Types::*;
import CompressionFunctionTypes::*;
import CompressionFunctionParameters::*;

Bool sgenDebug = False;

interface SGenerator;
  method MD6Word getS();
  method Action advanceRound();
  method Action resetS();
endinterface


module mkSGeneratorLogic (SGenerator);
  Reg#(MD6Word) s <- mkReg(s0()); // Grab S0 from parameters
  
  method MD6Word getS();
    return s;
  endmethod

  method Action advanceRound();
    MD6Word sRotate = (s << 1) | zeroExtend(s[valueof(MD6_WordWidth)-1]);
    MD6Word nextS =  sRotate ^ (s & sStar());
    s <= nextS;
    debug(sgenDebug,$display("Advancing s, old s: %h, new s:%h", s, nextS));
  endmethod

  method Action resetS();
    s <= s0();
  endmethod
  
endmodule