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

*** empty log message ***

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-19 06:28:03 +00:00
parent 24aa2715f6
commit 061f7faeca
3 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/system/il/compile.scm
View file

@ -280,7 +280,8 @@
(finalize-index! locs) (finalize-index! locs)
(finalize-index! exts) (finalize-index! exts)
;; export arguments ;; export arguments
(do ((n 0 (1+ n)) (l args (cdr l))) (do ((n 0 (1+ n))
(l args (cdr l)))
((null? l)) ((null? l))
(let ((v (car l))) (let ((v (car l)))
(if (eq? v.kind 'external) (if (eq? v.kind 'external)

2
src/vm_loader.c
View file

@ -142,7 +142,7 @@ VM_DEFINE_LOADER (load_program, "load-program")
SCM_PROGRAM_NARGS (prog) = (i >> 12) & 0x07; /* 15-12 bits */ SCM_PROGRAM_NARGS (prog) = (i >> 12) & 0x07; /* 15-12 bits */
SCM_PROGRAM_NREST (prog) = (i >> 11) & 0x01; /* 11 bit */ SCM_PROGRAM_NREST (prog) = (i >> 11) & 0x01; /* 11 bit */
SCM_PROGRAM_NLOCS (prog) = (i >> 4) & 0x7f; /* 10-4 bits */ SCM_PROGRAM_NLOCS (prog) = (i >> 4) & 0x7f; /* 10-4 bits */
SCM_PROGRAM_NEXTS (prog) = i & 0x07; /* 3-0 bits */ SCM_PROGRAM_NEXTS (prog) = i & 0x0f; /* 3-0 bits */
} }
} }
else else

2
src/vm_system.c
View file

@ -488,9 +488,9 @@ VM_DEFINE_INSTRUCTION (return, "return", 0, 0, 1)
FREE_FRAME (); FREE_FRAME ();
/* Restore the last program */ /* Restore the last program */
external = fp[bp->nargs + bp->nlocs];
program = SCM_VM_FRAME_PROGRAM (fp); program = SCM_VM_FRAME_PROGRAM (fp);
CACHE_PROGRAM (); CACHE_PROGRAM ();
external = fp[bp->nargs + bp->nlocs];
PUSH (ret); PUSH (ret);
NEXT; NEXT;
} }