Subversion Repositories bluespec_md6

import Register::*;

interface Min#(type data_t);
  interface ReadOnly#(data_t) min;
  method Action inputSample(data_t sample);
endinterface

module mkMin (Min#(data_t))
  provisos (Bits#(data_t,data_sz),
            Ord#(data_t),
            Bounded#(data_t));

  Reg#(data_t) result <- mkReg(maxBound);

  interface min = readOnly(result._read);

  method Action inputSample(data_t sample);
    if(sample < result)
      begin
        result <= sample;
      end
  endmethod
endmodule