diff options
Diffstat (limited to 'module/language/cps/primitives.scm')
-rw-r--r-- | module/language/cps/primitives.scm | 23 |
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)) |