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
|
$GENERATED_INSTRUCTIONS;
/*
*----------------------------------------------------------------------
* AsmExecute --
*
* Define the execution engine for the code
*
*----------------------------------------------------------------------
*/
static int
AsmExecute(ClientData cd, Tcl_Interp *interp, AsmCompiledProc *proc, int argc, Tcl_Obj *CONST argv[]) {
//AsmInstruction *ip;
int i, result;
#if 0
Var *compiledLocals;
compiledLocals = ((Interp *) interp)->varFramePtr->compiledLocals;
if (compiledLocals != NULL) {
fprintf(stderr, "compiledLocals = %p\n", compiledLocals);
}
#endif
/*
* Place a copy of the actual argument into locals.
*/
for (i=1; i < argc; i++) {
proc->locals[i-1] = argv[i];
}
/*
* Update all references to compiled arguments.
*/
for (i=0; i < proc->nrAsmArgReferences; i++) {
AsmArgReference *arPtr = &proc->argReferences[i];
*(arPtr->objPtr) = proc->locals[arPtr->argNr];
}
/*
* Set the instruction pointer to the begin of the code.
*/
proc->ip = proc->code;
//fprintf(stderr, "ip %p\n", proc->ip);
while (*proc->ip->cmd) {
//fprintf(stderr, "will execute instruction ip %p cmd %p %p/%d\n", ip, ip->cmd, ip->argv[0], ip->argc);
//if (ip->cmd == tclFormat) {AsmInstructionPrint(ip);}
//if (ip->cmd == (Tcl_ObjCmdProc*)tclDispatch) {AsmInstructionPrint(ip);}
result = (*proc->ip->cmd)(proc->ip->clientData, interp, proc->ip->argc, proc->ip->argv);
/*fprintf(stderr, "%s returned <%s> (%d)\n",
Tcl_GetString(ip->argv[0]),
Tcl_GetString(Tcl_GetObjResult(interp)), result);*/
if (unlikely(result != TCL_OK)) break;
proc->ip++;
//fprintf(stderr, "ip %p\n", proc->ip);
}
return result;
}
|
