f6c43b95ef
--HG-- branch : dtrg-buildsystem rename : lang/pc/build.mk => lang/m2/build.mk rename : lang/pc/libpc/build.mk => lang/m2/comp/build.mk rename : lang/pc/libpc/build.mk => lang/m2/libm2/build.mk
140 lines
2.4 KiB
C
140 lines
2.4 KiB
C
/*
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
*
|
|
* Author: Ceriel J.H. Jacobs
|
|
*/
|
|
|
|
/* T E M P O R A R Y V A R I A B L E S */
|
|
|
|
/* $Id$ */
|
|
|
|
/* Code for the allocation and de-allocation of temporary variables,
|
|
allowing re-use.
|
|
The routines use "ProcScope" instead of "CurrentScope", because
|
|
"CurrentScope" also reflects WITH statements, and these scopes do not
|
|
have local variabes.
|
|
*/
|
|
|
|
#include "parameters.h"
|
|
#include "debug.h"
|
|
|
|
#include <em_arith.h>
|
|
#include <em_label.h>
|
|
#include <em_code.h>
|
|
#include <em_reg.h>
|
|
#include <alloc.h>
|
|
#include <assert.h>
|
|
|
|
#include "LLlex.h"
|
|
#include "def.h"
|
|
#include "type.h"
|
|
#include "scope.h"
|
|
#include "main.h"
|
|
|
|
struct tmpvar {
|
|
struct tmpvar *t_next;
|
|
arith t_offset; /* offset from LocalBase */
|
|
};
|
|
|
|
/* STATICALLOCDEF "tmpvar" 10 */
|
|
|
|
static struct tmpvar *TmpInts, /* for integer temporaries */
|
|
*TmpPtrs; /* for pointer temporaries */
|
|
static t_scope *ProcScope; /* scope of procedure in which the
|
|
temporaries are allocated
|
|
*/
|
|
|
|
TmpOpen(sc) t_scope *sc;
|
|
{
|
|
/* Initialize for temporaries in scope "sc".
|
|
*/
|
|
ProcScope = sc;
|
|
}
|
|
|
|
arith
|
|
TmpSpace(sz, al)
|
|
arith sz;
|
|
{
|
|
register t_scope *sc = ProcScope;
|
|
|
|
sc->sc_off = - WA(align(sz - sc->sc_off, al));
|
|
return sc->sc_off;
|
|
}
|
|
|
|
STATIC arith
|
|
NewTmp(plist, sz, al, regtype)
|
|
register struct tmpvar **plist;
|
|
arith sz;
|
|
{
|
|
register arith offset;
|
|
register struct tmpvar *tmp;
|
|
|
|
if (!*plist) {
|
|
offset = TmpSpace(sz, al);
|
|
if (! options['n']) C_ms_reg(offset, sz, regtype, 0);
|
|
}
|
|
else {
|
|
tmp = *plist;
|
|
offset = tmp->t_offset;
|
|
*plist = tmp->t_next;
|
|
free_tmpvar(tmp);
|
|
}
|
|
return offset;
|
|
}
|
|
|
|
arith
|
|
NewInt()
|
|
{
|
|
return NewTmp(&TmpInts, int_size, int_align, reg_any);
|
|
}
|
|
|
|
arith
|
|
NewPtr()
|
|
{
|
|
return NewTmp(&TmpPtrs, pointer_size, pointer_align, reg_pointer);
|
|
}
|
|
|
|
STATIC
|
|
FreeTmp(plist, off)
|
|
struct tmpvar **plist;
|
|
arith off;
|
|
{
|
|
register struct tmpvar *tmp = new_tmpvar();
|
|
|
|
tmp->t_next = *plist;
|
|
tmp->t_offset = off;
|
|
*plist = tmp;
|
|
}
|
|
|
|
FreeInt(off)
|
|
arith off;
|
|
{
|
|
FreeTmp(&TmpInts, off);
|
|
}
|
|
|
|
FreePtr(off)
|
|
arith off;
|
|
{
|
|
FreeTmp(&TmpPtrs, off);
|
|
}
|
|
|
|
TmpClose()
|
|
{
|
|
register struct tmpvar *tmp, *tmp1;
|
|
|
|
tmp = TmpInts;
|
|
while (tmp) {
|
|
tmp1 = tmp;
|
|
tmp = tmp->t_next;
|
|
free_tmpvar(tmp1);
|
|
}
|
|
tmp = TmpPtrs;
|
|
while (tmp) {
|
|
tmp1 = tmp;
|
|
tmp = tmp->t_next;
|
|
free_tmpvar(tmp1);
|
|
}
|
|
TmpInts = TmpPtrs = 0;
|
|
}
|