From: ceriel Date: Fri, 27 Sep 1991 14:55:04 +0000 (+0000) Subject: Added support for grind X-Git-Tag: release-5-5~809 X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=39f7f119d7daf492c30d15d9574c71c24c5a85ca;p=ack.git Added support for grind --- diff --git a/mach/sparc/ce/ce.src/.distr b/mach/sparc/ce/ce.src/.distr index 8cce0dea7..e29812728 100644 --- a/mach/sparc/ce/ce.src/.distr +++ b/mach/sparc/ce/ce.src/.distr @@ -1,7 +1,12 @@ C_con_scon.c C_cst.c +C_dlb.c +C_dnam.c +C_ilb.c C_mes_begin.c C_mes_end.c +C_pnam.c C_rom_scon.c +C_scon.c misc.c ms_reg.c diff --git a/mach/sparc/ce/ce.src/C_dlb.c b/mach/sparc/ce/ce.src/C_dlb.c new file mode 100644 index 000000000..4d67952ba --- /dev/null +++ b/mach/sparc/ce/ce.src/C_dlb.c @@ -0,0 +1,4 @@ +#define CODE_EXPANDER +#include + +/* in ms_reg.c */ diff --git a/mach/sparc/ce/ce.src/C_dnam.c b/mach/sparc/ce/ce.src/C_dnam.c new file mode 100644 index 000000000..4d67952ba --- /dev/null +++ b/mach/sparc/ce/ce.src/C_dnam.c @@ -0,0 +1,4 @@ +#define CODE_EXPANDER +#include + +/* in ms_reg.c */ diff --git a/mach/sparc/ce/ce.src/C_ilb.c b/mach/sparc/ce/ce.src/C_ilb.c new file mode 100644 index 000000000..4d67952ba --- /dev/null +++ b/mach/sparc/ce/ce.src/C_ilb.c @@ -0,0 +1,4 @@ +#define CODE_EXPANDER +#include + +/* in ms_reg.c */ diff --git a/mach/sparc/ce/ce.src/C_pnam.c b/mach/sparc/ce/ce.src/C_pnam.c new file mode 100644 index 000000000..4d67952ba --- /dev/null +++ b/mach/sparc/ce/ce.src/C_pnam.c @@ -0,0 +1,4 @@ +#define CODE_EXPANDER +#include + +/* in ms_reg.c */ diff --git a/mach/sparc/ce/ce.src/C_scon.c b/mach/sparc/ce/ce.src/C_scon.c new file mode 100644 index 000000000..4d67952ba --- /dev/null +++ b/mach/sparc/ce/ce.src/C_scon.c @@ -0,0 +1,4 @@ +#define CODE_EXPANDER +#include + +/* in ms_reg.c */ diff --git a/mach/sparc/ce/ce.src/ms_reg.c b/mach/sparc/ce/ce.src/ms_reg.c index 245db537b..9f1e3f061 100644 --- a/mach/sparc/ce/ce.src/ms_reg.c +++ b/mach/sparc/ce/ce.src/ms_reg.c @@ -7,8 +7,9 @@ #include #include #include -#include "push_pop.h" +#include #include "mach.h" +#include "push_pop.h" #include #define MAX_NR_REGS 12 @@ -26,15 +27,18 @@ typedef struct reg_info { reg_t reg, reg2; /* reg2 used for doubles only */ } reg_info; -reg_info reg_dat[MAX_NR_REGS], flt_dat[MAX_NR_FLTS]; +static reg_info reg_dat[MAX_NR_REGS], flt_dat[MAX_NR_FLTS]; -int current_reg_mes[RM_COUNT+4]; +static int current_reg_mes[RM_COUNT+4]; -int in_reg_mes = 0; /* boolean */ -int reg_mes_nr; +static int in_reg_mes = 0; /* boolean */ +static int reg_mes_nr; +static int db_mes = 0; +static int db_str = 0; +static int db_nul = 0; /* boolean */ -int worst_reg_pri, worst_flt_pri; /* reset by C_prolog (to some large number) */ -int nr_reg_vars, nr_flt_vars; /* dito (both to 0) */ +static int worst_reg_pri, worst_flt_pri; /* reset by C_prolog (to some large number) */ +static int nr_reg_vars, nr_flt_vars; /* dito (both to 0) */ init_reg_man() { @@ -42,7 +46,7 @@ init_reg_man() nr_reg_vars = nr_flt_vars = 0; } -reg_t my_alloc_reg(pri,loc) +static reg_t my_alloc_reg(pri,loc) int pri, *loc; { reg_t S1; @@ -68,7 +72,7 @@ int pri, *loc; return S1; } -reg_t my_alloc_double(pri,loc,r2) +static reg_t my_alloc_double(pri,loc,r2) int pri, *loc; reg_t *r2; /* implementation note: my_alloc_double only reclaims other doubles @@ -101,7 +105,7 @@ reg_t *r2; return S1; } -reg_t my_alloc_float(pri,loc) +static reg_t my_alloc_float(pri,loc) int pri, *loc; /* just as for my_alloc_double, my_alloc_float never reclaims a double, * even though this me be useful and easy. Sorry. @@ -162,7 +166,7 @@ alloc_all_reg_vars() check_cache(); } -params_to_regs() /* copy required parameters to registers */ +static params_to_regs() /* copy required parameters to registers */ { int i, j; @@ -182,13 +186,13 @@ params_to_regs() /* copy required parameters to registers */ } } -cmp_flt_dat(e1, e2) +static cmp_flt_dat(e1, e2) reg_info *e1, *e2; { return (e1->offset - e2->offset); } -save_float_regs() +static save_float_regs() { int i; int offset; @@ -237,13 +241,23 @@ int ms; in_reg_mes = (ms == ms_reg); if (ms == ms_gto) fprint(codefile, "ta 3\n"); + db_mes = (ms == ms_stb || ms == ms_std) ? ms : 0; } +static dump_reg_tabs(); + C_mes_end() { int pos; reg_t S1, S2; + if (db_mes) { + db_nul = 0; + if (db_mes == ms_std && db_str == 2) fprint(codefile,",1f\n1:\n"); + else fprint(codefile, "\n"); + db_str = 0; + db_mes = 0; + } if (!in_reg_mes) /* end of some other mes */ return; if (reg_mes_nr == 0) { /* end of reg_mes's */ @@ -295,10 +309,92 @@ C_mes_end() C_cst( l) arith l; { + if (db_mes) { + if (! db_str) { + switchseg( SEGTXT); + if (l == N_SLINE) { + flush_cache(); + fprintf(codefile, "call ___uX_LiB\nnop\n"); + } + if (db_mes == ms_std) { + fprint(codefile, ".stabd 0x%lx,0", (long) l); + } + else fprint(codefile, ".stabn 0x%lx,0", (long) l); + db_str = 1; + db_nul = 1; + } + else fprint(codefile, ",0x%lx", (long) l); + if (! db_nul) { + fprint(codefile, ",0"); + db_nul = 1; + } + } if (in_reg_mes) current_reg_mes[reg_mes_nr++] = l; } +C_scon(s, l) +register char *s; +register arith l; +{ + if (db_mes) { + fprint(codefile, ".stabs \""); + while (--l) { + register int c = *s++; + + if (isprint(c) && c != '"' && c != '\\') + fprint(codefile, "%c", c); + else + fprint(codefile, "\\%03o", c); + } + fprint(codefile, "\""); + db_str = 2; + } +} + +C_dlb(l, off) +label l; +arith off; +{ + if (db_mes) { + fprint(codefile,","); + fprint(codefile, DLB_FMT, (long) l); + if (off) fprint(codefile,"+%ld", (long) off); + } +} + +C_dnam(l, off) +char *l; +arith off; +{ + if (db_mes) { + fprint(codefile,","); + fprint(codefile, DNAM_FMT, l); + if (off) fprint(codefile,"+%ld", (long) off); + } +} + +extern int B_procno; + +C_ilb(l) +label l; +{ + if (db_mes) { + fprint(codefile,","); + fprint(codefile, ILB_FMT, B_procno, (long)l); + } +} + +C_pnam(s) +char *s; +{ + if (db_mes) { + fprint(codefile,","); + fprint(codefile, NAME_FMT, s); + } +} + +static dump_reg_tabs(stream) FILE *stream; {