From 1ecfb04a58b2bb701d7b2cb53448966db701d34e Mon Sep 17 00:00:00 2001 From: Gustavo Massaccesi Date: Mon, 4 Dec 2017 17:32:28 -0300 Subject: [PATCH] fix bytevector-[u/s]16-native-set! signature original commit: 5d4e2fa1b2cf1ad7011b94b2b5262f734d5f0530 --- LOG | 2 ++ s/primdata.ss | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/LOG b/LOG index 2b92305b49..3d96df9b85 100644 --- a/LOG +++ b/LOG @@ -752,3 +752,5 @@ a partial object file. syntax.ss, 7.ms +- fix signature of bytevector-[u/s]16-native-set! + primdata.ss diff --git a/s/primdata.ss b/s/primdata.ss index 60163efd8d..dc8aee9e62 100644 --- a/s/primdata.ss +++ b/s/primdata.ss @@ -367,7 +367,7 @@ (bytevector-uint-ref [sig [(bytevector sub-index symbol sub-length) -> (uint)]] [flags true mifoldable discard]) (bytevector-sint-ref [sig [(bytevector sub-index symbol sub-length) -> (sint)]] [flags true mifoldable discard]) (bytevector-uint-set! [sig [(bytevector sub-index sub-uint symbol sub-length) -> (void)]] [flags true]) - (bytevector-sint-set! [sig [(bytevector sub-index sub-uint symbol sub-length) -> (void)]] [flags true]) + (bytevector-sint-set! [sig [(bytevector sub-index sub-sint symbol sub-length) -> (void)]] [flags true]) (bytevector->uint-list [sig [(bytevector symbol sub-index) -> (list)]] [flags alloc]) (bytevector->sint-list [sig [(bytevector symbol sub-index) -> (list)]] [flags alloc]) (uint-list->bytevector [sig [(sub-list symbol sub-index) -> (bytevector)]] [flags alloc]) @@ -378,8 +378,8 @@ (bytevector-s16-native-ref [sig [(bytevector sub-index) -> (s16)]] [flags true cp02]) (bytevector-u16-set! [sig [(bytevector sub-index u16 symbol) -> (void)]] [flags true]) (bytevector-s16-set! [sig [(bytevector sub-index s16 symbol) -> (void)]] [flags true]) - (bytevector-u16-native-set! [sig [(bytevector sub-index symbol) -> (void)]] [flags true]) - (bytevector-s16-native-set! [sig [(bytevector sub-index symbol) -> (void)]] [flags true]) + (bytevector-u16-native-set! [sig [(bytevector sub-index u16) -> (void)]] [flags true]) + (bytevector-s16-native-set! [sig [(bytevector sub-index s16) -> (void)]] [flags true]) (bytevector-u32-ref [sig [(bytevector sub-index symbol) -> (u32)]] [flags true mifoldable discard]) (bytevector-s32-ref [sig [(bytevector sub-index symbol) -> (s32)]] [flags true mifoldable discard]) (bytevector-u32-native-ref [sig [(bytevector sub-index) -> (u32)]] [flags true cp02])