mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

Bytevector f32 an f64 ops actually map to VM primitives

Browse source 
* module/language/cps/primitives.scm (*instruction-aliases*): Whoops!
  Fix mapping of f32 and f64 instructions to VM primitives.
This commit is contained in:
Andy Wingo 2014-02-11 21:54:05 +01:00
parent fc3192dc8e
commit 9253198baf
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
module/language/cps/primitives.scm
View file

@ -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))