diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-22 02:13:48 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-04-22 02:13:48 +0000 |
commit | ac99cb0cb153b1691b48115f098a0008b78f9702 (patch) | |
tree | 61097ad9a9ceff1f371dd927a02430bc81ea079b /src/objcodes.c | |
parent | ac02b386c2e5743b6ea96486af6ba2cc6583c12a (diff) | |
download | guile-ac99cb0cb153b1691b48115f098a0008b78f9702.tar.gz |
*** empty log message ***
Diffstat (limited to 'src/objcodes.c')
-rw-r--r-- | src/objcodes.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/objcodes.c b/src/objcodes.c index 0df3be0f3..cff27215b 100644 --- a/src/objcodes.c +++ b/src/objcodes.c @@ -194,14 +194,16 @@ SCM_DEFINE (scm_objcode_to_program, "objcode->program", 1, 0, 0, SCM prog; size_t size; char *base; + struct scm_program *p; SCM_VALIDATE_OBJCODE (1, objcode); base = SCM_OBJCODE_BASE (objcode); size = SCM_OBJCODE_SIZE (objcode); prog = scm_c_make_program (base + 10, size - 10, objcode); - SCM_PROGRAM_NLOCS (prog) = base[8]; - SCM_PROGRAM_NEXTS (prog) = base[9]; + p = SCM_PROGRAM_DATA (prog); + p->nlocs = base[8]; + p->nexts = base[9]; return prog; } #undef FUNC_NAME |