summaryrefslogtreecommitdiff
path: root/module/language/cps/primitives.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/cps/primitives.scm')
-rw-r--r--module/language/cps/primitives.scm23
1 files changed, 21 insertions, 2 deletions
diff --git a/module/language/cps/primitives.scm b/module/language/cps/primitives.scm
index 570150294..ac0d336a1 100644
--- a/module/language/cps/primitives.scm
+++ b/module/language/cps/primitives.scm
@@ -38,9 +38,28 @@
(* . mul) (/ . div)
(quotient . quo) (remainder . rem)
(modulo . mod)
- (define! . define)
(variable-ref . box-ref)
- (variable-set! . box-set!)))
+ (variable-set! . box-set!)
+ (bytevector-u8-native-ref . bv-u8-ref)
+ (bytevector-u16-native-ref . bv-u16-ref)
+ (bytevector-u32-native-ref . bv-u32-ref)
+ (bytevector-u64-native-ref . bv-u64-ref)
+ (bytevector-s8-native-ref . bv-s8-ref)
+ (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-u8-native-set! . bv-u8-set!)
+ (bytevector-u16-native-set! . bv-u16-set!)
+ (bytevector-u32-native-set! . bv-u32-set!)
+ (bytevector-u64-native-set! . bv-u64-set!)
+ (bytevector-s8-native-set! . bv-s8-set!)
+ (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!)))
(define *macro-instruction-arities*
'((cache-current-module! . (0 . 2))