mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-26 06:22:33 -08:00
Code Issues Projects Releases Packages Wiki Activity

Merge branch 'fix-disassemble' into 'develop'

Browse source 
Fix #106

Closes #106

See merge request embeddable-common-lisp/ecl!127
This commit is contained in:
Daniel Kochmański 2018-11-25 08:10:11 +00:00
commit 6bb08c2d81
2 changed files with 23 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/doc/new-doc/developer-guide/compiler.txi
View file

@ -210,16 +210,23 @@ This is, however, @emph{useless} in our case, because we are not concerned with
@verbatim
> (defun add1 (x) (1+ x))
ADD1
> (disassemble *)
;;; Compiling (DEFUN ADD1 ...).
;;; Emitting code for ADD1.
/* function definition for ADD1 */
static L1(int narg, object V1)
{ VT3 VLEX3 CLSR3
/* optimize speed 3, debug 0, space 0, safety 2 */
static cl_object L1add1(cl_object v1x)
{
cl_object env0 = ECL_NIL;
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
ecl_cs_check(cl_env_copy,value0);
{
TTL:
VALUES(0) = one_plus((V1));
RETURN(1);
value0 = ecl_one_plus(v1x);
cl_env_copy->nvalues = 1;
return value0;
}
}
@end verbatim