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

Create external frames dynamically.

Browse source
This commit is contained in:
Keisuke Nishida 2000-08-22 19:02:22 +00:00
parent dbb74d8137
commit d608d68d7b
5 changed files with 74 additions and 70 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/vm.h
View file

@ -188,13 +188,14 @@ extern SCM scm_program_base (SCM program);
/* VM frame is allocated in the stack */
/* NOTE: Modify make_vm_frame and VM_NEW_FRAME too! */
#define SCM_VM_FRAME_DATA_SIZE 5
#define SCM_VM_FRAME_DATA_SIZE 6
#define SCM_VM_FRAME_VARIABLE(FP,N) (FP[N])
#define SCM_VM_FRAME_SIZE(FP) (FP[-1])
#define SCM_VM_FRAME_PROGRAM(FP) (FP[-2])
#define SCM_VM_FRAME_DYNAMIC_LINK(FP) (FP[-3])
#define SCM_VM_FRAME_STACK_POINTER(FP) (FP[-4])
#define SCM_VM_FRAME_RETURN_ADDRESS(FP) (FP[-5])
#define SCM_VM_FRAME_EXTERNAL_LINK(FP) (FP[-4])
#define SCM_VM_FRAME_STACK_POINTER(FP) (FP[-5])
#define SCM_VM_FRAME_RETURN_ADDRESS(FP) (FP[-6])
/*