mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Fix vm-engine.c comments

Browse source 
* libguile/vm-engine.c: Fix some comments.
This commit is contained in:
Andy Wingo 2013-11-29 23:23:28 +01:00
parent 1b1c912544
commit 02f9d49614
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/vm-engine.c
View file

@ -1155,8 +1155,9 @@ VM_NAME (scm_i_thread *current_thread, struct scm_vm *vp,
NEXT (3);
}
/* bind-kwargs nreq:24 allow-other-keys:1 has-rest:1 _:6 nreq-and-opt:24
* _:8 ntotal:24 kw-offset:32
/* bind-kwargs nreq:24 flags:8 nreq-and-opt:24 _:8 ntotal:24 kw-offset:32
*
* flags := allow-other-keys:1 has-rest:1 _:6
*
* Find the last positional argument, and shuffle all the rest above
* NTOTAL. Initialize the intervening locals to SCM_UNDEFINED. Then
@ -1421,7 +1422,7 @@ VM_NAME (scm_i_thread *current_thread, struct scm_vm *vp,
BR_ARITHMETIC (==, scm_num_eq_p);
}
/* br-if-< a:12 b:12 _:8 offset:24
/* br-if-< a:12 b:12 invert:1 _:7 offset:24
*
* If the value in A is < to the value in B, add OFFSET, a signed
* 24-bit number, to the current instruction pointer.
@ -1431,7 +1432,7 @@ VM_NAME (scm_i_thread *current_thread, struct scm_vm *vp,
BR_ARITHMETIC (<, scm_less_p);
}
/* br-if-<= a:12 b:12 _:8 offset:24
/* br-if-<= a:12 b:12 invert:1 _:7 offset:24
*
* If the value in A is <= to the value in B, add OFFSET, a signed
* 24-bit number, to the current instruction pointer.
@ -1568,7 +1569,7 @@ VM_NAME (scm_i_thread *current_thread, struct scm_vm *vp,
NEXT (2);
}
/* free-set! dst:12 src:12 _8 idx:24
/* free-set! dst:12 src:12 _:8 idx:24
*
* Set free variable IDX from the closure DST to SRC.
*/