mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-09 13:30:26 +02:00
Consolidate apply hook to instrument-entry instruction
* libguile/vm.c (scm_call_n): * libguile/vm-engine.c: Move apply hook to "instrument-entry" instruction.
This commit is contained in:
parent
8f25f75bf1
commit
dedf73d370
2 changed files with 3 additions and 14 deletions
|
@ -386,8 +386,6 @@ VM_NAME (scm_thread *thread)
|
|||
CACHE_REGISTER ();
|
||||
}
|
||||
|
||||
APPLY_HOOK ();
|
||||
|
||||
NEXT (0);
|
||||
}
|
||||
|
||||
|
@ -423,8 +421,6 @@ VM_NAME (scm_thread *thread)
|
|||
|
||||
ip += label;
|
||||
|
||||
APPLY_HOOK ();
|
||||
|
||||
NEXT (0);
|
||||
}
|
||||
|
||||
|
@ -445,8 +441,6 @@ VM_NAME (scm_thread *thread)
|
|||
CACHE_REGISTER ();
|
||||
}
|
||||
|
||||
APPLY_HOOK ();
|
||||
|
||||
NEXT (0);
|
||||
}
|
||||
|
||||
|
@ -463,8 +457,6 @@ VM_NAME (scm_thread *thread)
|
|||
|
||||
ip += label;
|
||||
|
||||
APPLY_HOOK ();
|
||||
|
||||
NEXT (0);
|
||||
}
|
||||
|
||||
|
@ -499,6 +491,8 @@ VM_NAME (scm_thread *thread)
|
|||
else
|
||||
data->counter += SCM_JIT_COUNTER_ENTRY_INCREMENT;
|
||||
|
||||
APPLY_HOOK ();
|
||||
|
||||
NEXT (2);
|
||||
}
|
||||
|
||||
|
@ -767,8 +761,6 @@ VM_NAME (scm_thread *thread)
|
|||
CACHE_REGISTER ();
|
||||
}
|
||||
|
||||
APPLY_HOOK ();
|
||||
|
||||
NEXT (0);
|
||||
}
|
||||
|
||||
|
@ -2387,7 +2379,7 @@ VM_NAME (scm_thread *thread)
|
|||
CALL_INTRINSIC (push_interrupt_frame, (thread, 0));
|
||||
CACHE_SP ();
|
||||
ip = (uint32_t *) vm_handle_interrupt_code;
|
||||
APPLY_HOOK ();
|
||||
|
||||
NEXT (0);
|
||||
}
|
||||
|
||||
|
|
|
@ -1435,9 +1435,6 @@ scm_call_n (SCM proc, SCM *argv, size_t nargs)
|
|||
else
|
||||
/* FIXME: Make this return an IP. */
|
||||
apply_non_program (thread);
|
||||
|
||||
if (vp->trace_level)
|
||||
vm_dispatch_apply_hook (thread);
|
||||
}
|
||||
|
||||
thread->vm.registers = ®isters;
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue