1987-07-16 13:27:37 +00:00
|
|
|
/*
|
|
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
|
|
*/
|
|
|
|
|
|
|
|
/* M I S C E L L A N E O U S U T I L I T I E S */
|
|
|
|
|
|
|
|
/* $Header$ */
|
|
|
|
|
|
|
|
/* Code for the allocation and de-allocation of temporary variables,
|
|
|
|
allowing re-use.
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include <em.h>
|
|
|
|
#include <em_reg.h>
|
|
|
|
#include <alloc.h>
|
|
|
|
#include <em_mes.h>
|
|
|
|
|
|
|
|
#include "util.h"
|
|
|
|
#include "use_tmp.h"
|
1988-02-16 16:23:00 +00:00
|
|
|
#include "regcount.h"
|
1987-07-16 13:27:37 +00:00
|
|
|
#include "sizes.h"
|
|
|
|
#include "align.h"
|
|
|
|
#include "stack.h"
|
1988-04-26 15:33:48 +00:00
|
|
|
#include "Lpars.h"
|
|
|
|
#include "def.h"
|
1987-07-16 13:27:37 +00:00
|
|
|
|
|
|
|
static struct localvar *FreeTmps;
|
|
|
|
#ifdef USE_TMP
|
|
|
|
static int loc_id;
|
|
|
|
#endif USE_TMP
|
|
|
|
|
1988-02-16 16:23:00 +00:00
|
|
|
#ifdef PEEPHOLE
|
|
|
|
#undef REGCOUNTING
|
|
|
|
#define REGCOUNTING 1
|
|
|
|
#endif
|
|
|
|
|
1987-07-16 13:27:37 +00:00
|
|
|
extern char options[];
|
|
|
|
|
|
|
|
LocalInit()
|
|
|
|
{
|
|
|
|
#ifdef USE_TMP
|
|
|
|
C_insertpart(loc_id = C_getid());
|
|
|
|
#endif USE_TMP
|
|
|
|
}
|
|
|
|
|
|
|
|
arith
|
|
|
|
LocalSpace(sz, al)
|
|
|
|
arith sz;
|
|
|
|
{
|
|
|
|
register struct stack_level *stl = local_level;
|
|
|
|
|
|
|
|
stl->sl_max_block = - align(sz - stl->sl_max_block, al);
|
|
|
|
return stl->sl_max_block;
|
|
|
|
}
|
|
|
|
|
|
|
|
#define TABSIZ 32
|
|
|
|
static struct localvar *regs[TABSIZ];
|
|
|
|
|
|
|
|
arith
|
1988-04-26 15:33:48 +00:00
|
|
|
NewLocal(sz, al, regtype, sc)
|
1987-07-16 13:27:37 +00:00
|
|
|
arith sz;
|
|
|
|
{
|
|
|
|
register struct localvar *tmp = FreeTmps;
|
|
|
|
struct localvar *prev = 0;
|
|
|
|
register int index;
|
|
|
|
|
|
|
|
while (tmp) {
|
|
|
|
if (tmp->t_align >= al &&
|
|
|
|
tmp->t_size >= sz &&
|
1988-04-26 15:33:48 +00:00
|
|
|
tmp->t_sc == sc &&
|
1987-07-16 13:27:37 +00:00
|
|
|
tmp->t_regtype == regtype) {
|
|
|
|
if (prev) {
|
|
|
|
prev->next = tmp->next;
|
|
|
|
}
|
|
|
|
else FreeTmps = tmp->next;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
prev = tmp;
|
|
|
|
tmp = tmp->next;
|
|
|
|
}
|
|
|
|
if (! tmp) {
|
|
|
|
tmp = new_localvar();
|
|
|
|
tmp->t_offset = LocalSpace(sz, al);
|
|
|
|
tmp->t_align = al;
|
|
|
|
tmp->t_size = sz;
|
1988-04-26 15:33:48 +00:00
|
|
|
tmp->t_sc = sc;
|
1987-07-16 13:27:37 +00:00
|
|
|
tmp->t_regtype = regtype;
|
1988-04-26 15:33:48 +00:00
|
|
|
tmp->t_count = REG_DEFAULT;
|
1987-07-16 13:27:37 +00:00
|
|
|
}
|
|
|
|
index = (int) (tmp->t_offset >> 2) & (TABSIZ - 1);
|
|
|
|
tmp->next = regs[index];
|
|
|
|
regs[index] = tmp;
|
|
|
|
return tmp->t_offset;
|
|
|
|
}
|
|
|
|
|
|
|
|
FreeLocal(off)
|
|
|
|
arith off;
|
|
|
|
{
|
|
|
|
int index = (int) (off >> 2) & (TABSIZ - 1);
|
|
|
|
register struct localvar *tmp = regs[index];
|
|
|
|
struct localvar *prev = 0;
|
|
|
|
|
|
|
|
while (tmp && tmp->t_offset != off) {
|
|
|
|
prev = tmp;
|
|
|
|
tmp = tmp->next;
|
|
|
|
}
|
|
|
|
if (tmp) {
|
|
|
|
if (prev) prev->next = tmp->next;
|
|
|
|
else regs[index] = tmp->next;
|
|
|
|
tmp->next = FreeTmps;
|
|
|
|
FreeTmps = tmp;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
LocalFinish()
|
|
|
|
{
|
|
|
|
register struct localvar *tmp, *tmp1;
|
|
|
|
register int i;
|
|
|
|
|
|
|
|
#ifdef USE_TMP
|
|
|
|
C_beginpart(loc_id);
|
|
|
|
#endif
|
|
|
|
tmp = FreeTmps;
|
|
|
|
while (tmp) {
|
|
|
|
tmp1 = tmp;
|
1988-04-26 15:33:48 +00:00
|
|
|
if (tmp->t_sc == REGISTER) tmp->t_count += REG_BONUS;
|
1987-07-16 13:27:37 +00:00
|
|
|
if (! options['n'] && tmp->t_regtype >= 0) {
|
|
|
|
C_ms_reg(tmp->t_offset, tmp->t_size, tmp->t_regtype, tmp->t_count);
|
|
|
|
}
|
|
|
|
tmp = tmp->next;
|
|
|
|
free_localvar(tmp1);
|
|
|
|
}
|
|
|
|
FreeTmps = 0;
|
|
|
|
for (i = 0; i < TABSIZ; i++) {
|
|
|
|
tmp = regs[i];
|
|
|
|
while (tmp) {
|
1988-04-26 15:33:48 +00:00
|
|
|
if (tmp->t_sc == REGISTER) tmp->t_count += REG_BONUS;
|
1987-07-16 13:27:37 +00:00
|
|
|
tmp1 = tmp;
|
|
|
|
if (! options['n'] && tmp->t_regtype >= 0) {
|
|
|
|
C_ms_reg(tmp->t_offset,
|
|
|
|
tmp->t_size,
|
|
|
|
tmp->t_regtype,
|
|
|
|
tmp->t_count);
|
|
|
|
}
|
|
|
|
tmp = tmp->next;
|
|
|
|
free_localvar(tmp1);
|
|
|
|
}
|
|
|
|
regs[i] = 0;
|
|
|
|
}
|
1987-08-06 14:19:06 +00:00
|
|
|
if (! options['n']) {
|
|
|
|
C_mes_begin(ms_reg);
|
|
|
|
C_mes_end();
|
|
|
|
}
|
1987-07-16 13:27:37 +00:00
|
|
|
#ifdef USE_TMP
|
|
|
|
C_endpart(loc_id);
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
1988-04-26 15:33:48 +00:00
|
|
|
RegisterAccount(offset, size, regtype, sc)
|
1987-07-16 13:27:37 +00:00
|
|
|
arith offset, size;
|
|
|
|
{
|
|
|
|
register struct localvar *p;
|
|
|
|
int index;
|
|
|
|
|
|
|
|
if (regtype < 0) return;
|
|
|
|
|
|
|
|
p = new_localvar();
|
|
|
|
index = (int) (offset >> 2) & (TABSIZ - 1);
|
|
|
|
p->t_offset = offset;
|
|
|
|
p->t_regtype = regtype;
|
1988-04-26 15:33:48 +00:00
|
|
|
p->t_count = REG_DEFAULT;
|
|
|
|
p->t_sc = sc;
|
1987-07-16 13:27:37 +00:00
|
|
|
p->t_size = size;
|
|
|
|
p->next = regs[index];
|
|
|
|
regs[index] = p;
|
|
|
|
}
|
|
|
|
|
|
|
|
static struct localvar *
|
|
|
|
find_reg(off)
|
|
|
|
arith off;
|
|
|
|
{
|
|
|
|
register struct localvar *p = regs[(int)(off >> 2) & (TABSIZ - 1)];
|
|
|
|
|
|
|
|
while (p && p->t_offset != off) p = p->next;
|
|
|
|
return p;
|
|
|
|
}
|
|
|
|
|
|
|
|
LoadLocal(off, sz)
|
|
|
|
arith off, sz;
|
|
|
|
{
|
|
|
|
register struct localvar *p = find_reg(off);
|
|
|
|
|
1987-09-01 10:41:35 +00:00
|
|
|
#ifdef USE_TMP
|
1988-02-16 16:23:00 +00:00
|
|
|
#ifdef REGCOUNTING
|
1987-07-16 13:27:37 +00:00
|
|
|
if (p) p->t_count++;
|
1988-02-16 16:23:00 +00:00
|
|
|
#endif
|
1987-09-01 10:41:35 +00:00
|
|
|
#endif
|
1987-07-16 13:27:37 +00:00
|
|
|
if (sz == word_size) C_lol(off);
|
|
|
|
else if (sz == dword_size) C_ldl(off);
|
|
|
|
else {
|
|
|
|
if (p) p->t_regtype = -1;
|
|
|
|
C_lal(off);
|
|
|
|
C_loi(sz);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
StoreLocal(off, sz)
|
|
|
|
arith off, sz;
|
|
|
|
{
|
|
|
|
register struct localvar *p = find_reg(off);
|
|
|
|
|
1987-09-01 10:41:35 +00:00
|
|
|
#ifdef USE_TMP
|
1988-02-16 16:23:00 +00:00
|
|
|
#ifdef REGCOUNTING
|
1987-07-16 13:27:37 +00:00
|
|
|
if (p) p->t_count++;
|
1988-02-16 16:23:00 +00:00
|
|
|
#endif
|
1987-09-01 10:41:35 +00:00
|
|
|
#endif
|
1987-07-16 13:27:37 +00:00
|
|
|
if (sz == word_size) C_stl(off);
|
|
|
|
else if (sz == dword_size) C_sdl(off);
|
|
|
|
else {
|
|
|
|
if (p) p->t_regtype = -1;
|
|
|
|
C_lal(off);
|
|
|
|
C_sti(sz);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
AddrLocal(off)
|
|
|
|
arith off;
|
|
|
|
{
|
|
|
|
register struct localvar *p = find_reg(off);
|
|
|
|
|
|
|
|
if (p) p->t_regtype = -1;
|
|
|
|
C_lal(off);
|
|
|
|
}
|