void unpatch(U32 maddr, U32 (*code)(struct m_registers *, void *)) {
struct seg_info *seg;
struct code_info *ci;
if ((!(seg = find_seg(code_tree, maddr))) ||
(!(ci = find_ci(&seg->codeinfo, maddr))) ||
(!(ci->flags & CIF_PATCHED))) {
return;
}
ci->code = code;
ci->flags &= ~CIF_PATCHED;
}
VALUE ext_parse_accept_value(VALUE _, volatile VALUE str) {
if (str == Qnil) {
return rb_ary_new();
}
str = trim_space_and_truncate(str);
const char* s = RSTRING_PTR(str);
long len = RSTRING_LEN(str);
volatile VALUE out = rb_ary_new();
qarray_len = 0;
while (len > 0) {
long seg_len = find_seg(s, len);
if (seg_len == 0) {
break;
}
parse_seg(s, seg_len, out);
s += seg_len + 1;
len -= seg_len + 1;
}
return out;
}
U32 (*setpatch(U32 maddr, U32 (*code)(struct m_registers *, void *)))(struct m_registers *, void *)
{
struct seg_info *seg;
struct code_info *ci;
#ifdef DEBUG
printf("Setpatch(0x%08x)\n", maddr);
#endif /* DEBUG */
if (maddr & 0xff000001) {
fprintf(stderr, "setpatch: Bad address 0x%08x\n", maddr);
return(NULL);
}
if ((!(seg = find_seg(code_tree, maddr))) ||
(!(ci = find_ci(&seg->codeinfo, maddr)))) {
U32 mend;
ci = new_codeinfo(maddr);
#ifdef DEBUG
if (debuglevel & DL_RUNTIME_TRACE) {
fprintf(stdout, "setpatch: Compiling 0x%08x...\n", maddr);
}
#endif /* DEBUG */
mend = compile(ci);
if (!seg) {
#ifdef DEBUG
if (debuglevel & DL_COMPILER_VERBOSE) {
fprintf(stdout, "Creating new segment, maddr: %08x, end: %08x\n",
maddr, mend);
}
#endif /* DEBUG */
seg = insert_seg(&code_tree, maddr, mend);
if (!seg) {
/* BUS ERROR? */
fprintf(stderr, "Out of memory?\n");
abort();
}
} else if (mend != seg->mend) {
fprintf(stderr, "Strange ending, orig:%08x, new:%08x\n", seg->mend, mend);
abort();
}
/* Link it first */
ci->next = seg->codeinfo;
seg->codeinfo = ci;
#ifdef DEBUG
if (debuglevel & DL_COMPILER_DISASSEMBLY) {
disassemble(maddr, mend);
}
#endif /* DEBUG */
}
/* Don't attempt to patch an already patched function */
if (ci->flags & CIF_PATCHED) {
return(NULL);
} else {
U32 (*retval)(struct m_registers *, void *);
/* Don't attempt to free a patched function in the garbage collector */
retval = ci->code;
if (retval) {
ci->flags |= CIF_LOCKED | CIF_PATCHED;
ci->code = code;
} else {
fprintf(stderr, "Setpatch(0x%08x): retval == NULL\n", maddr);
breakme();
}
return(retval);
}
}
