summaryrefslogtreecommitdiff
path: root/module/system/vm/disassembler.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-01-07 16:41:40 +0100
committerAndy Wingo <wingo@pobox.com>2018-01-07 16:41:40 +0100
commit3cedc108d8aea7eb87dc355ed7ec3cfb6099841a (patch)
tree66fc165ba07074f05a973734e83265a03dbbc776 /module/system/vm/disassembler.scm
parent94f8f70b22f2aad76d35bfd7f7e506d769fe4096 (diff)
downloadguile-3cedc108d8aea7eb87dc355ed7ec3cfb6099841a.tar.gz
Add CPS compilation support for mutable-vector?
* module/system/base/types/internal.scm (heap-tags): Add immutable-vector? and mutable-vector?. * module/language/tree-il/cps-primitives.scm: * module/system/vm/disassembler.scm: Bump copyright lines.
Diffstat (limited to 'module/system/vm/disassembler.scm')
-rw-r--r--module/system/vm/disassembler.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/module/system/vm/disassembler.scm b/module/system/vm/disassembler.scm
index 62f3d08d6..8664039f0 100644
--- a/module/system/vm/disassembler.scm
+++ b/module/system/vm/disassembler.scm
@@ -1,6 +1,6 @@
;;; Guile bytecode disassembler
-;;; Copyright (C) 2001, 2009, 2010, 2012, 2013, 2014, 2015, 2017 Free Software Foundation, Inc.
+;;; Copyright (C) 2001, 2009-2010, 2012-2015, 2017-2018 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
@@ -199,6 +199,7 @@ address of that offset."
(define-syntax-rule (define-heap-tag-annotation name pred mask tag)
(set! heap-tag-annotations
(cons `((,mask ,tag) ,(symbol->string 'pred)) heap-tag-annotations)))
+
(visit-heap-tags define-heap-tag-annotation)
(define (code-annotation code len offset start labels context push-addr!)