[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-182-ge5cf9
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-182-ge5cf972 |
Date: |
Wed, 25 Jan 2012 17:50:00 +0000 |
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 <address@hidden>
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'address@hidden (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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-182-ge5cf972,
Andy Wingo <=