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

abort is no longer an op with rest args

Browse source 
* libguile/vm-engine.c (abort): No longer an op with rest args.
This commit is contained in:
Andy Wingo 2013-07-21 12:54:36 +02:00
parent 286a0fb3ae
commit b21713128e
1 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

18
libguile/vm-engine.c
View file

@ -2497,22 +2497,24 @@ RTL_VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_)
NEXT (1); NEXT (1);
} }
/* abort tag:24 _:8 nvalues:24 val0:24 0:8 val1:24 0:8 ... /* abort tag:24 _:8 from:24
* *
* Return a number of values to a prompt handler. The values VAL0, * Return a number of values to a prompt handler. The values are
* VAL1, etc are 24-bit values, in the lower 24 bits of their words. * expected in a frame pushed on at FROM.
* The upper 8 bits are 0.
*/ */
VM_DEFINE_OP (68, abort, "abort", OP2 (U8_U24, X8_R24)) VM_DEFINE_OP (68, abort, "abort", OP2 (U8_U24, X8_U24))
#if 0 #if 0
{ {
scm_t_uint32 tag, nvalues; scm_t_uint32 tag, from, nvalues;
SCM *base;
SCM_UNPACK_RTL_24 (op, tag); SCM_UNPACK_RTL_24 (op, tag);
SCM_UNPACK_RTL_24 (ip[1], nvalues); SCM_UNPACK_RTL_24 (ip[1], from);
base = (fp - 1) + from + 3;
nvalues = FRAME_LOCALS_COUNT () - from - 3;
SYNC_IP (); SYNC_IP ();
vm_abort (vm, LOCAL_REF (tag), nvalues, &ip[2], &registers); vm_abort (vm, LOCAL_REF (tag), base, nvalues, &registers);
/* vm_abort should not return */ /* vm_abort should not return */
abort (); abort ();