dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Removed a few more deprecated function calls; documented closures.

Browse source 
* src/Makefile.am (.c.x):  Fixed the rule.

* src/envs.c:  Use `scm_hash_get_handle ()' instead of
  `scm_sym2ovcell_soft ()' and `scm_hash_create_handle_x ()' instead of
  `scm_intern_symbol ()'.

* src/objcodes.c (bytecode->objcode):  Don't use `SCM_VALIDATE_INUM', use
  `SCM_VALIDATE_NUMBER' instead.
  (make_objcode_by_mmap):  Check whether the file is smaller than the
  magic cookies; check whether the magic cookies are there.

* src/frames.c (frame-local-ref):  Likewise, but use `SCM_MAKE_VALIDATE'.
  (frame-local-set!):  Likewise.

* src/instructions.c (opcode->instruction):  Likewise.

* src/programs.c (program-external-set!):  New function.

* src/guile-disasm.in:  New file.

* src/Makefile.am:  Produce `guile-disasm'.

* doc/guile-vm.texi:  Documented `external-ref', `external-set', `local-ref'
  and `local-set'.

* module/system/vm/disasm.scm (disassemble-bytecode):  Fixed the way
  `load-program' is represented.

git-archimport-id: lcourtes@laas.fr--2005-mobile/guile-vm--mobile--0.6--patch-1
This commit is contained in:
Ludovic Courtes 2005-06-24 17:25:36 +00:00 • committed by Ludovic Courtès
commit 6208295910
11 changed files with 149 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/vm/disasm.scm
View file

@ -76,7 +76,7 @@
(('load-program x)
(let ((sym (gensym "")))
(set! programs (acons sym x programs))
(print-info addr (format #f "load-program #~A" sym) #f)))
(print-info addr (format #f "(load-program #~A)" sym) #f)))
(else
(let ((info (list->info code))
(extra (original-value addr code objs)))