1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
/* file generated by oo2c -- do not edit */
#ifndef _MODULE_Attributes_
#define _MODULE_Attributes_
#include "Data.h"
typedef struct Attributes__Item {
int pos;
Data__Object obj;
Data__Struct type;
Data__Const const_;
Data__Usable currValue;
Data__Usable baseValue;
int basePos;
Data__Usable adr;
Data__Usable ttHint;
Data__Addressable assignment;
unsigned char nonlocalExit;
unsigned char designator;
short int arrayDim;
int readOnlyPos;
} Attributes__Item;
typedef struct Attributes__ExitInfo {
Data__Object result;
Data__Object return_;
unsigned char returned;
char _9pad, _10pad, _11pad;
Data__Object exit;
unsigned char exited;
char _17pad, _18pad, _19pad;
Data__Object trap;
unsigned char trapped;
char _25pad, _26pad, _27pad;
} Attributes__ExitInfo;
extern void Attributes__InitItem(Attributes__Item *x, _Type x__tag, int pos);
extern void Attributes__CreateItem(Attributes__Item *x, _Type x__tag, Data__Usable u, int pos);
extern void Attributes__SetOpndPos(Data__Instruction instr, int pos);
extern void Attributes__Operand(Data__Instruction instr, Attributes__Item *x, _Type x__tag);
extern Data__Instruction Attributes__DyadicOp(Data__Region region, short int opcode, Data__Struct type, Attributes__Item *opnd1, _Type opnd1__tag, Attributes__Item *opnd2, _Type opnd2__tag, int pos);
extern void Attributes__InitExitInfo(Attributes__ExitInfo *i, _Type i__tag);
extern void Attributes__ExitInfoOr(Attributes__ExitInfo *exitInfo, _Type exitInfo__tag, Attributes__ExitInfo *nestedInfo, _Type nestedInfo__tag);
extern Data__Guard Attributes__CreateGuard(Attributes__Item *cond, _Type cond__tag, short int opcode, int pos);
extern Data__GlobalRegion Attributes__CreateGreg(Data__Object bodyOf);
extern Data__GlobalRegion Attributes__InitGreg(Data__GlobalRegion greg, Attributes__ExitInfo *i, _Type i__tag);
extern unsigned char Attributes__TracesToEmptyStore(Data__Object var, Data__Usable store);
extern void Attributes__GuardExit(Data__GlobalRegion greg, Attributes__ExitInfo *exitInfo, _Type exitInfo__tag);
extern void Attributes__UnguardExit(Data__GlobalRegion greg, Attributes__ExitInfo *exitInfo, _Type exitInfo__tag);
extern Data__Result Attributes__FindAddEnterResult(Data__Region region, Data__Addressable var, short int attrib, Data__Struct type);
extern Data__Result Attributes__Address(Data__Region region, Data__Addressable var, int pos);
extern Data__Usable Attributes__TBProcAdr(Data__Region region, Data__Usable typeTag, Data__Struct staticType, Data__Object tbProc, int pos, unsigned char staticCall);
extern Data__Usable Attributes__Adr(Data__Region region, Attributes__Item *x, _Type x__tag);
extern Data__Usable Attributes__TypeTag(Data__Region region, Attributes__Item *x, _Type x__tag, short int base);
extern unsigned char Attributes__HasLengthInfo(Attributes__Item *array, _Type array__tag, short int dim);
extern void Attributes__ArrayLength(Data__Region region, Attributes__Item *array, _Type array__tag, short int dim, int pos, unsigned char adaptType, Attributes__Item *result, _Type result__tag);
extern void Attributes__SizeOfItem(Data__Region region, Attributes__Item *x, _Type x__tag, short int dim, int pos, Attributes__Item *size, _Type size__tag);
extern Data__Opnd Attributes__GetNonParamOpnd(Data__Instruction call);
extern unsigned char Attributes__PartOfStore(Data__Object proc, Data__Location loc);
extern void Attributes__ContainsRuntimeCheck(Data__Region region);
extern void Attributes__CleanupGreg(Data__GlobalRegion greg);
extern struct _TD Attributes__Item_td;
extern struct _TD Attributes__ExitInfo_td;
extern void Attributes_init(void);
#endif
|
