1987-03-10 11:49:39 +00:00
|
|
|
/* $Header$ */
|
1987-03-09 19:15:41 +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".
|
|
|
|
|
*/
|
1984-11-26 15:04:22 +00:00
|
|
|
/* G L O B A L V A R I A B L E S */
|
|
|
|
|
|
|
|
|
|
/* sizes of TARGET machine */
|
|
|
|
|
|
|
|
|
|
extern int ps; /* pointer size */
|
|
|
|
|
extern int ws; /* word size */
|
|
|
|
|
|
|
|
|
|
/* sizes of SOURCE machine (i.e. machine on which
|
|
|
|
|
* the optimizer runs)
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
/* number of bits in a byte */
|
|
|
|
|
#define BYTELENGTH 8
|
|
|
|
|
|
1984-12-04 15:03:22 +00:00
|
|
|
/* number of bits in a word, defined in automatically generated file */
|
|
|
|
|
#include "../share/wordlen.h"
|
1984-11-26 15:04:22 +00:00
|
|
|
|
|
|
|
|
#if BYTELENGTH==8
|
|
|
|
|
#define DIVBL(a) ((a) >> 3)
|
|
|
|
|
#define MODBL(a) ((a) & 07)
|
|
|
|
|
#else
|
|
|
|
|
#define DIVBL(a) (a/BYTELENGTH)
|
|
|
|
|
#define MODBL(a) (a%BYTELENGTH)
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#if WORDLENGTH==16
|
|
|
|
|
#define DIVWL(a) ((a) >> 4)
|
|
|
|
|
#define MODWL(a) ((a) & 017)
|
|
|
|
|
#else
|
|
|
|
|
#if WORDLENGTH==32
|
|
|
|
|
#define DIVWL(a) ((a) >> 5)
|
|
|
|
|
#define MODWL(a) ((a) & 037)
|
|
|
|
|
#else
|
|
|
|
|
#define DIVWL(a) (a/WORDLENGTH)
|
|
|
|
|
#define MODWL(a) (a%WORDLENGTH)
|
|
|
|
|
#endif
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#define UNKNOWN_SIZE (-1)
|
|
|
|
|
|
|
|
|
|
extern proc_p curproc; /* current procedure */
|
|
|
|
|
|
|
|
|
|
extern char *filename; /* name of current input file */
|
|
|
|
|
|
|
|
|
|
extern lset mesregs; /* set of MES ms_reg pseudos */
|
|
|
|
|
|
|
|
|
|
extern short time_space_ratio; /* 0 if optimizing for space only,
|
|
|
|
|
* 100 if optimizing for time only,
|
|
|
|
|
* else something 'in between'.
|
|
|
|
|
*/
|
