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
|
/*
* stackframe.cc - a usecode interpreter stack frame
*
* Copyright (C) 2002-2022 The Exult Team
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#include "stackframe.h"
#include "endianio.h"
#include "ucfunction.h"
#include "ucinternal.h"
#include "useval.h"
#include <iomanip>
#include <iostream>
int Stack_frame::LastCallChainID = 0;
Stack_frame::Stack_frame(
Usecode_function* fun, int event, Game_object* caller, int chain,
int depth)
: function(fun), ins_ip(nullptr), ip(nullptr), data(nullptr),
externs(nullptr), code(nullptr), endp(nullptr), line_number(-1),
call_chain(chain), call_depth(depth), num_externs(0), num_args(0),
num_vars(0), locals(nullptr), eventid(event),
caller_item(shared_from_obj(caller)), save_sp(nullptr) {
ip = function->code;
endp = ip + function->len;
int data_len;
if (!fun->extended) {
data_len = little_endian::Read2(ip); // Get length of (text) data.
} else {
data_len = little_endian::Read4s(ip); // 32 bit lengths
}
data = ip;
ip += data_len; // Point past text.
num_args = little_endian::Read2(ip); // # of args. this function takes.
// Local variables follow args.
num_vars = little_endian::Read2(ip);
// Allocate locals.
const int num_locals = num_vars + num_args;
locals = new Usecode_value[num_locals];
num_externs = little_endian::Read2(ip); // external function references
externs = ip;
ip += 2 * num_externs; // now points to actual code
code = ins_ip = ip;
}
Stack_frame::~Stack_frame() {
delete[] locals;
}
std::ostream& operator<<(std::ostream& out, Stack_frame& frame) {
// #depth: 0xIP in 0xfunid ( obj=..., event=..., arguments )
// TODO: include any debugging info
// #depth: 0xIP in functionname (obj=...,event=..., arg1name=..., ...)
out << "#" << frame.call_depth << ": 0x" << std::hex << std::setw(4)
<< std::setfill('0') << static_cast<int>(frame.ins_ip - frame.code)
<< " in 0x" << std::setw(4) << frame.function->id
<< "(obj=" << std::setw(8) << frame.caller_item.get()
<< ",ev=" << frame.eventid << std::setfill(' ') << std::dec;
for (int i = 0; i < frame.num_args; i++) {
out << ", " << frame.locals[i];
}
out << ")";
return out;
}
|
