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
|
/* { dg-do compile } */
/* { dg-options "-O -finline-functions -finline-small-functions -Wuninitialized" } */
struct SQObjectPtr
{
int _type;
SQObjectPtr operator = (long);
};
struct SQObjectPtrVec
{
SQObjectPtr fff (unsigned);
SQObjectPtr *_vals;
};
struct SQInstruction
{
int _arg1;
unsigned op;
unsigned _arg0;
unsigned _arg2;
};
struct SQVM
{
struct CallInfo
{
SQInstruction *_ip;
};
bool
Execute (SQObjectPtr &, long, long, long, SQObjectPtr &, unsigned, int);
bool
FOREACH_OP
(SQObjectPtr
&, SQObjectPtr &, SQObjectPtr &, SQObjectPtr &, long, int, int &);
SQObjectPtrVec _stack;
CallInfo *ci;
long _nnativecalls;
bool ShouldSuspend ();
};
struct AutoDec
{
AutoDec (long *);
~AutoDec ();
};
bool
SQVM::FOREACH_OP
(SQObjectPtr
&
o1,
SQObjectPtr & o2, SQObjectPtr &, SQObjectPtr & o4, long, int, int &jump)
{
long
nrefidx = 0;
switch (o1._type)
{
case 0x02000000:
o4 = nrefidx;
jump = 1;
return true;
case 0x00000080:
{
long
idx = 10;
o2 = idx;
jump = 0;
}
}
}
bool
SQVM::Execute
(SQObjectPtr &, long, long, long, SQObjectPtr &, unsigned, int)
{
AutoDec
ad (&_nnativecalls);
for (;;)
{
if (ShouldSuspend ())
return true;
SQInstruction
_i_ = *ci->_ip;
switch (_i_.op)
{
case 0:
{
int
tojump;
FOREACH_OP
(_stack._vals
[_i_._arg0],
_stack._vals
[_i_._arg2],
_stack._vals
[_i_._arg2],
_stack._vals[_i_._arg2], _i_._arg2, _i_._arg1, tojump);
ci += tojump; /* { dg-warning "uninitialized" "warning" } */
}
case 1:
_stack.fff (_i_._arg1);
}
}
}
|
