translate_subx - mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

blob: 4b73008826a65a4b0e65baa129e55223706a13a3 (plain) (tree)

90538f23 ^

71e4f381 ^

90538f23 ^

99c3cfdd ^

90538f23 ^

71e4f381 ^

d9d9ab81 ^

71e4f381 ^

099f0d5d ^

71e4f381 ^

418ea7d3 ^

generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-06-26 14:58:40 +0000

quot; << HEXWORD << read_mem_u32(p->second) << end(); } :(before "End Globals") string Watch_this_effective_address; :(after "Run One Instruction") Watch_this_effective_address = ""; if (contains_key(Symbol_name, EIP) && starts_with(get(Symbol_name, EIP), "$watch-")) Watch_this_effective_address = get(Symbol_name, EIP); :(after "Found effective_address(addr)") if (!Watch_this_effective_address.empty()) { dbg << "now watching " << HEXWORD << addr << " for " << Watch_this_effective_address << end(); put(Watch_points, Watch_this_effective_address, addr); } //: If a label starts with '$dump-stack', dump out to the trace n bytes on //: either side of ESP. :(after "Run One Instruction") if (contains_key(Symbol_name, EIP) && starts_with(get(Symbol_name, EIP), "$dump-stack")) { dump_stack(64); } :(code) void dump_stack(int n) { uint32_t stack_pointer = Reg[ESP].u; uint32_t start = ((stack_pointer-n)&0xfffffff0); dbg << "stack:" << end(); for (uint32_t addr = start; addr < start+n*2; addr+=16) { if (addr >= AFTER_STACK) break; ostringstream out; out << HEXWORD << addr << ":"; for (int i = 0; i < 16; i+=4) { out << ' '; out << ((addr+i == stack_pointer) ? '[' : ' '); out << HEXWORD << read_mem_u32(addr+i); out << ((addr+i == stack_pointer) ? ']' : ' '); } dbg << out.str() << end(); } } //: Special label that dumps regions of memory. //: Not a general mechanism; by the time you get here you're willing to hack //: on the emulator. :(after "Run One Instruction") if (contains_key(Symbol_name, EIP) && get(Symbol_name, EIP) == "$dump-stream-at-EAX") dump_stream_at(Reg[EAX].u); :(code) void dump_stream_at(uint32_t stream_start) { int32_t stream_length = read_mem_i32(stream_start + 8); dbg << "stream length: " << std::dec << stream_length << end(); for (int i = 0; i < stream_length + 12; ++i) dbg << "0x" << HEXWORD << (stream_start+i) << ": " << HEXBYTE << NUM(read_mem_u8(stream_start+i)) << end(); } //: helpers :(code) string hacky_squeeze_out_whitespace(const string& s) { // strip whitespace at start string::const_iterator first = s.begin(); while (first != s.end() && isspace(*first)) ++first; if (first == s.end()) return ""; // strip whitespace at end string::const_iterator last = --s.end(); while (last != s.begin() && isspace(*last)) --last; ++last; // replace runs of spaces/dots with single space until comment or string // TODO: // leave alone dots not surrounded by whitespace // leave alone '#' within word // leave alone '"' within word // squeeze spaces after end of string ostringstream out; bool previous_was_space = false; bool in_comment_or_string = false; for (string::const_iterator curr = first; curr != last; ++curr) { if (in_comment_or_string) out << *curr; else if (isspace(*curr) || *curr == '.') previous_was_space = true; else { if (previous_was_space) out << ' '; out << *curr; previous_was_space = false; if (*curr == '#' || *curr == '"') in_comment_or_string = true; } } return out.str(); }