Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
/*
Crown Copyright (c) 1997
This TenDRA(r) Computer Program is subject to Copyright
owned by the United Kingdom Secretary of State for Defence
acting through the Defence Evaluation and Research Agency
(DERA). It is made available to Recipients with a
royalty-free licence for its use, reproduction, transfer
to other parties and amendment for any purpose not excluding
product development provided that any such use et cetera
shall be deemed to be acceptance of the following conditions:-
(1) Its Recipients shall ensure that this Notice is
reproduced upon any copies or amended versions of it;
(2) Any amended version of it shall be clearly marked to
show both the nature of and the organisation responsible
for the relevant amendment or amendments;
(3) Its onward transfer from a recipient to another
party shall be deemed to be that party's acceptance of
these conditions;
(4) DERA gives no warranty or assurance as to its
quality or suitability for any purpose and DERA accepts
no liability whatsoever in relation to any use to which
it may be put.
*/
/**********************************************************************
$Author: pwe $
$Date: 1998/03/11 11:03:40 $
$Revision: 1.3 $
$Log: dw2_entries.c,v $
* Revision 1.3 1998/03/11 11:03:40 pwe
* DWARF optimisation info
*
* Revision 1.2 1998/02/18 11:22:18 pwe
* test corrections
*
* Revision 1.1.1.1 1998/01/17 15:55:48 release
* First version to be checked into rolling release.
*
**********************************************************************/
#include "config.h"
#include "dw2_entries.h"
#include "dw2_config.h"
#include "dw2_basic.h"
#include "basicread.h"
static long empty[] = { -1 };
static long x_variable[] = {
H_AO | H_SS | H_LC,
H_AO | H_SS | H_LL,
H_AO | H_SS | H_LL | H_LE,
H_AO | H_SS | H_CV,
H_NM | H_XY | H_EX | H_TP | H_LC,
H_NM | H_XY | H_EX | H_TP | H_LL,
H_NM | H_XY | H_EX | H_TP | H_LL | H_LE,
H_NM | H_XY | H_TP | H_SS | H_LC,
H_NM | H_XY | H_TP | H_SS | H_LL,
H_NM | H_XY | H_TP | H_SS | H_LL | H_LE,
H_NM | H_XY | H_TP | H_SS | H_CV,
H_NM | H_XY | H_TP | H_CV,
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_LC,
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_LL,
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_LL | H_LE,
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_CV,
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_LC,
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_LL,
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_LL | H_LE,
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_CV,
H_DC | H_NM | H_XY | H_TP,
H_DC | H_NM | H_XY | H_EX | H_TP,
H_SP | H_XY | H_EX | H_LC,
H_SP | H_XY | H_EX | H_LL,
H_SP | H_XY | H_EX | H_LL | H_LE,
H_SP | H_XY | H_EX | H_CV,
H_SP | H_XY | H_SS | H_LC,
H_SP | H_XY | H_SS | H_LL,
H_SP | H_XY | H_SS | H_LL | H_LE,
H_SP | H_XY | H_SS | H_CV,
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_LC,
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_LL,
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_LL | H_LE,
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_CV,
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_LC,
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_LL,
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_LL | H_LE,
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_CV,
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_LC | H_RP,
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_LL | H_RP,
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_LL | H_LE | H_RP,
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_CV | H_RP,
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_LC | H_RP,
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_LL | H_RP,
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_LL | H_LE | H_RP,
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_CV | H_RP,
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_LC | H_RP,
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_LL | H_RP,
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_LL | H_LE | H_RP,
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_CV | H_RP,
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_LC | H_RP,
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_LL | H_RP,
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_LL | H_LE | H_RP,
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_CV | H_RP,
0 };
#define y_variable (H_DC|H_NM|H_XY|H_EX|H_AT)
static long x_constant[] = {
H_NM | H_XY | H_TP | H_EX | H_CV,
H_NM | H_XY | H_TP | H_SS | H_CV,
0 };
#define y_constant (H_DC|H_NM|H_XY|H_EX|H_AT|H_VP)
static long x_param[] = {
H_AO | H_LC,
H_AO | H_CV,
H_TP,
H_NM | H_XY | H_TP,
H_NM | H_XY | H_TP | H_VP,
H_NM | H_XY | H_TP | H_VP | H_LL,
H_NM | H_XY | H_TP | H_VP | H_LL | H_LE,
H_NM | H_XY | H_TP | H_AT | H_VP,
H_NM | H_XY | H_TP | H_AT | H_VP | H_LL,
H_NM | H_XY | H_TP | H_AT | H_VP | H_LL | H_LE,
H_NM | H_XY | H_TP | H_AC | H_VP,
H_NM | H_XY | H_TP | H_AC | H_VP | H_LL,
H_NM | H_XY | H_TP | H_AC | H_VP | H_LL | H_LE,
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP,
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_LL,
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_LL | H_LE,
H_AO | H_LL,
H_AO | H_LL | H_LE,
H_TP | H_DF,
H_NM | H_XY | H_TP | H_DF,
H_NM | H_XY | H_TP | H_VP | H_DF,
H_NM | H_XY | H_TP | H_VP | H_LL | H_DF,
H_NM | H_XY | H_TP | H_VP | H_LL | H_LE | H_DF,
H_NM | H_XY | H_TP | H_AT | H_VP | H_DF,
H_NM | H_XY | H_TP | H_AT | H_VP | H_LL | H_DF,
H_NM | H_XY | H_TP | H_AT | H_VP | H_LL | H_LE | H_DF,
H_NM | H_XY | H_TP | H_AC | H_VP | H_DF,
H_NM | H_XY | H_TP | H_AC | H_VP | H_LL | H_DF,
H_NM | H_XY | H_TP | H_AC | H_VP | H_LL | H_LE | H_DF,
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_DF,
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_LL | H_DF,
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_LL | H_LE | H_DF,
#ifdef H_DX
H_TP | H_DX,
H_NM | H_XY | H_TP | H_DX,
H_NM | H_XY | H_TP | H_VP | H_DX,
H_NM | H_XY | H_TP | H_VP | H_LL | H_DX,
H_NM | H_XY | H_TP | H_VP | H_LL | H_LE | H_DX,
H_NM | H_XY | H_TP | H_AT | H_VP | H_DX,
H_NM | H_XY | H_TP | H_AT | H_VP | H_LL | H_DX,
H_NM | H_XY | H_TP | H_AT | H_VP | H_LL | H_LE | H_DX,
H_NM | H_XY | H_TP | H_AC | H_VP | H_DX,
H_NM | H_XY | H_TP | H_AC | H_VP | H_LL | H_DX,
H_NM | H_XY | H_TP | H_AC | H_VP | H_LL | H_LE | H_DX,
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_DX,
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_LL | H_DX,
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_LL | H_LE | H_DX,
#endif
0 };
#define y_param (H_DC|H_NM|H_XY|H_AT|H_VP)
static long x_proc[] = {
H_AO | H_PC,
H_AO | H_PC | H_SL,
H_AO | H_PC | H_EXTN,
H_AO | H_PC | H_SL | H_EXTN,
H_DC | H_NM | H_XY | H_EX | H_AT | H_CC,
H_DC | H_NM | H_XY | H_EX | H_AT | H_CC | H_TP,
H_NM | H_XY | H_EX | H_AT | H_CC | H_PC,
H_NM | H_XY | H_EX | H_AT | H_CC | H_TP | H_PC,
H_NM | H_XY | H_EX | H_AT | H_CC | H_IL,
H_NM | H_XY | H_EX | H_AT | H_CC | H_TP | H_IL,
H_DC | H_SP | H_XY | H_EX | H_CC,
H_SP | H_XY | H_EX | H_CC | H_PC,
H_SP | H_XY | H_EX | H_CC | H_IL,
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_CC,
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_CC | H_TP,
H_NM | H_XY | H_EX | H_AT | H_AC | H_CC | H_PC,
H_NM | H_XY | H_EX | H_AT | H_AC | H_CC | H_TP | H_PC,
H_NM | H_XY | H_EX | H_AT | H_AC | H_CC | H_IL,
H_NM | H_XY | H_EX | H_AT | H_AC | H_CC | H_TP | H_IL,
H_DC | H_SP | H_XY | H_EX | H_AC | H_CC,
H_SP | H_XY | H_EX | H_AC | H_CC | H_PC,
H_SP | H_XY | H_EX | H_AC | H_CC | H_IL,
H_DC | H_NM | H_XY | H_EX | H_AT | H_CC | H_PT,
H_DC | H_NM | H_XY | H_EX | H_AT | H_CC | H_TP | H_PT,
H_NM | H_XY | H_EX | H_AT | H_CC | H_PT | H_PC,
H_NM | H_XY | H_EX | H_AT | H_CC | H_TP | H_PT | H_PC,
H_NM | H_XY | H_EX | H_AT | H_CC | H_PT | H_IL,
H_NM | H_XY | H_EX | H_AT | H_CC | H_TP | H_PT | H_IL,
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_CC | H_PT,
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_CC | H_TP | H_PT,
H_NM | H_XY | H_EX | H_AT | H_AC | H_CC | H_PT | H_PC,
H_NM | H_XY | H_EX | H_AT | H_AC | H_CC | H_TP | H_PT | H_PC,
H_NM | H_XY | H_EX | H_AT | H_AC | H_CC | H_PT | H_IL,
H_NM | H_XY | H_EX | H_AT | H_AC | H_CC | H_TP | H_PT | H_IL,
H_DC|H_NM|H_XY|H_EX|H_AT|H_CC|H_VT|H_EXTN,
H_DC|H_NM|H_XY|H_EX|H_AT|H_CC|H_TP|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_PC|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_TP|H_PC|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_IL|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_TP|H_IL|H_VT|H_EXTN,
H_DC|H_SP|H_XY|H_EX|H_CC|H_VT|H_EXTN,
H_SP|H_XY|H_EX|H_CC|H_PC|H_VT|H_EXTN,
H_SP|H_XY|H_EX|H_CC|H_IL|H_VT|H_EXTN,
H_DC|H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_VT|H_EXTN,
H_DC|H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_TP|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_PC|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_TP|H_PC|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_IL|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_TP|H_IL|H_VT|H_EXTN,
H_DC|H_SP|H_XY|H_EX|H_AC|H_CC|H_VT|H_EXTN,
H_SP|H_XY|H_EX|H_AC|H_CC|H_PC|H_VT|H_EXTN,
H_SP|H_XY|H_EX|H_AC|H_CC|H_IL|H_VT|H_EXTN,
H_DC|H_NM|H_XY|H_EX|H_AT|H_CC|H_PT|H_VT|H_EXTN,
H_DC|H_NM|H_XY|H_EX|H_AT|H_CC|H_TP|H_PT|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_PT|H_PC|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_TP|H_PT|H_PC|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_PT|H_IL|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_TP|H_PT|H_IL|H_VT|H_EXTN,
H_DC|H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_PT|H_VT|H_EXTN,
H_DC|H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_TP|H_PT|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_PT|H_PC|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_TP|H_PT|H_PC|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_PT|H_IL|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_TP|H_PT|H_IL|H_VT|H_EXTN,
H_DC|H_NM|H_XY|H_EX|H_AT|H_CC|H_VT|H_VL|H_EXTN,
H_DC|H_NM|H_XY|H_EX|H_AT|H_CC|H_TP|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_PC|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_TP|H_PC|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_IL|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_TP|H_IL|H_VT|H_VL|H_EXTN,
H_DC|H_SP|H_XY|H_EX|H_CC|H_VT|H_VL|H_EXTN,
H_SP|H_XY|H_EX|H_CC|H_PC|H_VT|H_VL|H_EXTN,
H_SP|H_XY|H_EX|H_CC|H_IL|H_VT|H_VL|H_EXTN,
H_DC|H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_VT|H_VL|H_EXTN,
H_DC|H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_TP|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_PC|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_TP|H_PC|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_IL|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_TP|H_IL|H_VT|H_VL|H_EXTN,
H_DC|H_SP|H_XY|H_EX|H_AC|H_CC|H_VT|H_VL|H_EXTN,
H_SP|H_XY|H_EX|H_AC|H_CC|H_PC|H_VT|H_VL|H_EXTN,
H_SP|H_XY|H_EX|H_AC|H_CC|H_IL|H_VT|H_VL|H_EXTN,
H_DC|H_NM|H_XY|H_EX|H_AT|H_CC|H_PT|H_VT|H_VL|H_EXTN,
H_DC|H_NM|H_XY|H_EX|H_AT|H_CC|H_TP|H_PT|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_PT|H_PC|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_TP|H_PT|H_PC|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_PT|H_IL|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_TP|H_PT|H_IL|H_VT|H_VL|H_EXTN,
H_DC|H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_PT|H_VT|H_VL|H_EXTN,
H_DC|H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_TP|H_PT|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_PT|H_PC|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_TP|H_PT|H_PC|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_PT|H_IL|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_TP|H_PT|H_IL|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_PC|H_SL|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_TP|H_PC|H_SL|H_VT|H_EXTN,
H_SP|H_XY|H_EX|H_CC|H_PC|H_SL|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_PC|H_SL|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_TP|H_PC|H_SL|H_VT|H_EXTN,
H_SP|H_XY|H_EX|H_AC|H_CC|H_PC|H_SL|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_PT|H_PC|H_SL|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_TP|H_PT|H_PC|H_SL|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_PT|H_PC|H_SL|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_TP|H_PT|H_PC|H_SL|H_VT|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_PC|H_SL|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_TP|H_PC|H_SL|H_VT|H_VL|H_EXTN,
H_SP|H_XY|H_EX|H_CC|H_PC|H_SL|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_PC|H_SL|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_TP|H_PC|H_SL|H_VT|H_VL|H_EXTN,
H_SP|H_XY|H_EX|H_AC|H_CC|H_PC|H_SL|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_PT|H_PC|H_SL|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_CC|H_TP|H_PT|H_PC|H_SL|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_PT|H_PC|H_SL|H_VT|H_VL|H_EXTN,
H_NM|H_XY|H_EX|H_AT|H_AC|H_CC|H_TP|H_PT|H_PC|H_SL|H_VT|H_VL|H_EXTN,
0 };
#define y_proc (H_DC|H_NM|H_XY|H_EX|H_AT|H_CC|H_VT|H_EXTN)
#define z_proc (H_EL|H_GN|H_RP|H_LN)
static long x_entry[] = {
H_NM | H_XY,
H_NM | H_XY | H_AC,
H_NM | H_XY | H_TP,
H_NM | H_XY | H_AC | H_TP,
H_NM | H_XY | H_RP,
H_NM | H_XY | H_AC | H_RP,
H_NM | H_XY | H_TP | H_RP,
H_NM | H_XY | H_AC | H_TP | H_RP,
0 };
#define y_entry (H_NM|H_XY)
static long x_module[] = {
H_AO,
H_AO | H_PC,
H_AO | H_EL,
H_DC | H_NM | H_XY | H_AT,
H_DC | H_NM | H_XY | H_AT | H_EXTN,
H_DC | H_SP | H_XY,
H_DC | H_NM | H_XY | H_AT | H_AC,
H_DC | H_NM | H_XY | H_AT | H_AC | H_EXTN,
H_DC | H_SP | H_XY | H_AC,
H_DC | H_NM | H_XY | H_AT | H_PC,
H_DC | H_NM | H_XY | H_AT | H_PC | H_EXTN,
H_DC | H_NM | H_XY | H_AT | H_AC | H_PC,
H_DC | H_NM | H_XY | H_AT | H_AC | H_PC | H_EXTN,
H_DC | H_NM | H_XY | H_AT | H_SP | H_EXTN,
H_DC | H_NM | H_XY | H_AT | H_AC | H_SP | H_EXTN,
H_DC | H_NM | H_XY | H_AT | H_PC | H_SP | H_EXTN,
H_DC | H_NM | H_XY | H_AT | H_AC | H_PC | H_SP | H_EXTN,
0 };
#define y_module (H_DC|H_NM|H_XY|H_AT)
static long x_namespace[] = {
H_AO,
H_DC | H_NM | H_XY | H_AT,
H_DC | H_NM | H_XY | H_AT | H_EXTN,
H_DC | H_SP | H_XY,
H_DC | H_NM | H_XY | H_AT | H_AC,
H_DC | H_NM | H_XY | H_AT | H_AC | H_EXTN,
H_DC | H_SP | H_XY | H_AC,
0 };
#define y_namespace (H_DC|H_NM|H_XY|H_AT)
static long x_import[] = {
0,
H_NM | H_XY,
H_AC,
H_NM | H_XY | H_AC,
H_SS,
H_NM | H_XY | H_SS,
H_AC | H_SS,
H_NM | H_XY | H_AC | H_SS,
0 };
#define y_import (H_NM|H_XY)
static long x_lexscope[] = {
0,
H_PC,
H_NM | H_XY | H_PC,
H_PC | H_BG,
H_NM | H_XY | H_PC | H_BG,
0 };
#define y_lexscope (H_NM|H_XY)
static long x_typedef[] = {
0,
H_TP,
H_DC | H_NM | H_XY,
H_NM | H_XY | H_TP,
H_DC | H_NM | H_XY | H_TP,
H_SP | H_NM | H_XY | H_TP,
H_SP | H_NM | H_XY | H_TP | H_NW,
H_DC | H_NM | H_XY | H_AT | H_TP | H_NW,
H_SP | H_DC | H_NM | H_XY | H_AT | H_TP | H_NW,
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_NW,
H_SP | H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_NW,
H_SP | H_NM | H_XY | H_TP | H_AD,
H_DC | H_NM | H_XY | H_AT | H_TP | H_AD,
H_SP | H_DC | H_NM | H_XY | H_AT | H_TP | H_AD,
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_AD,
H_SP | H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_AD,
H_AO,
0 };
#define y_typedef (H_DC|H_NM|H_XY|H_AT|H_NW)
static long x_struct[] = {
H_NM | H_SZ,
H_SZ,
H_DC | H_SZ,
H_DC | H_NM | H_SZ,
H_SP | H_SZ,
H_SP | H_NM | H_SZ,
H_DC | H_NM | H_XY | H_NW,
H_DC | H_NM | H_XY | H_SZ | H_NW,
H_SP | H_DC | H_NM | H_XY | H_NW,
H_SP | H_DC | H_NM | H_XY | H_SZ | H_NW,
0 };
#define y_struct (H_DC|H_NM|H_XY|H_NW)
static long x_class[] = {
H_NM | H_SZ,
H_SZ,
H_DC | H_SZ,
H_DC | H_NM | H_SZ,
H_SP | H_SZ,
H_SP | H_NM | H_SZ,
H_DC | H_NM | H_XY | H_EXTN,
H_DC | H_NM | H_XY | H_SZ | H_EXTN,
H_SP | H_DC | H_NM | H_XY | H_EXTN,
H_SP | H_DC | H_NM | H_XY | H_SZ | H_EXTN,
0 };
#define y_class (H_DC|H_NM|H_XY|H_GN|H_EXTN)
#define z_class (H_NW|H_EL|H_VS|H_VD|H_RS|H_RD|H_CB|H_ID)
static long x_member[] = {
H_NM | H_TP,
H_NM | H_TP | H_LC,
H_NM | H_TP | H_BF,
H_NM | H_TP | H_LC | H_BF,
H_NM | H_XY | H_TP,
H_NM | H_XY | H_TP | H_LC,
H_NM | H_XY | H_TP | H_BF,
H_NM | H_XY | H_TP | H_LC | H_BF,
H_NM | H_XY | H_AC | H_TP,
H_NM | H_XY | H_AC | H_TP | H_LC,
H_NM | H_XY | H_AC | H_TP | H_BF,
H_NM | H_XY | H_AC | H_TP | H_LC | H_BF,
H_NM | H_XY | H_TP | H_DS,
H_NM | H_XY | H_TP | H_LC | H_DS,
H_NM | H_XY | H_TP | H_BF | H_DS,
H_NM | H_XY | H_TP | H_LC | H_BF | H_DS,
H_NM | H_XY | H_AC | H_TP | H_DS,
H_NM | H_XY | H_AC | H_TP | H_LC | H_DS,
H_NM | H_XY | H_AC | H_TP | H_BF | H_DS,
H_NM | H_XY | H_AC | H_TP | H_LC | H_BF | H_DS,
H_NM | H_XY | H_TP | H_DS | H_DF,
H_NM | H_XY | H_TP | H_LC | H_DS | H_DF,
H_NM | H_XY | H_TP | H_BF | H_DS | H_DF,
H_NM | H_XY | H_TP | H_LC | H_BF | H_DS | H_DF,
H_NM | H_XY | H_AC | H_TP | H_DS | H_DF,
H_NM | H_XY | H_AC | H_TP | H_LC | H_DS | H_DF,
H_NM | H_XY | H_AC | H_TP | H_BF | H_DS | H_DF,
H_NM | H_XY | H_AC | H_TP | H_LC | H_BF | H_DS | H_DF,
#ifdef H_DX
H_NM | H_XY | H_TP | H_DS | H_DX,
H_NM | H_XY | H_TP | H_LC | H_DS | H_DX,
H_NM | H_XY | H_TP | H_BF | H_DS | H_DX,
H_NM | H_XY | H_TP | H_LC | H_BF | H_DS | H_DX,
H_NM | H_XY | H_AC | H_TP | H_DS | H_DX,
H_NM | H_XY | H_AC | H_TP | H_LC | H_DS | H_DX,
H_NM | H_XY | H_AC | H_TP | H_BF | H_DS | H_DX,
H_NM | H_XY | H_AC | H_TP | H_LC | H_BF | H_DS | H_DX,
#endif
0 };
#define y_member (H_NM|H_XY)
static long x_ind_mem[] = {
H_NM | H_TP | H_LC,
H_NM | H_XY | H_TP | H_LC,
0 };
#define y_ind_mem (H_NM|H_XY)
static long x_inherit[] = {
H_TP | H_LC,
H_XY | H_TP | H_LC | H_VT,
H_XY | H_TP | H_LC | H_AC | H_VT,
0 };
#define y_inherit (H_XY|H_VT)
static long x_procret[] = {
H_XY,
H_XY | H_PC,
H_XY | H_PC | H_LC,
0 };
static long x_throw[] = {
H_XY,
H_XY | H_TP,
H_XY | H_TP | H_LC,
H_XY | H_TP | H_CV,
0 };
static long x_destruct[] = {
0,
H_TP | H_LC,
H_TP | H_CV,
0 };
static long x_enum[] = {
H_NM | H_SZ,
H_NM | H_XY | H_SZ,
H_SP | H_NM | H_XY | H_SZ,
H_DC | H_NM | H_XY | H_SZ | H_NW,
H_SP | H_DC | H_NM | H_XY | H_SZ | H_NW,
0 };
#define y_enum (H_DC|H_NM|H_XY|H_NW)
static long x_cons_t[] = {
H_DC | H_TP | H_SZ,
H_DC | H_SP | H_TP | H_SZ,
0 };
#define y_cons_t (H_DC)
static long x_subr[] = {
0,
H_TP | H_SZ,
H_TP | H_SZ | H_LB,
H_TP | H_SZ | H_LB | H_UB,
H_TP | H_SZ | H_LB | H_CN,
H_TP | H_SZ | H_UB,
0 };
static long x_constraint[] = {
H_CV,
H_TP,
H_RM | H_CV,
H_RM | H_TP,
0 };
static long x_fixpt[] = {
0,
H_DF,
H_DS,
H_DF | H_DS,
0 };
#if 1
#define Z(a,b,c,d) {0, a, (long)b, (long)c, d}
#else
#define Z(a,b,c,d) {0, a, (long)b, (long)c}
#endif
abbrev_entry
dwe_comp_unit = Z (empty, 0, 0, "compilation unit"),
dwe_cmac_unit = Z (empty, 0, 0, "compilation unit with macros"),
dwe_module = Z (x_module, y_module, 0, "module"),
dwe_namespace = Z (x_namespace, y_namespace, 0, "namespace"),
dwe_subunit = Z (empty, 0, 0, "subunit"),
dwe_childunit = Z (empty, 0, 0, "child unit"),
dwe_child_acc = Z (empty, 0, 0, "child unit_a"),
dwe_import = Z (x_import, y_import, 0, "import"),
dwe_import_p = Z (x_import, y_import, 0, "import_p"),
dwe_entrypt = Z (empty, 0, 0, "entry point"),
dwe_param = Z (x_param, y_param, 0, "formal parameter"),
dwe_formal = Z (empty, 0, 0, "formal parameter type"),
dwe_opt_par = Z (empty, 0, 0, "unspecified parameters"),
dwe_thrown_t = Z (empty, 0, 0, "thrown type"),
dwe_inl_call = Z (empty, 0, 0, "inlined call"),
dwe_inl_opnd = Z (empty, 0, 0, "inlined call is operand"),
dwe_scope = Z (x_lexscope, y_lexscope, 0, "lexical block"),
dwe_fragment = Z (empty, 0, 0, "lexical fragment"),
dwe_label = Z (empty, 0, 0, "labelled statement"),
dwe_with = Z (empty, 0, 0, "with statement"),
dwe_try = Z (empty, 0, 0, "try block"),
dwe_catch = Z (empty, 0, 0, "catch block"),
dwe_variable = Z (x_variable, y_variable, 0, "variable"),
dwe_constant = Z (x_constant, y_constant, 0, "constant"),
dwe_tmpl_type = Z (empty, 0, 0, "template type"),
dwe_tmpl_val = Z (empty, 0, 0, "template value"),
dwe_tmpl_proc = Z (empty, 0, 0, "template proc"),
dwe_tmpl_mod = Z (empty, 0, 0, "template module"),
dwe_typedef = Z (x_typedef, y_typedef, 0, "type definition"),
dwe_typecon = Z (x_typedef, y_typedef, 0, "type definition with constraints"),
dwe_cnstraint = Z (x_constraint, 0, 0, "constraint"),
dwe_base_type = Z (empty, 0, 0, "base type"),
dwe_cnst_type = Z (empty, 0, 0, "const type"),
dwe_vol_type = Z (empty, 0, 0, "volatile type"),
dwe_clwd_type = Z (empty, 0, 0, "class wide type"),
dwe_als_type = Z (empty, 0, 0, "aliased type"),
dwe_lim_type = Z (empty, 0, 0, "limited type"),
dwe_ptr_type = Z (empty, 0, 0, "pointer type"),
dwe_hpptr_t = Z (empty, 0, 0, "heap-only pointer"),
dwe_ref_type = Z (empty, 0, 0, "reference type"),
dwe_pack_type = Z (empty, 0, 0, "packed type"),
dwe_arr_type = Z (empty, 0, 0, "array type"),
dwe_arr_dyn = Z (empty, 0, 0, "array type"),
dwe_subr_type = Z (x_subr, 0, 0, "subrange type"),
dwe_enum_type = Z (x_enum, y_enum, 0, "enumeration type"),
dwe_enum_tor = Z (empty, 0, 0, "enumerator"),
dwe_enum_char = Z (empty, 0, 0, "enumerator"),
dwe_struct_t = Z (x_struct, y_struct, 0, "struct type"),
dwe_member = Z (x_member, y_member, 0, "member"),
dwe_varpart = Z (empty, 0, 0, "variant part discr"),
dwe_varpart_t = Z (empty, 0, 0, "variant part type"),
dwe_variant_0 = Z (empty, 0, 0, "variant def"),
dwe_variant_1 = Z (empty, 0, 0, "variant val"),
dwe_variant_n = Z (empty, 0, 0, "variant list"),
dwe_union_t = Z (x_struct, y_struct, 0, "union type"),
dwe_class_t = Z (x_class, y_class, z_class, "class type"),
dwe_inheritce = Z (x_inherit, y_inherit, 0, "inheritance"),
dwe_friend = Z (empty, 0, 0, "friend"),
dwe_ptrmem_t = Z (empty, 0, 0, "ptr to member type"),
dwe_ind_mem = Z (x_ind_mem, y_ind_mem, 0, "indirect member"),
dwe_proc_type = Z (empty, 0, 0, "subroutine type"),
dwe_procv_t = Z (empty, 0, 0, "subroutine type void"),
dwe_string_t = Z (empty, 0, 0, "string type"),
dwe_stringc_t = Z (empty, 0, 0, "string type, constant length"),
dwe_file_t = Z (x_cons_t, y_cons_t, 0, "file type"),
dwe_set_t = Z (x_cons_t, y_cons_t, 0, "set type"),
dwe_fixpt_t = Z (x_fixpt, 0, 0, "fixed point type"),
dwe_fldg_t = Z (empty, 0, 0, "floating digits"),
dwe_modular_t = Z (empty, 0, 0, "modular type"),
dwe_task_t = Z (x_class, y_class, z_class, "task type"),
dwe_synch_t = Z (x_class, y_class, z_class, "synchronous type"),
dwe_entry = Z (x_entry, y_entry, 0, "entry"),
dwe_for_unit = Z (empty, 0, 0, "foreign compunit"),
dwe_for_lang = Z (empty, 0, 0, "foreign language"),
dwe_call = Z (empty, 0, 0, "subroutine call"),
dwe_return = Z (x_procret, 0, 0, "subroutine return"),
dwe_destruct = Z (x_destruct, 0, 0, "destruct"),
dwe_branch = Z (empty, 0, 0, "branch"),
dwe_branch_0 = Z (empty, 0, 0, "optimised branch"),
dwe_break = Z (empty, 0, 0, "breakpoint"),
dwe_test = Z (empty, 0, 0, "test"),
dwe_test_0 = Z (empty, 0, 0, "optimised test"),
dwe_jump = Z (empty, 0, 0, "jump"),
dwe_jump_0 = Z (empty, 0, 0, "optimised jump"),
dwe_lj = Z (empty, 0, 0, "long jump"),
dwe_lj_0 = Z (empty, 0, 0, "optimised long jump"),
dwe_throw = Z (x_throw, 0, 0, "throw"),
dwe_barrier = Z (empty, 0, 0, "entry barrier"),
dwe_select = Z (empty, 0, 0, "select"),
dwe_accept = Z (empty, 0, 0, "accept"),
dwe_accept_c = Z (empty, 0, 0, "accept_c"),
dwe_rts = Z (empty, 0, 0, "rts call"),
dwe_rts_en = Z (empty, 0, 0, "rts entry call"),
dwe_sel_alt = Z (empty, 0, 0, "select alternative"),
dwe_sel_alt_c = Z (empty, 0, 0, "select alternative_c"),
dwe_sel_guard = Z (empty, 0, 0, "select guard"),
dwe_asynchsel = Z (empty, 0, 0, "asynchronous select"),
dwe_trigger = Z (empty, 0, 0, "triggering alternate"),
dwe_trigger_c = Z (empty, 0, 0, "triggering alternate_c"),
dwe_abort_pt = Z (empty, 0, 0, "abortable part"),
dwe_abort_ptc = Z (empty, 0, 0, "abortable part_c"),
dwe_requeue = Z (empty, 0, 0, "requeue"),
dwe_unknown_t = Z (empty, 0, 0, "unknown type"),
dwe_span = Z (empty, 0, 0, "source span"),
dwe_span_strt = Z (empty, 0, 0, "span start"),
dwe_span_end = Z (empty, 0, 0, "span end"),
dwe_absent = Z (empty, 0, 0, "absent"),
dwe_absent_r = Z (empty, 0, 0, "absent with ref"),
dwe_absent_x = Z (empty, 0, 0, "absent statement"),
dwe_absent_xr = Z (empty, 0, 0, "absent statement with ref"),
dwe_displaced = Z (empty, 0, 0, "movement source"),
dwe_displ_x = Z (empty, 0, 0, "moved statement source"),
dwe_moved = Z (empty, 0, 0, "movement dest"),
dwe_moved_r = Z (empty, 0, 0, "movement dest with ref"),
dwe_moved_x = Z (empty, 0, 0, "trivial movement dest"),
dwe_moved_xr = Z (empty, 0, 0, "trivial movement dest with ref"),
dwe_optim = Z (empty, 0, 0, "optimisation block"),
dwe_proc = Z (x_proc, y_proc, z_proc, "subroutine");
static int count
PROTO_N ( (attr) )
PROTO_T ( long * attr )
{
int c = 0;
if (*attr == -1)
return 1;
do c++;
while (*(++attr));
return c;
}
void init_dw_entries
PROTO_Z ()
{
#define CT(x) x.index = c; c+= count(x.attr)
int c = 1;
CT (dwe_comp_unit);
CT (dwe_cmac_unit);
CT (dwe_module);
CT (dwe_namespace);
CT (dwe_subunit);
CT (dwe_childunit);
CT (dwe_child_acc);
CT (dwe_import);
CT (dwe_import_p);
CT (dwe_entrypt);
CT (dwe_param);
CT (dwe_formal);
CT (dwe_opt_par);
CT (dwe_thrown_t);
CT (dwe_inl_call);
CT (dwe_inl_opnd);
CT (dwe_scope);
CT (dwe_fragment);
CT (dwe_label);
CT (dwe_with);
CT (dwe_try);
CT (dwe_catch);
CT (dwe_variable);
CT (dwe_constant);
CT (dwe_tmpl_type);
CT (dwe_tmpl_val);
CT (dwe_tmpl_proc);
CT (dwe_tmpl_mod);
CT (dwe_typedef);
CT (dwe_typecon);
CT (dwe_cnstraint);
CT (dwe_base_type);
CT (dwe_cnst_type);
CT (dwe_vol_type);
CT (dwe_clwd_type);
CT (dwe_als_type);
CT (dwe_lim_type);
CT (dwe_ptr_type);
CT (dwe_hpptr_t);
CT (dwe_ref_type);
CT (dwe_pack_type);
CT (dwe_arr_type);
CT (dwe_arr_dyn);
CT (dwe_subr_type);
CT (dwe_enum_type);
CT (dwe_enum_tor);
CT (dwe_enum_char);
CT (dwe_struct_t);
CT (dwe_member);
CT (dwe_varpart);
CT (dwe_varpart_t);
CT (dwe_variant_0);
CT (dwe_variant_1);
CT (dwe_variant_n);
CT (dwe_union_t);
CT (dwe_class_t);
CT (dwe_inheritce);
CT (dwe_friend);
CT (dwe_ptrmem_t);
CT (dwe_ind_mem);
CT (dwe_proc_type);
CT (dwe_procv_t);
CT (dwe_string_t);
CT (dwe_stringc_t);
CT (dwe_file_t);
CT (dwe_set_t);
CT (dwe_fixpt_t);
CT (dwe_fldg_t);
CT (dwe_modular_t);
CT (dwe_task_t);
CT (dwe_synch_t);
CT (dwe_entry);
CT (dwe_for_unit);
CT (dwe_for_lang);
CT (dwe_call);
CT (dwe_return);
CT (dwe_destruct);
CT (dwe_branch);
CT (dwe_branch_0);
CT (dwe_break);
CT (dwe_test);
CT (dwe_test_0);
CT (dwe_jump);
CT (dwe_jump_0);
CT (dwe_lj);
CT (dwe_lj_0);
CT (dwe_throw);
CT (dwe_barrier);
CT (dwe_select);
CT (dwe_accept);
CT (dwe_accept_c);
CT (dwe_rts);
CT (dwe_rts_en);
CT (dwe_sel_alt);
CT (dwe_sel_alt_c);
CT (dwe_sel_guard);
CT (dwe_asynchsel);
CT (dwe_trigger);
CT (dwe_trigger_c);
CT (dwe_abort_pt);
CT (dwe_abort_ptc);
CT (dwe_requeue);
CT (dwe_unknown_t);
CT (dwe_span);
CT (dwe_span_strt);
CT (dwe_span_end);
CT (dwe_absent);
CT (dwe_absent_r);
CT (dwe_absent_x);
CT (dwe_absent_xr);
CT (dwe_displaced);
CT (dwe_displ_x);
CT (dwe_moved);
CT (dwe_moved_r);
CT (dwe_moved_x);
CT (dwe_moved_xr);
CT (dwe_optim);
CT (dwe_proc);
UNUSED (c);
return;
}
long dw_entry
PROTO_N ( (en, attr) )
PROTO_T ( abbrev_entry en X long attr )
{
int d_tag = en.index;
long * comb = en.attr;
if (*comb != -1) {
for (;;) {
long extra = *comb & ~attr;
long missing = attr & ~*comb & ~(en.special);
if (!(extra & ~(en.valid)) && !missing)
break;
if (!*(++comb))
failer ("unsupported attribute combination");
d_tag++;
}
}
out8 (); uleb128 ((unsigned long)d_tag);
#if 1
outnl_comment_i (en.aname, (long)(d_tag - en.index));
#else
d_outnl ();
#endif
return *comb;
}