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 <[email protected]> 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 <[email protected]> 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
