mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

(system vm instruction) rtl-instruction-list -> (language rtl) instruction-list

Browse source 
* libguile/instructions.c (struct scm_instruction, fetch_instruction_table)
  (scm_instruction_list): Remove rtl_ infix.
* libguile/instructions.h: Adapt.

* module/system/vm/instruction.scm: Remove.

* module/language/rtl.scm: Export instruction-list from here.

* module/Makefile.am:
* module/language/cps/primitives.scm:
* module/system/vm/assembler.scm:
* module/system/vm/disassembler.scm:
* module/system/vm/frame.scm:
* module/system/vm/program.scm:
* module/system/vm/trace.scm:
* module/system/vm/traps.scm: Adapt.
This commit is contained in:
Andy Wingo 2013-11-19 20:45:57 +01:00
parent ef6b7f718a
commit 1b780c134b
12 changed files with 30 additions and 66 deletions
Download patch file Download diff file Expand all files Collapse all files

9
module/language/rtl.scm
View file

@ -21,12 +21,13 @@
(define-module (language rtl)
#:use-module (ice-9 match)
#:use-module ((srfi srfi-1) #:select (fold))
#:use-module (system vm instruction)
#:re-export (rtl-instruction-list)
#:export (rtl-instruction-arity
#:export (instruction-list
rtl-instruction-arity
builtin-name->index
builtin-index->name))
(load-extension (string-append "libguile-" (effective-version))
"scm_init_instructions")
(load-extension (string-append "libguile-" (effective-version))
"scm_init_vm_builtins")
@ -84,7 +85,7 @@
((name op '<- . args)
(hashq-set! table name
(cons 1 (1- (compute-rtl-instruction-arity name args))))))
(rtl-instruction-list))
(instruction-list))
(for-each (match-lambda
((name . arity)
(hashq-set! table name arity)))