This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=e5cf97290c3d2dcda0eca02f9fcf4020452bca42 The branch, stable-2.0 has been updated via e5cf97290c3d2dcda0eca02f9fcf4020452bca42 (commit) from d646d81ec1c9f16a1e4d3f5bd388ec069c47a1c2 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit e5cf97290c3d2dcda0eca02f9fcf4020452bca42 Author: Andy Wingo <wi...@pobox.com> Date: Wed Jan 25 18:49:43 2012 +0100 better function prologue disassembly * module/language/assembly/disassemble.scm (code-annotation): Add an annotation for assert-nargs-ee/locals and assert-nargs-ge/locals. ----------------------------------------------------------------------- Summary of changes: module/language/assembly/disassemble.scm | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/module/language/assembly/disassemble.scm b/module/language/assembly/disassemble.scm index 88ea0d7..ced5f26 100644 --- a/module/language/assembly/disassemble.scm +++ b/module/language/assembly/disassemble.scm @@ -1,6 +1,6 @@ ;;; 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 ;;;; modify it under the terms of the GNU Lesser General Public @@ -141,6 +141,9 @@ (list "`~a'~@[ (arg)~]" (binding:name b) (< (binding:index b) nargs)) (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) ;; FIXME: we can do better than this (list "(closure variable)")) hooks/post-receive -- GNU Guile
