diff options
author | Ludovic Court`es <ludovic.courtes@laas.fr> | 2005-04-29 14:12:12 +0000 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2008-04-25 19:09:30 +0200 |
commit | 2d80426a3ec7de15a194d0baed0e9f4be8659b92 (patch) | |
tree | 8100ff8d82d6a1fec507e67f23987c0da58a9703 /src/programs.c | |
parent | 238e7a11a8ec5aa2406b31620d3e56409639d4cf (diff) | |
download | guile-2d80426a3ec7de15a194d0baed0e9f4be8659b92.tar.gz |
Improved the VM's efficiency. The VM is as fast as the interpreter. :-(
* benchmark/lib.scm: New file.
* benchmark/measure.scm: New file.
* README: Added useful pointers to various threads.
* doc/guile-vm.texi: Fixed the description of `load-program' (it now expects
_immediate_ integers).
* src/*.[ch]: Use immediate integers whereever possible, as in the original
code. For `CONS', use `scm_cell' rather than `scm_cons'.
git-archimport-id: lcourtes@laas.fr--2004-libre/guile-vm--revival--0.6--patch-6
Diffstat (limited to 'src/programs.c')
-rw-r--r-- | src/programs.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/programs.c b/src/programs.c index d45cd96dd..756348d70 100644 --- a/src/programs.c +++ b/src/programs.c @@ -149,10 +149,10 @@ SCM_DEFINE (scm_program_arity, "program-arity", 1, 0, 0, SCM_VALIDATE_PROGRAM (1, program); p = SCM_PROGRAM_DATA (program); - return SCM_LIST4 (scm_from_uchar (p->nargs), - scm_from_uchar (p->nrest), - scm_from_uchar (p->nlocs), - scm_from_uchar (p->nexts)); + return SCM_LIST4 (SCM_I_MAKINUM (p->nargs), + SCM_I_MAKINUM (p->nrest), + SCM_I_MAKINUM (p->nlocs), + SCM_I_MAKINUM (p->nexts)); } #undef FUNC_NAME |