mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

rtl: propagate OP_DST to scheme

Browse source 
* libguile/instructions.c (scm_rtl_instruction_list): Add an element to
  the list to indicate that an instruction outputs to its first
  argument.

* module/system/vm/assembler.scm:
* module/system/vm/disassembler.scm: Adapt.
This commit is contained in:
Andy Wingo 2013-07-19 09:55:20 +02:00
parent ee0a2b5135
commit 2a294c7cd3
3 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -443,7 +443,7 @@ later by the linker."
(define-syntax define-assembler
(lambda (x)
(syntax-case x ()
((_ name opcode arg ...)
((_ name opcode kind arg ...)
(with-syntax ((emit (id-append #'name #'emit- #'name)))
#'(define emit
(let ((emit (assembler name opcode arg ...)))