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
|
#include "config.h"
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <orc/orcprogram.h>
OrcExecutor *
orc_executor_new (OrcProgram *program)
{
OrcExecutor *ex;
ex = malloc(sizeof(OrcExecutor));
memset(ex,0,sizeof(OrcExecutor));
ex->program = program;
memcpy (ex->vars, program->vars, 10*sizeof(OrcVariable));
return ex;
}
void
orc_executor_free (OrcExecutor *ex)
{
free (ex);
}
void
orc_executor_run (OrcExecutor *ex)
{
void (*func) (OrcExecutor *);
func = ex->program->code_exec;
func (ex);
}
void
orc_executor_set_array (OrcExecutor *ex, int var, void *ptr)
{
ex->arrays[var] = ptr;
}
void
orc_executor_set_array_str (OrcExecutor *ex, const char *name, void *ptr)
{
int var;
var = orc_program_find_var_by_name (ex->program, name);
ex->arrays[var] = ptr;
}
void
orc_executor_set_n (OrcExecutor *ex, int n)
{
ex->n = n;
}
void
orc_executor_emulate (OrcExecutor *ex)
{
int i;
int j;
int k;
OrcProgram *program = ex->program;
OrcInstruction *insn;
OrcOpcode *opcode;
//printf("n %d\n", ex->n);
//printf("n_insns %d\n", program->n_insns);
for(i=0;i<ex->n;i++){
for(j=0;j<program->n_insns;j++){
insn = program->insns + j;
opcode = insn->opcode;
//printf("%d: %s\n", j, insn->opcode->name);
/* set up args */
for(k=0;k<opcode->n_src + opcode->n_dest;k++){
ex->args[k] = ex->vars + insn->args[k];
//printf("setting up arg %d as var %d vartype %d\n",
// k, insn->args[k], ex->args[k]->vartype);
if (ex->args[k]->vartype == ORC_VAR_TYPE_SRC) {
void *ptr = ex->arrays[insn->args[k]] + 2*i;
//printf("load %p\n", ptr);
ex->args[k]->s16 = *(int16_t *)ptr;
}
}
opcode->emulate (ex, opcode->emulate_user);
//printf("emulate: %d %d %d\n", ex->args[0]->s16,
// ex->args[1]->s16, ex->args[2]->s16);
for(k=0;k<opcode->n_src + opcode->n_dest;k++){
if (ex->args[k]->vartype == ORC_VAR_TYPE_DEST) {
void *ptr = ex->arrays[insn->args[k]] + 2*i;
//printf("store %p\n", ptr);
*(int16_t *)ptr = ex->args[k]->s16;
}
}
}
}
}
|
