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

Updated the C code base so that it compiles with Guile 1.7.2.

Browse source 
* src/*.[ch]:  Introduced changes so that it compiles with Guile 1.7.2.

git-archimport-id: lcourtes@laas.fr--2004-libre/guile-vm--revival--0.6--patch-1
This commit is contained in:
Ludovic Court`es 2005-04-22 11:07:06 +00:00 • committed by Ludovic Courtès
parent 7a0d0cee1f
commit f9e8c09d42
10 changed files with 25 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/vm.c
View file

@ -59,7 +59,7 @@
* VM Continuation
*/
scm_bits_t scm_tc16_vm_cont;
scm_t_bits scm_tc16_vm_cont;
#define SCM_VM_CONT_P(OBJ) SCM_SMOB_PREDICATE (scm_tc16_vm_cont, OBJ)
@ -223,7 +223,7 @@ vm_heapify_frames (SCM vm)
#undef VM_NAME
#undef VM_ENGINE
scm_bits_t scm_tc16_vm;
scm_t_bits scm_tc16_vm;
static SCM the_vm;
@ -471,9 +471,11 @@ SCM_DEFINE (scm_vm_stats, "vm-stats", 1, 0, 0,
SCM_VALIDATE_VM (1, vm);
stats = scm_c_make_vector (2, SCM_MAKINUM (0));
SCM_VELTS (stats)[0] = scm_ulong2num (SCM_VM_DATA (vm)->time);
SCM_VELTS (stats)[1] = scm_ulong2num (SCM_VM_DATA (vm)->clock);
stats = scm_make_vector (scm_from_int (2), SCM_UNSPECIFIED);
scm_vector_set_x (stats, scm_from_int (0),
scm_from_ulong (SCM_VM_DATA (vm)->time));
scm_vector_set_x (stats, scm_from_int (1),
scm_from_ulong (SCM_VM_DATA (vm)->clock));
return stats;
}