[Guile-commits] GNU Guile branch, master, updated. v2.1.0-747-ga104380

[Andy Wingo]

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=a104380d5395017ce1896e79610496d056d5c985

The branch, master has been updated
       via  a104380d5395017ce1896e79610496d056d5c985 (commit)
       via  a694809e3ab18b2a59a9dc5ca42a16246fcc3f95 (commit)
      from  9b3c4cedd43378f51aa2ec73a0eeeff1a04a301e (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 a104380d5395017ce1896e79610496d056d5c985
Author: Andy Wingo <address@hidden>
Date:   Fri Feb 14 10:49:45 2014 +0100

    bytevector-length reifies to correct module
    
    * module/language/cps/reify-primitives.scm (primitive-module): Whoops,
      bytevector-length is needs to map to the (rnrs bytevectors) module.

commit a694809e3ab18b2a59a9dc5ca42a16246fcc3f95
Author: Andy Wingo <address@hidden>
Date:   Thu Feb 13 17:51:11 2014 +0100

    bytevector-length is an interesting primitive.
    
    * module/language/tree-il/primitives.scm (*interesting-primitive-names*):
      (*effect-free-primitives*):
    * module/language/cps/effects-analysis.scm: bytevector-length is an
      interesting primitive.

-----------------------------------------------------------------------

Summary of changes:
 module/language/cps/effects-analysis.scm |    2 ++
 module/language/cps/reify-primitives.scm |    6 ++++--
 module/language/tree-il/primitives.scm   |    4 +++-
 3 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/module/language/cps/effects-analysis.scm 
b/module/language/cps/effects-analysis.scm
index 4ca6e98..3c2b5da 100644
--- a/module/language/cps/effects-analysis.scm
+++ b/module/language/cps/effects-analysis.scm
@@ -364,6 +364,8 @@
 
 ;; Bytevectors.
 (define-primitive-effects
+  ((bytevector-length _) (cause &type-check))
+
   ((bv-u8-ref bv n) (logior (cause &type-check) &bytevector))
   ((bv-s8-ref bv n) (logior (cause &type-check) &bytevector))
   ((bv-u16-ref bv n) (logior (cause &type-check) &bytevector))
diff --git a/module/language/cps/reify-primitives.scm 
b/module/language/cps/reify-primitives.scm
index 9a57bf1..e165798 100644
--- a/module/language/cps/reify-primitives.scm
+++ b/module/language/cps/reify-primitives.scm
@@ -1,6 +1,6 @@
 ;;; Continuation-passing style (CPS) intermediate language (IL)
 
-;; Copyright (C) 2013 Free Software Foundation, Inc.
+;; Copyright (C) 2013, 2014 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
@@ -46,7 +46,9 @@
 
 (define (primitive-module name)
   (case name
-    ((bytevector-u8-ref bytevector-u8-set!
+    ((bytevector-length
+
+      bytevector-u8-ref bytevector-u8-set!
       bytevector-s8-ref bytevector-s8-set!
 
       bytevector-u16-ref bytevector-u16-set!
diff --git a/module/language/tree-il/primitives.scm 
b/module/language/tree-il/primitives.scm
index 1703384..a959df2 100644
--- a/module/language/tree-il/primitives.scm
+++ b/module/language/tree-il/primitives.scm
@@ -94,6 +94,8 @@
 
     allocate-struct struct-vtable make-struct struct-ref struct-set!
 
+    bytevector-length
+
     bytevector-u8-ref bytevector-u8-set!
     bytevector-s8-ref bytevector-s8-set!
     u8vector-ref u8vector-set! s8vector-ref s8vector-set!
@@ -172,7 +174,7 @@
     char<? char<=? char>=? char>?
     integer->char char->integer number->string string->number
     struct-vtable
-    length string-length vector-length
+    length string-length vector-length bytevector-length
     ;; These all should get expanded out by expand-primitives.
     caar cadr cdar cddr
     caaar caadr cadar caddr cdaar cdadr cddar cdddr


hooks/post-receive
-- 
GNU Guile