suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Chez Scheme: repair new tests that need eqv? instead of eq?

Browse Source
This commit is contained in:
Matthew Flatt 2021-05-13 12:05:07 -06:00
parent 92012b80eb
commit 0063d2b06a
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
racket/src/ChezScheme/mats/foreign.ms
View File

@ -3324,10 +3324,10 @@
(collect)
(eq? $reftest-bv2 (bytevector-reference-ref $reftest-bv 0)))
(with-interrupts-disabled
(eq? (if (= (foreign-sizeof 'ptr) 8)
(bytevector-u64-native-ref $reftest-bv 0)
(bytevector-u32-native-ref $reftest-bv 0))
(object->reference-address $reftest-bv2)))
(eqv? (if (= (foreign-sizeof 'ptr) 8)
(bytevector-u64-native-ref $reftest-bv 0)
(bytevector-u32-native-ref $reftest-bv 0))
(object->reference-address $reftest-bv2)))
(with-interrupts-disabled
(and (eq? $reftest-bv2
(reference-address->object (object->reference-address $reftest-bv2)))
@ -3364,10 +3364,10 @@
(collect)
(eq? $reftest-flv (bytevector-reference-ref $reftest-bv 0)))
(with-interrupts-disabled
(eq? (if (= (foreign-sizeof 'ptr) 8)
(bytevector-u64-native-ref $reftest-bv 0)
(bytevector-u32-native-ref $reftest-bv 0))
(object->reference-address $reftest-flv)))
(eqv? (if (= (foreign-sizeof 'ptr) 8)
(bytevector-u64-native-ref $reftest-bv 0)
(bytevector-u32-native-ref $reftest-bv 0))
(object->reference-address $reftest-flv)))
(with-interrupts-disabled
(eq? $reftest-flv
(reference-address->object (object->reference-address $reftest-flv))))