fonts.scm « packages « gnu - guix - Wojtek's customized Guix

blob: 1ba691dac959453845c98ebd846d48f4eedd763d (about) (plain)

blob size (162KB) exceeds display size limit (100KB).

@ (posedge clock) begin if (progress == 0) begin start <= 1; dividend <= 15; divisor <= 3; progress <= progress + 1; end else begin if (done) begin if (dividend / divisor === quotient && dividend % divisor === remainder) begin `DBG(("%0d/%0d computed as %0d r %0d", dividend, divisor, quotient, remainder)); end else begin `MSG(("error: %0d/%0d computed as %0d r %0d", dividend, divisor, quotient, remainder)); end start <= 1; case (progress) 1 : begin dividend <= 3; divisor <= 4; end 2 : begin dividend <= 65535; divisor <= 65534; end 3 : begin dividend <= 1024; divisor <= 4; end 4 : begin dividend <= 319; divisor <= 17; end default : begin if (progress == 500) $finish; else if (progress > 400) max_divisor = 2**16; else if (progress > 200) max_divisor = 2**10; else max_divisor = 2**5; for (new_divisor = $urandom(seed) % max_divisor; new_divisor == 0; new_divisor = $urandom(seed) % max_divisor) ; dividend <= $urandom(seed); divisor <= new_divisor; end endcase // case (progress) progress <= progress + 1; end else begin // if (done) start <= 0; end // else: !if(done) end // else: !if(progress == 0) end // always @ (posedge clock) endmodule // div_test