[Guile-commits] GNU Guile branch, master, updated. v2.1.0-743-g9253198

[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=9253198bafe57584fa44b6d0b83681e90177ace8

The branch, master has been updated
       via  9253198bafe57584fa44b6d0b83681e90177ace8 (commit)
      from  fc3192dc8e57f1de2322b8440c984278ea2e8534 (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 9253198bafe57584fa44b6d0b83681e90177ace8
Author: Andy Wingo <address@hidden>
Date:   Tue Feb 11 21:54:05 2014 +0100

    Bytevector f32 an f64 ops actually map to VM primitives
    
    * module/language/cps/primitives.scm (*instruction-aliases*): Whoops!
      Fix mapping of f32 and f64 instructions to VM primitives.

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

Summary of changes:
 module/language/cps/primitives.scm |   10 +++++-----
 1 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/module/language/cps/primitives.scm 
b/module/language/cps/primitives.scm
index d85492f..873600c 100644
--- a/module/language/cps/primitives.scm
+++ b/module/language/cps/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
@@ -48,8 +48,8 @@
     (bytevector-s16-native-ref . bv-s16-ref)
     (bytevector-s32-native-ref . bv-s32-ref)
     (bytevector-s64-native-ref . bv-s64-ref)
-    (bytevector-f32-native-ref . bv-f32-ref)
-    (bytevector-f64-native-ref . bv-f64-ref)
+    (bytevector-ieee-single-native-ref . bv-f32-ref)
+    (bytevector-ieee-double-native-ref . bv-f64-ref)
     (bytevector-u8-set! . bv-u8-set!)
     (bytevector-u16-native-set! . bv-u16-set!)
     (bytevector-u32-native-set! . bv-u32-set!)
@@ -58,8 +58,8 @@
     (bytevector-s16-native-set! . bv-s16-set!)
     (bytevector-s32-native-set! . bv-s32-set!)
     (bytevector-s64-native-set! . bv-s64-set!)
-    (bytevector-f32-native-set! . bv-f32-set!)
-    (bytevector-f64-native-set! . bv-f64-set!)))
+    (bytevector-ieee-single-native-set! . bv-f32-set!)
+    (bytevector-ieee-double-native-set! . bv-f64-set!)))
 
 (define *macro-instruction-arities*
   '((cache-current-module! . (0 . 2))


hooks/post-receive
-- 
GNU Guile