diff options
author | Ludovic Courtes <ludovic.courtes@laas.fr> | 2005-11-01 21:29:04 +0000 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2008-04-25 19:09:30 +0200 |
commit | b6368dbbb9af59e6c2df6b8cccc2651a2da8b725 (patch) | |
tree | 6b9a374a3a920d6cbe7ddfe863f00a74258a6120 /src/objcodes.c | |
parent | 49edef60dc34fcdb40ba1df3b5136e88796870c0 (diff) | |
download | guile-b6368dbbb9af59e6c2df6b8cccc2651a2da8b725.tar.gz |
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
Diffstat (limited to 'src/objcodes.c')
-rw-r--r-- | src/objcodes.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/objcodes.c b/src/objcodes.c index e1a3b17e8..b97e851c4 100644 --- a/src/objcodes.c +++ b/src/objcodes.c @@ -183,7 +183,7 @@ SCM_DEFINE (scm_bytecode_to_objcode, "bytecode->objcode", 3, 0, 0, ssize_t increment; scm_t_array_handle handle; char *base; - const char *c_bytecode; + const scm_t_uint8 *c_bytecode; SCM objcode; if (scm_u8vector_p (bytecode) != SCM_BOOL_T) @@ -235,7 +235,7 @@ SCM_DEFINE (scm_objcode_to_u8vector, "objcode->u8vector", 1, 0, 0, "") #define FUNC_NAME s_scm_objcode_to_u8vector { - char *u8vector; + scm_t_uint8 *u8vector; size_t size; SCM_VALIDATE_OBJCODE (1, objcode); |