mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 11:50:28 +02:00
Lingering RTL excision in vm.c
* libguile/vm-engine.c: * libguile/vm.c: Rework VM inclusion so that we don't define VM_ENGINE and expect vm-engine.c to understand that -- since there is only VM_USE_HOOKS, define that in vm.c directly. Rename rtl_vm_foo to vm_foo. * libguile/vm.h: Remove scm_t_vm_engine typedef.
This commit is contained in:
parent
20b1b91394
commit
f42cfbf0b7
3 changed files with 13 additions and 23 deletions
|
@ -60,14 +60,6 @@
|
|||
while (0)
|
||||
|
||||
|
||||
#if (VM_ENGINE == SCM_VM_REGULAR_ENGINE)
|
||||
# define VM_USE_HOOKS 0 /* Various hooks */
|
||||
#elif (VM_ENGINE == SCM_VM_DEBUG_ENGINE)
|
||||
# define VM_USE_HOOKS 1
|
||||
#else
|
||||
# error unknown debug engine VM_ENGINE
|
||||
#endif
|
||||
|
||||
/* Assign some registers by hand. There used to be a bigger list here,
|
||||
but it was never tested, and in the case of x86-32, was a source of
|
||||
compilation failures. It can be revived if it's useful, but my naive
|
||||
|
@ -427,7 +419,7 @@
|
|||
((scm_t_uintptr) (ptr) % alignof_type (type) == 0)
|
||||
|
||||
static SCM
|
||||
RTL_VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_)
|
||||
VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_)
|
||||
{
|
||||
/* Instruction pointer: A pointer to the opcode that is currently
|
||||
running. */
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue