mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

fix casting-pointers-to-ints bug

Browse source 
* libguile/vm.c: Cast pointers to intptr_t, not int.

Patch from C. K. Jester-Young <cky944 <at> gmail.com>.
This commit is contained in:
Andy Wingo 2008-08-26 13:43:17 -07:00
parent b264227691
commit 1976ad74b8
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/vm.c
View file

@ -94,8 +94,8 @@ reinstate_vm_cont (struct scm_vm *vp, SCM cont)
abort (); abort ();
} }
vp->ip = p->ip; vp->ip = p->ip;
vp->sp = vp->stack_limit - (int) p->sp; vp->sp = vp->stack_limit - (intptr_t) p->sp;
vp->fp = vp->stack_limit - (int) p->fp; vp->fp = vp->stack_limit - (intptr_t) p->fp;
memcpy (vp->sp + 1, p->stack_base, p->stack_size * sizeof (SCM)); memcpy (vp->sp + 1, p->stack_base, p->stack_size * sizeof (SCM));
} }