mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-06 10:06:32 +00:00
parent a80be762c3
commit 15df344720
2 changed files with 1 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/vm_scheme.c
View file

@ -169,7 +169,6 @@ VM_DEFINE_FUNCTION (vector, "vector", -1)
{ {
ARGSN (n); ARGSN (n);
POP_LIST (n); POP_LIST (n);
SYNC_BEFORE_GC ();
*sp = scm_vector (*sp); *sp = scm_vector (*sp);
NEXT; NEXT;
} }

10
src/vm_system.c
View file

@ -85,12 +85,6 @@ VM_DEFINE_INSTRUCTION (void, "void", 0, 0, 1)
NEXT; NEXT;
} }
VM_DEFINE_INSTRUCTION (mark, "mark", 0, 0, 1)
{
PUSH (SCM_UNDEFINED);
NEXT;
}
VM_DEFINE_INSTRUCTION (make_true, "make-true", 0, 0, 1) VM_DEFINE_INSTRUCTION (make_true, "make-true", 0, 0, 1)
{ {
PUSH (SCM_BOOL_T); PUSH (SCM_BOOL_T);
@ -318,7 +312,6 @@ VM_DEFINE_INSTRUCTION (call, "call", 1, -1, 1)
if (!SCM_FALSEP (scm_procedure_p (program))) if (!SCM_FALSEP (scm_procedure_p (program)))
{ {
POP_LIST (nargs); POP_LIST (nargs);
SYNC_BEFORE_GC ();
*sp = scm_apply (program, *sp, SCM_EOL); *sp = scm_apply (program, *sp, SCM_EOL);
program = SCM_VM_FRAME_PROGRAM (fp); program = SCM_VM_FRAME_PROGRAM (fp);
NEXT; NEXT;
@ -401,7 +394,6 @@ VM_DEFINE_INSTRUCTION (tail_call, "tail-call", 1, -1, 1)
if (!SCM_FALSEP (scm_procedure_p (program))) if (!SCM_FALSEP (scm_procedure_p (program)))
{ {
POP_LIST (nargs); POP_LIST (nargs);
SYNC_BEFORE_GC ();
*sp = scm_apply (program, *sp, SCM_EOL); *sp = scm_apply (program, *sp, SCM_EOL);
program = SCM_VM_FRAME_PROGRAM (fp); program = SCM_VM_FRAME_PROGRAM (fp);
goto vm_return; goto vm_return;
@ -433,7 +425,7 @@ VM_DEFINE_INSTRUCTION (return, "return", 0, 0, 1)
RETURN_HOOK (); RETURN_HOOK ();
FREE_FRAME (); FREE_FRAME ();
/* Cache the last program */ /* Restore the last program */
program = SCM_VM_FRAME_PROGRAM (fp); program = SCM_VM_FRAME_PROGRAM (fp);
CACHE_PROGRAM (); CACHE_PROGRAM ();
PUSH (ret); PUSH (ret);