mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity
Mirror of the upstream GNU Guile repository on Savannah. https://www.gnu.org/software/guile/
120 commits 61 branches 169 tags 63 MiB
Find a file
Ludovic Courtes b6368dbbb9 Fixed a Scheme translation bug; cleaned compilation with GCC 4. 
* module/language/scheme/translate.scm (trans-pair): In the `set!' case,
  when a procedure-with-setter is passed, call `trans:pair' with an
  actual pair.  This fixes a long-lasting bug which prevented compilation
  of `set!' statements with procedures-with-setter (this showed up when
  compiling `(system vm assemble)').

* module/system/base/compile.scm: Added `objcode->u8vector' to the
  `#:select' clause.

* module/system/base/syntax.scm: Cosmetic changes.

* module/system/vm/assemble.scm (preprocess): Removed debugging
  statements.

* src/frames.c: Cosmetic changes.

* src/frames.h (SCM_FRAME_SET_DYNAMIC_LINK): New.

* src/objcodes.c: Use `scm_t_uint8' instead of `char' when relevant.

* src/vm.c (vm_heapify_frames_1): Use `SCM_FRAME_SET_DYNAMIC_LINK ()'.

* src/vm_loader.c: Added casts to mute GCC 4 warnings.

* testsuite/run-vm-tests.scm (*scheme*): Renamed to `%scheme'.
  (run-test-from-file): Renamed to `compile/run-test-from-file'.
  (run-vm-tests): Run each test using both the VM and the interpreter;
  compare the results.

* testsuite/t-proc-with-setter.scm: Try out `get/set'.

* doc/Makefile.am (info_TEXINFOS): New.

* doc/guile-vm.texi: Added index entries and indices.

* doc/texinfo.tex: New file.

git-archimport-id: lcourtes@laas.fr--2005-mobile/guile-vm--mobile--0.6--patch-5
2008-04-25 19:09:30 +02:00
benchmark * src/objcodes.c (make_objcode_by_mmap): Fixed the error type when the 2008-04-25 19:09:30 +02:00
doc Fixed a Scheme translation bug; cleaned compilation with GCC 4. 2008-04-25 19:09:30 +02:00
module Fixed a Scheme translation bug; cleaned compilation with GCC 4. 2008-04-25 19:09:30 +02:00
src Fixed a Scheme translation bug; cleaned compilation with GCC 4. 2008-04-25 19:09:30 +02:00
testsuite Fixed a Scheme translation bug; cleaned compilation with GCC 4. 2008-04-25 19:09:30 +02:00
.cvsignore *** empty log message *** 2001-04-22 02:13:48 +00:00
acconfig.h Initial revision 2000-08-22 15:54:19 +00:00
acinclude.m4 Initial revision 2000-08-22 15:54:19 +00:00
AUTHORS Initial revision 2000-08-22 15:54:19 +00:00
autogen.sh * autogen.sh: Run aclocal with check where guile.m4 is installed. 2000-09-11 09:18:49 +00:00
ChangeLog *** empty log message *** 2001-04-07 12:29:06 +00:00
configure.in * src/objcodes.c (make_objcode_by_mmap): Fixed the error type when the 2008-04-25 19:09:30 +02:00
Makefile.am * src/objcodes.c (make_objcode_by_mmap): Fixed the error type when the 2008-04-25 19:09:30 +02:00
NEWS Initial revision 2000-08-22 15:54:19 +00:00
README Fixed a stack leak. Now observing actual performance. 2008-04-25 19:09:30 +02:00
THANKS *** empty log message *** 2001-04-07 12:29:06 +00:00

README 

This is an attempt to revive the Guile-VM project by Keisuke Nishida
written back in the years 2000 and 2001.  Below are a few pointers to
relevant threads on Guile's development mailing list.

Enjoy!

Ludovic Courtès <ludovic.courtes@laas.fr>, Apr. 2005.


Pointers
--------

Status of the last release, 0.5
  http://lists.gnu.org/archive/html/guile-devel/2001-04/msg00266.html

The very first release, 0.0
  http://sources.redhat.com/ml/guile/2000-07/msg00418.html

Simple benchmark
  http://sources.redhat.com/ml/guile/2000-07/msg00425.html

Performance, portability, GNU Lightning
  http://lists.gnu.org/archive/html/guile-devel/2001-03/msg00132.html

Playing with GNU Lightning
  http://lists.gnu.org/archive/html/guile-devel/2001-03/msg00185.html

On things left to be done
  http://lists.gnu.org/archive/html/guile-devel/2001-03/msg00146.html


---8<---  Original README below.  -----------------------------------------

Installation
------------

1. Install the latest Guile from CVS.

2. Install Guile VM:

  % configure
  % make install
  % ln -s module/{guile,system,language} /usr/local/share/guile/

3. Add the following lines to your ~/.guile:

  (use-modules (system vm core)

  (cond ((string=? (car (command-line)) "guile-vm")
	 (use-modules (system repl repl))
	 (start-repl 'scheme)
	 (quit)))

Example Session
---------------

  % guile-vm
  Guile Scheme interpreter 0.5 on Guile 1.4.1
  Copyright (C) 2001 Free Software Foundation, Inc.

  Enter `,help' for help.
  scheme@guile-user> (+ 1 2)
  3
  scheme@guile-user> ,c -c (+ 1 2)	;; Compile into GLIL
  (@asm (0 1 0 0)
    (module-ref #f +)
    (const 1)
    (const 2)
    (tail-call 2))
  scheme@guile-user> ,c (+ 1 2)		;; Compile into object code
  Disassembly of #<objcode 403c5fb0>:

  nlocs = 0  nexts = 0

     0    link "+"                        ;; (+ . ???)
     3    variable-ref
     4    make-int8:1                     ;; 1
     5    make-int8 2                     ;; 2
     7    tail-call 2

  scheme@guile-user> (define (add x y) (+ x y))
  scheme@guile-user> (add 1 2)
  3
  scheme@guile-user> ,x add		;; Disassemble
  Disassembly of #<program add>:

  nargs = 2  nrest = 0  nlocs = 0  nexts = 0

  Bytecode:

     0    object-ref 0                    ;; (+ . #<primitive-procedure +>)
     2    variable-ref
     3    local-ref 0
     5    local-ref 1
     7    tail-call 2

  Objects:

     0    (+ . #<primitive-procedure +>)

  scheme@guile-user> 

Compile Modules
---------------

Use `guilec' to compile your modules:

  % cat fib.scm
  (define-module (fib) :export (fib))
  (define (fib n) (if (< n 2) 1 (+ (fib (- n 1)) (fib (- n 2)))))

  % guilec fib.scm
  Wrote fib.go
  % guile
  guile> (use-modules (fib))
  guile> (fib 8)
  34