File: Attributes.d

package info (click to toggle)
oo2c32 1.5.4-1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 8,888 kB
  • ctags: 5,436
  • sloc: ansic: 95,310; sh: 473; makefile: 345; perl: 57; lisp: 20
file content (121 lines) | stat: -rw-r--r-- 2,965 bytes parent folder | download | duplicates (3)
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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
/* file generated by oo2c -- do not edit */
#include "Attributes.h"
#include "Error.h"
#include "Opcode.h"
#include "Scanner.h"
#include "StdPragmas.h"
#include "StdTypes.h"
#include "SymbolTable.h"

/* local definitions */

/* function prototypes */
void Attributes__InitGreg_Parameter(Data__Object obj, Data__GlobalRegion *Attributes__InitGreg_greg);
Data__Instruction Attributes__InitGreg_CreateFalse(Data__GlobalRegion *Attributes__InitGreg_greg);
unsigned char Attributes__TracesToEmptyStore_ModifiedVarParam(Data__Object var, Data__Instruction call);
Data__Usable Attributes__TypeTag_TypeDescrAdr(Data__Struct type, Attributes__Item *Attributes__TypeTag_x, Data__Region *Attributes__TypeTag_region);
Data__Const Attributes__ArrayLength_GetConst(int value, unsigned char *Attributes__ArrayLength_adaptType);
Data__Usable Attributes__SizeOfItem_Mult(Data__Usable opnd0, Data__Usable opnd1, Data__Region *Attributes__SizeOfItem_region, int *Attributes__SizeOfItem_pos);
short int Attributes__GetNonParamOpnd_OpndCount(Data__Object formal);
Data__Opnd Attributes__GetNonParamOpnd_SkipOpnds(short int n, Data__Opnd opndList);
void Attributes__CleanupGreg_ScanUpdates(Data__Object obj);
void Attributes__CleanupGreg_RemoveNoopGateHints(Data__Region r);

/* module and type descriptors */
static const struct {
  int length;
  void* pad;
  const char name[11];
} _n0 = {11, NULL, {"Attributes"}};
static struct _MD Attributes_md = {
  NULL, 
  &Kernel__ModuleDesc_td.td, 
  {
    NULL, 
    (const unsigned char*)_n0.name, 
    -1, 
    NULL
  }
};

static const struct {
  int length;
  void* pad;
  const char name[5];
} _n1 = {5, NULL, {"Item"}};
static const struct {
  int length;
  void* pad;
  _Type btypes[1];
} Attributes__Item_tdb = {
  1, 
  NULL, 
  {
    &Attributes__Item_td.td
  }
};
static const struct {
  int length;
  void* pad;
  const void* tbprocs[1];
} _tb0 = {0, NULL, {
  NULL
}};
struct _TD Attributes__Item_td = {
  NULL,
  &Types__TypeDesc_td.td,
  {
    Attributes__Item_tdb.btypes,
    _tb0.tbprocs,
    (const unsigned char*)_n1.name,
    &Attributes_md.md,
    0, 
    '0', '1',
    sizeof(Attributes__Item),
    NULL
  }
};

static const struct {
  int length;
  void* pad;
  const char name[9];
} _n2 = {9, NULL, {"ExitInfo"}};
static const struct {
  int length;
  void* pad;
  _Type btypes[1];
} Attributes__ExitInfo_tdb = {
  1, 
  NULL, 
  {
    &Attributes__ExitInfo_td.td
  }
};
static const struct {
  int length;
  void* pad;
  const void* tbprocs[1];
} _tb1 = {0, NULL, {
  NULL
}};
struct _TD Attributes__ExitInfo_td = {
  NULL,
  &Types__TypeDesc_td.td,
  {
    Attributes__ExitInfo_tdb.btypes,
    _tb1.tbprocs,
    (const unsigned char*)_n2.name,
    &Attributes_md.md,
    0, 
    '0', '1',
    sizeof(Attributes__ExitInfo),
    &Attributes__Item_td.td
  }
};

/* local strings */
static const unsigned char _c2[] = "$result";
static const unsigned char _c1[] = "$trap";
static const unsigned char _c0[] = "$return";