d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

An offset fix, and added some files for solaris 2

Browse source
This commit is contained in:
ceriel 1993-10-04 08:57:25 +00:00
parent b06a419f71
commit c118bca2c2
4 changed files with 48 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
mach/sparc/ce/ce.src/.distr
View file

@ -8,5 +8,7 @@ C_mes_end.c
C_pnam.c C_pnam.c
C_rom_scon.c C_rom_scon.c
C_scon.c C_scon.c
C_exp.c
C_exa_dnam.c
misc.c misc.c
ms_reg.c ms_reg.c

13
mach/sparc/ce/ce.src/C_exa_dnam.c Normal file
View file

@ -0,0 +1,13 @@
#define CODE_EXPANDER
#include <em.h>
#include "back.h"
C_exa_dnam( s)
char *s;
{
s = extnd_dnam( s);
set_global_visible(s);
#ifdef __solaris__
fprint(codefile, "\t.type\t%s,#object\n", s);
#endif
}

13
mach/sparc/ce/ce.src/C_exp.c Normal file
View file

@ -0,0 +1,13 @@
#define CODE_EXPANDER
#include <em.h>
#include "back.h"
C_exp( s)
char *s;
{
s = extnd_name( s);
set_global_visible(s);
#ifdef __solaris__
fprint(codefile, "\t.type\t%s,#function\n", s);
#endif
}

40
mach/sparc/ce/ce.src/ms_reg.c
View file

@ -170,28 +170,17 @@ static params_to_regs() /* copy required parameters to registers */
{ {
int i, j; int i, j;
for (i = 0; i < nr_reg_vars; i++)
if (reg_dat[i].offset >= 4096) {
fprint(codefile, "set %d, %s\n",
reg_dat[i].offset, reg_dat[i].reg);
fprint(codefile, "ld [%%l1+%s], %s\n",
reg_dat[i].reg, reg_dat[i].reg);
}
else if (reg_dat[i].offset > 0)
fprint(codefile, "ld [%%l1+%d], %s\n",
reg_dat[i].offset, reg_dat[i].reg);
for (i = 0; i < nr_flt_vars; i++) for (i = 0; i < nr_flt_vars; i++)
if (flt_dat[i].offset >= 4092) { if (flt_dat[i].offset >= 4092) {
fprint(codefile, "set %d, %s\n", fprint(codefile, "set %d, %%l2\n",
reg_dat[i].offset, reg_dat[i].reg); flt_dat[i].offset);
fprint(codefile, "ld [%%l1+%s], %s\n", fprint(codefile, "ld [%%l1+%%l2], %s\n",
reg_dat[i].reg, reg_dat[i].reg); flt_dat[i].reg);
if (flt_dat[i].size == EM_DSIZE) { if (flt_dat[i].size == EM_DSIZE) {
fprint(codefile, "set %d, %s\n", fprint(codefile, "set %d, %%l2\n",
reg_dat[i].offset+4, reg_dat[i].reg2); flt_dat[i].offset+4);
fprint(codefile, "ld [%%l1+%s], %s\n", fprint(codefile, "ld [%%l1+%%l2], %s\n",
reg_dat[i].reg2, reg_dat[i].reg2); flt_dat[i].reg2);
} }
} }
else if (flt_dat[i].offset > 0) else if (flt_dat[i].offset > 0)
@ -202,6 +191,17 @@ static params_to_regs() /* copy required parameters to registers */
fprint(codefile, "ld [%%l1+%d], %s\n", fprint(codefile, "ld [%%l1+%d], %s\n",
flt_dat[i].offset + 4, flt_dat[i].reg2); flt_dat[i].offset + 4, flt_dat[i].reg2);
} }
for (i = 0; i < nr_reg_vars; i++)
if (reg_dat[i].offset >= 4096) {
fprint(codefile, "set %d, %s\n",
reg_dat[i].offset, reg_dat[i].reg);
fprint(codefile, "ld [%%l1+%s], %s\n",
reg_dat[i].reg, reg_dat[i].reg);
}
else if (reg_dat[i].offset > 0)
fprint(codefile, "ld [%%l1+%d], %s\n",
reg_dat[i].offset, reg_dat[i].reg);
} }
static cmp_flt_dat(e1, e2) static cmp_flt_dat(e1, e2)
@ -336,7 +336,7 @@ arith l;
switchseg( SEGTXT); switchseg( SEGTXT);
if (l == N_SLINE && ! __gdb_flag) { if (l == N_SLINE && ! __gdb_flag) {
flush_cache(); flush_cache();
fprintf(codefile, "call ___uX_LiB\nnop\n"); fprint(codefile, "call ___uX_LiB\nnop\n");
} }
if (db_mes == ms_std) { if (db_mes == ms_std) {
fprint(codefile, ".stabd 0x%lx,0", (long) l); fprint(codefile, ".stabd 0x%lx,0", (long) l);