mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

better function prologue disassembly

Browse source 
* module/language/assembly/disassemble.scm (code-annotation): Add an
  annotation for assert-nargs-ee/locals and assert-nargs-ge/locals.
This commit is contained in:
Andy Wingo 2012-01-25 18:49:43 +01:00
parent d646d81ec1
commit e5cf97290c
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/language/assembly/disassemble.scm
View file

@ -1,6 +1,6 @@
;;; Guile VM code converters ;;; Guile VM code converters
;; Copyright (C) 2001, 2009, 2010 Free Software Foundation, Inc. ;; Copyright (C) 2001, 2009, 2010, 2012 Free Software Foundation, Inc.
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -141,6 +141,9 @@
(list "`~a'~@[ (arg)~]" (list "`~a'~@[ (arg)~]"
(binding:name b) (< (binding:index b) nargs)) (binding:name b) (< (binding:index b) nargs))
(lp (cdr bindings)))))))) (lp (cdr bindings))))))))
((assert-nargs-ee/locals assert-nargs-ge/locals)
(list "~a arg~:p, ~a local~:p"
(logand (car args) #x7) (ash (car args) -3)))
((free-ref free-boxed-ref free-boxed-set) ((free-ref free-boxed-ref free-boxed-set)
;; FIXME: we can do better than this ;; FIXME: we can do better than this
(list "(closure variable)")) (list "(closure variable)"))