URL
https://opencores.org/ocsvn/or1k/or1k/trunk
Subversion Repositories or1k
[/] [or1k/] [tags/] [nog_patch_36/] [or1ksim/] [cuc/] [verilog.c] - Rev 908
Go to most recent revision | Compare with Previous | Blame | View Log
/* verilog.c -- OpenRISC Custom Unit Compiler, verilog generator * Copyright (C) 2002 Marko Mlinar, markom@opencores.org * * This file is part of OpenRISC 1000 Architectural Simulator. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include <stdio.h> #include <stdlib.h> #include <stdarg.h> #include <assert.h> #include "cuc.h" #include "insn.h" /* returns log2(x) */ int log2 (unsigned long x) { int c = 0; assert (x >= 0); if (!x) return 0; /* not by the book, but practical */ while (x != 1) x >>= 1, c++; return c; } /* Find index of load/store/call */ int find_lsc_index (cuc_func *f, int ref) { int c = 0; int i; int load; if (f->INSN(ref).index == II_CALL) { for (i = 0; i < f->nmsched; i++) { if (f->msched[i] == ref) break; if (f->mtype[i] & MT_CALL) c++; } } else { load = II_IS_LOAD (f->INSN(ref).index); for (i = 0; i < f->nmsched; i++) { if (f->msched[i] == ref) break; if (load && (f->mtype[i] & MT_LOAD) || !load && (f->mtype[i] & MT_STORE)) c++; } } return c; } /* Print out dependencies as verilog expression */ void print_deps (FILE *fo, cuc_func *f, int b, dep_list *t, int registered) { if (t) { int first = 0; while (t) { if (f->INSN(t->ref).type & IT_MEMORY) { fprintf (fo, "%s%c_end[%i]", first ? " && " : "", II_IS_LOAD (f->INSN(t->ref).index) ? 'l' : 's', find_lsc_index (f, t->ref)); } else if (f->INSN(t->ref).index == II_CALL) { int x; fprintf (fo, "%sf_end[%i]", first ? " && " : "", find_lsc_index (f, t->ref)); } else { printf ("print_deps: err %x\n", t->ref); assert (0); } first = 1; t = t->next; } } else { if (registered) fprintf (fo, "bb_start_r[%i]", b); else fprintf (fo, "bb_start[%i]", b); } } char *print_op_v (cuc_func *f, char *s, int ref, int j) { unsigned long op = f->INSN(ref).op[j]; unsigned long opt = f->INSN(ref).opt[j]; switch (opt & ~OPT_DEST) { case OPT_NONE: assert (0); break; case OPT_CONST: if (f->INSN(ref).type & IT_COND) { assert (op == 0 || op == 1); sprintf (s, "1'b%x", op); } else sprintf (s, "32'h%x", op); break; case OPT_REGISTER: if (opt & OPT_DEST) sprintf (s, "t%x_%x", REF_BB(ref), REF_I(ref)); else sprintf (s, "r%i_%c", op, opt & OPT_DEST ? 'o' : 'i'); break; #if 0 case OPT_FREG: assert (opt & OPT_DEST); sprintf (s, "fr%i_o", op); break; #endif case OPT_REF: sprintf (s, "t%x_%x", REF_BB(op), REF_I(op)); break; } return s; } /* Prints out specified instruction */ void print_insn_v (FILE *fo, cuc_func *f, int b, int i) { cuc_insn *ii = &f->bb[b].insn[i]; char *s = known[ii->index].rtl; char tmp[200] = ""; while (*s) { if (*s <= MAX_OPERANDS) { char t[30]; sprintf (tmp, "%s%s", tmp, print_op_v (f, t, REF(b, i), *s - 1)); } else if (*s == '\b') sprintf (tmp, "%s%i", b); else sprintf (tmp, "%s%c", tmp, *s); s++; } fprintf (fo, "%-40s /* %s */\n", tmp, ii->disasm); if (ii->type & IT_MEMORY) { int j, nls = find_lsc_index (f, REF (b, i)); if (II_IS_LOAD (ii->index)) { int nm; for (nm = 0; nm < f->nmsched; nm++) if (f->msched[nm] == REF (b, i)) break; assert (nm < f->nmsched); fprintf (fo, " if (rst) t%x_%x <= #1 32'h0;\n", b, i); fprintf (fo, " else if (l_end[%i]) t%x_%x <= #1 ", nls, b, i); switch (f->mtype[nm] & (MT_WIDTH | MT_SIGNED)) { case 1: fprintf (fo, "lwb_dat_i & 32'hff;\n"); break; case 2: fprintf (fo, "lwb_dat_i & 32'hffff;\n"); break; case 4 | MT_SIGNED: case 4: fprintf (fo, "lwb_dat_i;\n"); break; case 1 | MT_SIGNED: fprintf (fo, "{24{lwb_dat_i[7]}, lwb_dat_i[7:0]};\n"); break; case 2 | MT_SIGNED: fprintf (fo, "{16{lwb_dat_i[15]}, lwb_dat_i[15:0]};\n"); break; default: assert (0); } } } else if (ii->index == II_LRBB) { fprintf (fo, " if (rst) t%x_%x <= #1 1'b0;\n", b, i); assert (f->bb[b].prev[0] >= 0); fprintf (fo, " else if (bb_start[%i]) t%x_%x <= #1 bb_stb[%i];\n", b, b, i, f->bb[b].prev[0]); } else if (ii->index == II_REG) { fprintf (fo, " if (rst) t%x_%x <= #1 32'h0;\n", b, i); assert (ii->opt[1] == OPT_REF); fprintf (fo, " else if ("); if (f->bb[b].mdep) print_deps (fo, f, b, f->bb[b].mdep, 0); else fprintf (fo, "bb_stb[%i]", b); fprintf (fo, ") t%x_%x <= #1 t%x_%x;\n", b, i, REF_BB (ii->op[1]), REF_I (ii->op[1])); } } /* Outputs binary number */ static char *bin_str (unsigned long x, int len) { static char bx[33]; char *s = bx; while (len > 0) *s++ = '0' + ((x >> --len) & 1); *s = '\0'; return bx; } /* Returns index of branch instruction inside a block b */ static int branch_index (cuc_bb *bb) { int i; for (i = bb->ninsn - 1; i >= 0; i--) if (bb->insn[i].type & IT_BRANCH) return i; return -1; } static void print_turn_off_dep (FILE *fo, cuc_func *f, dep_list *dep) { while (dep) { assert (f->INSN(dep->ref).type & IT_MEMORY || f->INSN(dep->ref).index == II_CALL); fprintf (fo, " %c_stb[%i] <= #1 1'b0;\n", f->INSN(dep->ref).index == II_CALL ? 'f' : II_IS_LOAD (f->INSN(dep->ref).index) ? 'l' : 's', find_lsc_index (f, dep->ref)); dep = dep->next; } } static int func_index (cuc_func *f, int ref) { int i; unsigned long addr; assert (f->INSN(ref).index == II_CALL && f->INSN(ref).opt[0] & OPT_CONST); addr = f->INSN(ref).op[0]; for (i = 0; i < f->nfdeps; i++) if (f->fdeps[i]->start_addr == addr) return i; assert (0); return -1; } /* Generates verilog file out of insn dataflow */ void output_verilog (cuc_func *f, char *filename) { FILE *fo; int b, i, j; int ci = 0, co = 0; int nloads = 0, nstores = 0, ncalls = 0; char tmp[256]; cuc_bb *end_bb = NULL; int end_bb_no = -1; sprintf (tmp, "%s.v", filename); log ("Generating verilog file \"%s\"\n", tmp); printf ("Generating verilog file \"%s\"\n", tmp); if ((fo = fopen (tmp, "wt+")) == NULL) { fprintf (stderr, "Cannot open '%s'\n", tmp); exit (1); } for (b = 0; b < f->num_bb; b++) if (f->bb[b].type & BB_END) end_bb = &f->bb[end_bb_no = b]; assert (end_bb && end_bb->type & BB_END); /* output header */ fprintf (fo, "/* %s -- generated by OpenRISC Custom Unit Compiler\n", tmp); fprintf (fo, " (C) 2002 OpenCores.\n"); fprintf (fo, " function \"%s\"\n", filename); fprintf (fo, " at %08x - %08x\n", f->start_addr, f->end_addr); fprintf (fo, " num BBs %i */\n\n", f->num_bb); fprintf (fo, "module %s (clk, rst,\n", filename); fprintf (fo, " lwb_adr_o, lwb_dat_i, lwb_cycstb_o,\n"); fprintf (fo, " lwb_sel_o, lwb_linbrst_o, lwb_ack_i,\n"); fprintf (fo, " swb_adr_o, swb_dat_o, swb_cycstb_o,\n"); fprintf (fo, " swb_sel_o, swb_linbrst_o, swb_ack_i,\n"); fprintf (fo, "/* inputs */ "); for (i = 0; i < MAX_REGS; i++) if (f->used_regs[i]) { fprintf (fo, "r%i_i, ", i); ci++; } if (!ci) fprintf (fo, "/* NONE */"); fprintf (fo, "\n/* outputs */ "); for (i = 0; i < MAX_REGS; i++) if (f->lur[i] >= 0 && !f->saved_regs[i]) { fprintf (fo, "r%i_o, ", i); co++; } if (!co) fprintf (fo, "/* NONE */"); if (f->nfdeps) { fprintf (fo, "\n/* f. calls */, fstart_o, %sfend_i, fr11_i, ", log2 (f->nfdeps) > 0 ? "fid_o, " : ""); for (i = 0; i < 6; i++) fprintf (fo, "fr%i_o, ", i + 3); } fprintf (fo, "\n start_i, end_o, busy_o);\n\n"); fprintf (fo, "input clk, rst;\n"); fprintf (fo, "input start_i;\t/* Module starts when set to 1 */ \n"); fprintf (fo, "output end_o;\t/* Set when module finishes, cleared upon start_i == 1 */\n"); fprintf (fo, "output busy_o;\t/* Set when module should not be interrupted */\n"); fprintf (fo, "\n/* Bus signals */\n"); fprintf (fo, "output lwb_cycstb_o, swb_cycstb_o;\n"); fprintf (fo, "input lwb_ack_i, swb_ack_i;\n"); fprintf (fo, "output [3:0] lwb_sel_o, swb_sel_o;\n"); fprintf (fo, "output [31:0] lwb_adr_o, swb_adr_o;\n"); fprintf (fo, "output lwb_linbrst_o, swb_linbrst_o;\n"); fprintf (fo, "input [31:0] lwb_dat_i;\n"); fprintf (fo, "output [31:0] swb_dat_o;\n\n"); fprintf (fo, "reg lwb_cycstb_o, swb_cycstb_o;\n"); fprintf (fo, "reg [31:0] lwb_adr_o, swb_adr_o;\n"); fprintf (fo, "reg [3:0] lwb_sel_o, swb_sel_o;\n"); fprintf (fo, "reg [31:0] swb_dat_o;\n"); fprintf (fo, "reg lwb_linbrst_o, swb_linbrst_o;\n"); if (ci || co) fprintf (fo, "\n/* module ports */\n"); if (ci) { int first = 1; fprintf (fo, "input [31:0]"); for (i = 0; i < MAX_REGS; i++) if (f->used_regs[i]) { fprintf (fo, "%sr%i_i", first ? " " : ", ", i); first = 0; } fprintf (fo, ";\n"); } if (co) { int first = 1; fprintf (fo, "output [31:0]"); for (i = 0; i < MAX_REGS; i++) if (f->lur[i] >= 0 && !f->saved_regs[i]) { fprintf (fo, "%sr%i_o", first ? " " : ", ", i); first = 0; } fprintf (fo, ";\n"); } if (f->nfdeps) { fprintf (fo, "\n/* Function calls */\n"); fprintf (fo, "output [31:0] fr3_o"); for (i = 1; i < 6; i++) fprintf (fo, ", fr%i_o", i + 3); fprintf (fo, ";\n"); if (log2(f->nfdeps) > 0) fprintf (fo, "output [%i:0] fid_o;\n", log2(f->nfdeps)); fprintf (fo, "output fstart_o;\n"); fprintf (fo, "input fend_i;\n"); } /* Count loads & stores */ for (i = 0; i < f->nmsched; i++) if (f->mtype[i] & MT_STORE) nstores++; else if (f->mtype[i] & MT_LOAD) nloads++; else if (f->mtype[i] & MT_CALL) ncalls++; /* Output internal registers for loads */ if (nloads) { int first = 1; int num = 0; fprintf (fo, "\n/* internal registers for loads */\n"); for (i = 0; i < f->nmsched; i++) if (f->mtype[i] & MT_LOAD) { fprintf (fo, "%st%x_%x", first ? "reg [31:0] " : ", ", REF_BB(f->msched[i]), REF_I(f->msched[i])); if (num >= 8) { fprintf (fo, ";\n"); first = 1; num = 0; } else { first = 0; num++; } } if (!first) fprintf (fo, ";\n"); } /* Internal register for function return value */ if (f->nfdeps) { fprintf (fo, "\n/* Internal register for function return value */\n"); fprintf (fo, "reg [31:0] fr11_r;\n"); } fprintf (fo, "\n/* 'zero or one' hot state machines */\n"); if (nloads) fprintf (fo, "reg [%i:0] l_stb; /* loads */\n", nloads - 1); if (nstores) fprintf (fo, "reg [%i:0] s_stb; /* stores */\n", nstores - 1); fprintf (fo, "reg [%i:0] bb_stb; /* basic blocks */\n", f->num_bb - 1); { int first = 2; int num = 0; for (b = 0; b < f->num_bb; b++) for (i = 0; i < f->bb[b].ninsn; i++) if (f->bb[b].insn[i].type & IT_COND && f->bb[b].insn[i].index != II_REG && f->bb[b].insn[i].index != II_LRBB) { if (first == 2) fprintf (fo, "\n/* basic block condition wires */\n"); fprintf (fo, "%st%x_%x", first ? "wire " : ", ", b, i); if (num >= 8) { fprintf (fo, ";\n"); first = 1; num = 0; } else { first = 0; num++; } } if (!first) fprintf (fo, ";\n"); fprintf (fo, "\n/* forward declaration of normal wires */\n"); num = 0; first = 1; for (b = 0; b < f->num_bb; b++) for (i = 0; i < f->bb[b].ninsn; i++) if (!(f->bb[b].insn[i].type & (IT_COND | IT_BRANCH)) && f->bb[b].insn[i].index != II_REG && f->bb[b].insn[i].index != II_LRBB) { /* Exclude loads */ if (f->bb[b].insn[i].type & IT_MEMORY && II_IS_LOAD (f->bb[b].insn[i].index)) continue; fprintf (fo, "%st%x_%x", first ? "wire [31:0] " : ", ", b, i); if (num >= 8) { fprintf (fo, ";\n"); first = 1; num = 0; } else { first = 0; num++; } } if (!first) fprintf (fo, ";\n"); fprintf (fo, "\n/* forward declaration registers */\n"); num = 0; first = 1; for (b = 0; b < f->num_bb; b++) for (i = 0; i < f->bb[b].ninsn; i++) if (f->bb[b].insn[i].index == II_REG && f->bb[b].insn[i].index != II_LRBB) { fprintf (fo, "%st%x_%x", first ? "reg [31:0] " : ", ", b, i); if (num >= 8) { fprintf (fo, ";\n"); first = 1; num = 0; } else { first = 0; num++; } } if (!first) fprintf (fo, ";\n"); num = 0; first = 1; for (b = 0; b < f->num_bb; b++) for (i = 0; i < f->bb[b].ninsn; i++) if (f->bb[b].insn[i].index != II_REG && f->bb[b].insn[i].index == II_LRBB) { fprintf (fo, "%st%x_%x", first ? "reg " : ", ", b, i); if (num >= 8) { fprintf (fo, ";\n"); first = 1; num = 0; } else { first = 0; num++; } } if (!first) fprintf (fo, ";\n"); } if (nloads || nstores) fprintf (fo, "\n/* dependencies */\n"); if (nloads) fprintf (fo, "wire [%i:0] l_end = l_stb & {%i{lwb_ack_i}};\n", nloads - 1, nloads); if (nstores) fprintf (fo, "wire [%i:0] s_end = s_stb & {%i{swb_ack_i}};\n", nstores - 1, nstores); if (ncalls) fprintf (fo, "wire [%i:0] f_end = f_stb & {%i{fend_i}};\n", ncalls - 1, ncalls); fprintf (fo, "\n/* last dependency */\n"); fprintf (fo, "wire end_o = bb_stb[%i]", end_bb_no); if (end_bb->mdep) { fprintf (fo, " && "); print_deps (fo, f, end_bb_no, end_bb->mdep, 0); } fprintf (fo, "wire busy_o = |bb_stb\n"); /* Is there a loop right at end? */ if (end_bb->next[0] >= 0) { int bidx = branch_index (end_bb); char t[30]; print_op_v (f, t, REF (end_bb_no, bidx), 1); fprintf (fo, " && !%s", t); } fprintf (fo, ";\n"); fprintf (fo, "\n/* Basic block triggers */\n"); fprintf (fo, "wire [%2i:0] bb_start = {\n", f->num_bb - 1); for (b = f->num_bb - 1; b >= 0; b--) { fprintf (fo, " /* bb_start[%2i] */ ", b); if (f->bb[b].prev[0] < 0) fprintf (fo, "start_i"); else { cuc_bb *prev = &f->bb[f->bb[b].prev[0]]; int t; if (prev->mdep) { print_deps (fo, f, f->bb[b].prev[0], prev->mdep, 0); fprintf (fo, " && "); } fprintf (fo, "bb_stb[%i]", f->bb[b].prev[0]); if (prev->next[0] >= 0 && prev->next[1] >= 0) { int bidx = branch_index (&f->bb[f->bb[b].prev[0]]); assert (bidx >= 0); fprintf (fo, " && "); t = prev->next[0] == b; fprintf (fo, "%st%x_%x", t ? "" : "!", f->bb[b].prev[0], bidx); } if (f->bb[b].prev[1] >= 0) { prev = &f->bb[f->bb[b].prev[1]]; fprintf (fo, "\n || "); if (prev->mdep) { print_deps (fo, f, f->bb[b].prev[1], prev->mdep, 0); fprintf (fo, " && "); } fprintf (fo, "bb_stb[%i]", f->bb[b].prev[1]); if (prev->next[0] >= 0 && prev->next[1] >= 0) { int bidx = branch_index (&f->bb[f->bb[b].prev[1]]); assert (bidx >= 0); fprintf (fo, " && "); t = prev->next[0] == b; fprintf (fo, "%st%x_%x", t ? "" : "!", f->bb[b].prev[1], bidx); } } } if (b == 0) fprintf (fo, "};\n"); else fprintf (fo, ",\n"); } fprintf (fo, "\n/* Register the bb_start */\n"); fprintf (fo, "reg [%2i:0] bb_start_r;\n\n", f->num_bb - 1); fprintf (fo, "always @(posedge rst or posedge clk)\n"); fprintf (fo, "begin\n"); fprintf (fo, " if (rst) bb_start_r <= #1 %i'b0;\n", f->num_bb); fprintf (fo, " else if (end_o) bb_start_r <= #1 %i'b0;\n", f->num_bb); fprintf (fo, " else bb_start_r <= #1 bb_start;\n"); fprintf (fo, "end\n"); fprintf (fo, "\n/* Logic */\n"); /* output body */ for (b = 0; b < f->num_bb; b++) { fprintf (fo, "\t\t/* BB%i */\n", b); for (i = 0; i < f->bb[b].ninsn; i++) print_insn_v (fo, f, b, i); fprintf (fo, "\n"); } if (co) { fprintf (fo, "\n/* Outputs */\n"); for (i = 0; i < MAX_REGS; i++) if (f->lur[i] >= 0 && !f->saved_regs[i]) fprintf (fo, "assign r%i_o = t%x_%x;\n", i, REF_BB(f->lur[i]), REF_I(f->lur[i])); } if (nstores) { int cur_store = 0; fprintf (fo, "\n/* Memory stores */\n"); fprintf (fo, "always @(posedge clk or posedge rst)\nbegin\n"); fprintf (fo, " if (rst) swb_dat_o <= #1 32'h0;\n"); for (i = 0; i < f->nmsched; i++) if (f->mtype[i] & MT_STORE) { char t[30]; fprintf (fo, " else if (s_stb[%i]) swb_dat_o <= #1 %s;\n", cur_store++, print_op_v (f, t, f->msched[i], 0)); //printf ("msched[%i] = %x (mtype %x) %x\n", i, f->msched[i], f->mtype[i], f->INSN(f->msched[i]).op[0]); } fprintf (fo, "end\n"); } if (nloads) { int cur_load = 0; fprintf (fo, "\n/* Load state machine */\n"); fprintf (fo, "always @(posedge clk or posedge rst)\n"); fprintf (fo, "begin\n"); fprintf (fo, " if (rst) begin\n"); fprintf (fo, " l_stb <= #1 %i'h0;\n", nloads); fprintf (fo, " lwb_cycstb_o <= #1 1'b0;\n"); fprintf (fo, " lwb_sel_o[3:0] <= #1 4'b0000;\n"); fprintf (fo, " lwb_linbrst_o <= #1 1'b0;\n"); fprintf (fo, " lwb_adr_o <= #1 32'h0;\n"); fprintf (fo, " end else begin\n"); cucdebug (1, "loads \n"); for (i = 0; i < f->nmsched; i++) if (f->mtype[i] & MT_LOAD) { char t[30]; dep_list *dep = f->INSN(f->msched[i]).dep; cucdebug (1, "msched[%i] = %x (mtype %x)\n", i, f->msched[i], f->mtype[i]); assert (f->INSN(f->msched[i]).opt[1] & (OPT_REF | OPT_REGISTER)); fprintf (fo, " if ("); print_deps (fo, f, REF_BB(f->msched[i]), f->INSN(f->msched[i]).dep, 1); fprintf (fo, ") begin\n"); print_turn_off_dep (fo, f, dep); fprintf (fo, " l_stb[%i] <= #1 1'b1;\n", cur_load++); fprintf (fo, " lwb_cycstb_o <= #1 1'b1;\n"); fprintf (fo, " lwb_sel_o[3:0] <= #1 4'b"); switch (f->mtype[i] & MT_WIDTH) { case 1: fprintf (fo, "0001 << (%s & 32'h3);\n", print_op_v (f, t, f->msched[i], 1)); break; case 2: fprintf (fo, "0011 << ((%s & 32'h1) << 1);\n", print_op_v (f, t, f->msched[i], 1)); break; case 4: fprintf (fo, "1111;\n"); break; default: assert (0); } fprintf (fo, " lwb_linbrst_o <= #1 1'b%i;\n", (f->mtype[i] & MT_BURST) && !(f->mtype[i] & MT_BURSTE) ? 1 : 0); fprintf (fo, " lwb_adr_o <= #1 t%x_%x & ~32'h3;\n", REF_BB(f->INSN(f->msched[i]).op[1]), REF_I(f->INSN(f->msched[i]).op[1])); fprintf (fo, " end\n"); } fprintf (fo, " if (l_end[%i]) begin\n", nloads - 1); fprintf (fo, " l_stb <= #1 %i'h0;\n", nloads); fprintf (fo, " lwb_cycstb_o <= #1 1'b0;\n"); fprintf (fo, " lwb_sel_o[3:0] <= #1 4'b0000;\n"); fprintf (fo, " lwb_linbrst_o <= #1 1'b0;\n"); fprintf (fo, " lwb_adr_o <= #1 32'h0;\n"); fprintf (fo, " end\n"); fprintf (fo, " end\n"); fprintf (fo, "end\n"); } if (nstores) { int cur_store = 0; fprintf (fo, "\n/* Store state machine */\n"); fprintf (fo, "always @(posedge clk or posedge rst)\n"); fprintf (fo, "begin\n"); fprintf (fo, " if (rst) begin\n"); fprintf (fo, " s_stb <= #1 %i'h0;\n", nstores); fprintf (fo, " swb_cycstb_o <= #1 1'b0;\n"); fprintf (fo, " swb_sel_o[3:0] <= #1 4'b0000;\n"); fprintf (fo, " swb_linbrst_o <= #1 1'b0;\n"); fprintf (fo, " swb_adr_o <= #1 32'h0;\n"); fprintf (fo, " end else begin\n"); cucdebug (1, "stores \n"); for (i = 0; i < f->nmsched; i++) if (f->mtype[i] & MT_STORE) { char t[30]; dep_list *dep = f->INSN(f->msched[i]).dep; cucdebug (1, "msched[%i] = %x (mtype %x)\n", i, f->msched[i], f->mtype[i]); assert (f->INSN(f->msched[i]).opt[1] & (OPT_REF | OPT_REGISTER)); fprintf (fo, " if ("); print_deps (fo, f, REF_BB(f->msched[i]), f->INSN(f->msched[i]).dep, 1); fprintf (fo, ") begin\n"); print_turn_off_dep (fo, f, dep); fprintf (fo, " s_stb[%i] <= #1 1'b1;\n", cur_store++); fprintf (fo, " swb_cycstb_o <= #1 1'b1;\n"); fprintf (fo, " swb_sel_o[3:0] <= #1 4'b"); switch (f->mtype[i] & MT_WIDTH) { case 1: fprintf (fo, "0001 << (%s & 32'h3);\n", print_op_v (f, t, f->msched[i], 1)); break; case 2: fprintf (fo, "0011 << ((%s & 32'h1) << 1);\n", print_op_v (f, t, f->msched[i], 1)); break; case 4: fprintf (fo, "1111;\n"); break; default: assert (0); } fprintf (fo, " swb_linbrst_o <= #1 1'b%i;\n", (f->mtype[i] & MT_BURST) && !(f->mtype[i] & MT_BURSTE) ? 1 : 0); fprintf (fo, " swb_adr_o <= #1 t%x_%x & ~32'h3;\n", REF_BB(f->INSN(f->msched[i]).op[1]), REF_I(f->INSN(f->msched[i]).op[1])); fprintf (fo, " end\n"); } fprintf (fo, " if (s_end[%i]) begin\n", nstores - 1); fprintf (fo, " s_stb <= #1 %i'h0;\n", nstores); fprintf (fo, " swb_cycstb_o <= #1 1'b0;\n"); fprintf (fo, " swb_sel_o[3:0] <= #1 4'b0000;\n"); fprintf (fo, " swb_linbrst_o <= #1 1'b0;\n"); fprintf (fo, " swb_adr_o <= #1 32'h0;\n"); fprintf (fo, " end\n"); fprintf (fo, " end\n"); fprintf (fo, "end\n"); } if (ncalls) { int cur_call = 0; fprintf (fo, "\n/* Function calls state machine */\n"); fprintf (fo, "always @(posedge clk or posedge rst)\n"); fprintf (fo, "begin\n"); fprintf (fo, " if (rst) begin\n"); fprintf (fo, " f_stb <= #1 %i'h0;\n", nstores); for (i = 0; i < 6; i++) fprintf (fo, " fr%i_o <= #1 32'h0;\n", i + 3); if (log2(ncalls)) fprintf (fo, " fid_o <= #1 %i'h0;\n", log2 (f->nfdeps)); fprintf (fo, " fstart_o <= #1 1'b0;\n"); //fprintf (fo, " f11_r <= #1 32'h0;\n"); fprintf (fo, " end else begin\n"); cucdebug (1, "calls \n"); for (i = 0; i < f->nmsched; i++) if (f->mtype[i] & MT_CALL) { char t[30]; dep_list *dep = f->INSN(f->msched[i]).dep; cucdebug (1, "msched[%i] = %x (mtype %x)\n", i, f->msched[i], f->mtype[i]); assert (f->INSN(f->msched[i]).opt[1] & (OPT_REF | OPT_REGISTER)); fprintf (fo, " if ("); print_deps (fo, f, REF_BB(f->msched[i]), f->INSN(f->msched[i]).dep, 1); fprintf (fo, ") begin\n"); print_turn_off_dep (fo, f, dep); fprintf (fo, " f_stb[%i] <= #1 1'b1;\n", cur_call++); fprintf (fo, " fstart_o <= #1 1'b1;\n"); if (log2 (f->nfdeps)) fprintf (fo, " fid_o <= #1 %i'h%x;\n", log2 (f->nfdeps), func_index (f, f->msched[i])); for (j = 0; j < 6; j++) fprintf (fo, " fr%i_o <= #1 t%x_%x;\n", j + 3, REF_BB (f->msched[i]), REF_I (f->msched[i]) - 6 + i); fprintf (fo, " end\n"); } fprintf (fo, " if (f_end[%i]) begin\n", ncalls - 1); fprintf (fo, " f_stb <= #1 %i'h0;\n", ncalls); fprintf (fo, " f_start_o <= #1 1'b0;\n"); fprintf (fo, " end\n"); fprintf (fo, " end\n"); fprintf (fo, "end\n"); } fprintf (fo, "\n/* Basic blocks state machine */\n"); fprintf (fo, "always @(posedge clk or posedge rst)\n"); fprintf (fo, "begin\n"); fprintf (fo, " if (rst) bb_stb <= #1 %i'h%x;\n", f->num_bb, 0); fprintf (fo, " else if (end_o) bb_stb <= #1 %i'h%x;\n", f->num_bb, 0); for (i = 0; i < f->num_bb; i++) { fprintf (fo, " else if (bb_start[%i]) begin\n", i); fprintf (fo, " bb_stb <= #1 %i'h%x;\n", f->num_bb, 1 << i); } fprintf (fo, " end else if (end_o) begin\n"); fprintf (fo, " bb_stb <= #1 %i'h%x;\n", f->num_bb, 0); fprintf (fo, " end\n"); fprintf (fo, "end\n"); /* output footer */ fprintf (fo, "\nendmodule\n"); fclose (fo); }
Go to most recent revision | Compare with Previous | Blame | View Log