Hi, Oliveira
2008/4/7 Chun Tian (binghe) <[EMAIL PROTECTED]>:
Seems good:
CL-USER 3 > (cffi:with-foreign-object (x :long-long)
(setf (cffi:mem-ref x :long-long) 42)
(cffi:mem-ref x :long-long))
42
Ah, silly me. :long-long is the same size as :long on x86-64. We have
to treat :long differently in the compiler macros as well. The
attached patch should work better this time.
Thanks for fix that. With your new patch, I can run CFFI's test-op on
LWL64 5.0 now.
Test on LWL64 5.0 has 28 unexpected failures, more than 5.1 (which has
18 unexpected failures)
For details, see in attach.
So, what else can I do for you? Does these failure tests means bugs or
feature lost in CFFI's LW support?
Regards,
Chun Tian (binghe)
--
Luís Oliveira
http://student.dei.uc.pt/~lmoliv/
<cffi-lispworks-long-long-v3.diff>
How many times shall we run the tests (uncompiled)? [1]:
Doing 226 pending tests of 226 tests total.
Creating foreign funcallable for signature (:BYTE) -> :BYTE
;;;*** Warning in 20: FLI:DEFINE-FOREIGN-FUNCTION option :CALLING-CONVENTION
:CDECL is not supported for this platform.
FUNCALL.CHAR FUNCALL.INT.1 FUNCALL.INT.2
Creating foreign funcallable for signature (:LONG) -> :LONG
;;;*** Warning in 21: FLI:DEFINE-FOREIGN-FUNCTION option :CALLING-CONVENTION
:CDECL is not supported for this platform.
FUNCALL.LONG
Creating foreign funcallable for signature ((:LONG :LONG)) -> (:LONG
:LONG)
;;;*** Warning in 22: FLI:DEFINE-FOREIGN-FUNCTION option :CALLING-CONVENTION
:CDECL is not supported for this platform.
FUNCALL.LONG-LONG
Creating foreign funcallable for signature (:FLOAT) -> :FLOAT
;;;*** Warning in 23: FLI:DEFINE-FOREIGN-FUNCTION option :CALLING-CONVENTION
:CDECL is not supported for this platform.
FUNCALL.FLOAT
Creating foreign funcallable for signature (:DOUBLE) -> :DOUBLE
;;;*** Warning in 24: FLI:DEFINE-FOREIGN-FUNCTION option :CALLING-CONVENTION
:CDECL is not supported for this platform.
Test FUNCALL.DOUBLE failed
Form: (FOREIGN-FUNCALL "sqrt" :DOUBLE 36.0D0 :DOUBLE)
Expected value: 6.0D0
Actual value: #<SIMPLE-ERROR 405001F523>.
Creating foreign funcallable for signature (:POINTER) -> :INT
;;;*** Warning in 25: FLI:DEFINE-FOREIGN-FUNCTION option :CALLING-CONVENTION
:CDECL is not supported for this platform.
FUNCALL.STRING.1
Creating foreign funcallable for signature (:POINTER :POINTER) -> :POINTER
;;;*** Warning in 26: FLI:DEFINE-FOREIGN-FUNCTION option :CALLING-CONVENTION
:CDECL is not supported for this platform.
FUNCALL.STRING.2 FUNCALL.STRING.3
Creating foreign funcallable for signature (:POINTER :POINTER :INT) -> :INT
;;;*** Warning in 27: FLI:DEFINE-FOREIGN-FUNCTION option :CALLING-CONVENTION
:CDECL is not supported for this platform.
FUNCALL.VARARGS.CHAR FUNCALL.VARARGS.INT
Creating foreign funcallable for signature (:POINTER :POINTER :LONG) -> :INT
;;;*** Warning in 28: FLI:DEFINE-FOREIGN-FUNCTION option :CALLING-CONVENTION
:CDECL is not supported for this platform.
FUNCALL.VARARGS.LONG
Creating foreign funcallable for signature (:POINTER :POINTER :DOUBLE) -> :INT
;;;*** Warning in 29: FLI:DEFINE-FOREIGN-FUNCTION option :CALLING-CONVENTION
:CDECL is not supported for this platform.
FUNCALL.VARARGS.DOUBLE
Creating foreign funcallable for signature (:POINTER
:POINTER
:POINTER
:POINTER) -> :INT
;;;*** Warning in 30: FLI:DEFINE-FOREIGN-FUNCTION option :CALLING-CONVENTION
:CDECL is not supported for this platform.
FUNCALL.VARARGS.STRING
Creating foreign funcallable for signature (:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE
:DOUBLE) -> :DOUBLE
;;;*** Warning in 31: FLI:DEFINE-FOREIGN-FUNCTION option :CALLING-CONVENTION
:CDECL is not supported for this platform.
Test FUNCALL.DOUBLE26 failed
Form: (FOREIGN-FUNCALL "sum_double26"
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE)
Expected value: 81.64D0
Actual value: 65.94D0.
Creating foreign funcallable for signature (:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT) -> :FLOAT
;;;*** Warning in 32: FLI:DEFINE-FOREIGN-FUNCTION option :CALLING-CONVENTION
:CDECL is not supported for this platform.
Test FUNCALL.FLOAT26 failed
Form: (FOREIGN-FUNCALL "sum_float26"
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT)
Expected value: 130.0
Actual value: 1.0334318E10.
FUNCALL.F-S-P.1
Creating foreign funcallable for signature NIL -> :INT
;;;*** Warning in 33: FLI:DEFINE-FOREIGN-FUNCTION option :CALLING-CONVENTION
:CDECL is not supported for this platform.
FUNCALL.NAMESPACE.1 DEFCFUN.CHAR DEFCFUN.DOCSTRING DEFCFUN.INT
DEFCFUN.LONG DEFCFUN.LONG-LONG DEFCFUN.FLOAT
Test DEFCFUN.DOUBLE failed
Form: (C-SQRT 36.0D0)
Expected value: 6.0D0
Actual value: #<SIMPLE-ERROR 40501B3343>.
DEFCFUN.STRING.1 DEFCFUN.STRING.2 DEFCFUN.STRING.3 DEFCFUN.NOARGS
DEFCFUN.NOOP DEFCFUN.VARARGS.DOCSTRINGS DEFCFUN.VARARGS.CHAR
DEFCFUN.VARARGS.SHORT DEFCFUN.VARARGS.INT DEFCFUN.VARARGS.LONG
DEFCFUN.VARARGS.FLOAT DEFCFUN.VARARGS.DOUBLE DEFCFUN.VARARGS.STRING
Test DEFCFUN.BFF.1 failed
Form: (SUM-127-NO-LL 1442906394
520035521
-4715
50335
-13557.0
-30892.0D0
24061483
-23737.0
22
2348
4986
104895680
8073.0D0
-571698147
102484400
(MAKE-POINTER 507907275)
12733353
7824
-1275845284
13602.0
(MAKE-POINTER 286958390)
-8042.0
-773681663
-1289932452
31199
-154985357
-170994216
16845.0D0
177
218969221
2794350893
6068863
26327
127699339
(MAKE-POINTER 184352771)
18512.0D0
-12345.0D0
-179853040
-19981
37268
-792845398
116
-1084653028
50494
(MAKE-POINTER 2105239646)
-1710519651
1557813312
2839.0D0
90
180
30580.0
-532698978
8623
9537.0D0
-10882
54
184357206
14929.0
-8190.0
-25615.0
(MAKE-POINTER 235310526)
(MAKE-POINTER 220476977)
7476055
1576685
-117
-11781
31479
23282640
(MAKE-POINTER 8627281)
-17834.0
10391.0D0
-1904504370
114393659
-17062
637873619
16078
-891210259
8107
0
760.0D0
-21268
104
14133.0
10
588598141
310.0D0
20
1351785456
16159552
-10121.0D0
-25866
24821
68232851
60
-24132.0
-1660411658
13387.0
-786516668
-499825680
-1128144619
111849719
2746091587
-2
95
14488
326328135
64781
18204
150716680
-703859275
103
16809.0D0
852235610
-43
21088
242356110
324325428
-22380
23
24814.0
(MAKE-POINTER 40362014)
-14322.0D0
-1864262539
523684371
-21
49995
-29175.0)
Expected value: 796447501
Actual value: 796410153.
Test DEFCFUN.BFF.2 failed
Form: (SUM-127 (MAKE-POINTER 2746181372)
(MAKE-POINTER 177623060)
-32334.0
3158055028
(MAKE-POINTER 242315091)
4288001754991016425
-21047.0D0
287.0D0
18722
243379286
-8677366518541007140
581399424
-13872
4240394881
1353358999
226
969197676
-26207.0D0
6484
11150
1241680089902988480
106068320
61865
2253
(MAKE-POINTER 866809333)
-31613
35616
11715
1393601698
8940888681199591845
(MAKE-POINTER 1524606024)
805638893
3315410736
3432596795
(MAKE-POINTER 1490355706)
696175657106383698
-25438.0
1294381547
26724
(MAKE-POINTER 3196569545)
2506913373410783697
-4405955718732597856
4075932032
3224670123
2183829215657835866
1318320964
-22
-3786.0D0
-2017024146
1579225515
-626617701
-1456
(MAKE-POINTER 3561444187)
395687791
1968033632506257320
-1847773261
48853
142937735275669133
-17974.0
(MAKE-POINTER 2791749948)
-14140.0
2707
3691328585
3306.0
1132012981
303633191773289330
(MAKE-POINTER 981183954)
9114.0D0
8664374572369470
-19013.0D0
-10288.0D0
-3679345119891954339
(MAKE-POINTER 3538786709)
23761
-154264605
(MAKE-POINTER 2694396308)
7023
997.0D0
1009561368
241
(MAKE-POINTER 2612292671)
48
1431872408
-32675.0D0
(MAKE-POINTER 1587599336)
958916472
-9857.0D0
111
-14370.0D0
-7308
-967514912
488790941
2146978095
-24111.0D0
13711
86681861
717987770
111
1013402998690933877
17234.0D0
-8772.0
3959216275
-8711
(MAKE-POINTER 3142780851)
9480.0
-3820453146461186120
1616574376
-3336232268263990050
-1906114671562979758
-27925.0D0
9695970875869913114
27033.0D0
1096518219
-12
104
3392025403
-27911
60
89
509297051
-533066551
29158.0
110
54
-9802.0D0
593950442165910888
-79)
Expected value: 7758614658402721936
Actual value: -1464757378452005313.
Warning: FLI:DEFINE-FOREIGN-FUNCTION option :CALLING-CONVENTION :CDECL is not
supported for this platform.
DEFCFUN.UNDEFINED
Test DEFCFUN.DOUBLE26 failed
Form: (SUM-DOUBLE26 3.14D0
3.14D0
3.14D0
3.14D0
3.14D0
3.14D0
3.14D0
3.14D0
3.14D0
3.14D0
3.14D0
3.14D0
3.14D0
3.14D0
3.14D0
3.14D0
3.14D0
3.14D0
3.14D0
3.14D0
3.14D0
3.14D0
3.14D0
3.14D0
3.14D0
3.14D0)
Expected value: 81.64D0
Actual value: 65.94D0.
Test DEFCFUN.FLOAT26 failed
Form: (SUM-FLOAT26 5.0
5.0
5.0
5.0
5.0
5.0
5.0
5.0
5.0
5.0
5.0
5.0
5.0
5.0
5.0
5.0
5.0
5.0
5.0
5.0
5.0
5.0
5.0
5.0
5.0
5.0)
Expected value: 130.0
Actual value: 4.763346E19.
DEFCFUN.NAMESPACE.1 CALLBACKS.CHAR CALLBACKS.UNSIGNED-CHAR
CALLBACKS.SHORT CALLBACKS.UNSIGNED-SHORT CALLBACKS.INT
CALLBACKS.UNSIGNED-INT
Test CALLBACKS.LONG failed
Form: (EXPECT-LONG-SUM (CALLBACK SUM-LONG))
Expected value: 1
Actual value: #<FLI:FOREIGN-TYPE-ERROR 40501EED33>.
CALLBACKS.UNSIGNED-LONG
Test CALLBACKS.LONG-LONG failed
Form: (EXPECT-LONG-LONG-SUM (CALLBACK SUM-LONG-LONG))
Expected value: 1
Actual value: #<FLI:FOREIGN-TYPE-ERROR 40501F0ED3>.
CALLBACKS.UNSIGNED-LONG-LONG
Test CALLBACKS.FLOAT failed
Form: (EXPECT-FLOAT-SUM (CALLBACK SUM-FLOAT))
Expected value: 1
Actual value: 0.
CALLBACKS.DOUBLE CALLBACKS.POINTER CALLBACKS.STRING
Creating foreign funcallable for signature NIL -> :POINTER
;;;*** Warning in 34: FLI:DEFINE-FOREIGN-FUNCTION option :CALLING-CONVENTION
:CDECL is not supported for this platform.
CALLBACKS.STRING-NOT-DOCSTRING
Test CALLBACKS.QSORT failed
Form: (WITH-FOREIGN-OBJECT (ARRAY :INT 10)
(LOOP FOR I FROM 0
AND N IN '(7 2 10 4 3 5 1 6 9 8)
DO (SETF (MEM-AREF ARRAY :INT I) N))
(QSORT ARRAY 10 (FOREIGN-TYPE-SIZE :INT) (CALLBACK <))
(LOOP FOR I FROM 0 BELOW 10 COLLECT (MEM-AREF ARRAY :INT I)))
Expected value: (1 2 3 4 5 6 7 8 9 10)
Actual value: (7 2 5 9 8 6 1 4 10 3).
Test CALLBACKS.VOID failed
Form: (PROGN (PASS-INT-REF (CALLBACK READ-INT-FROM-POINTER)) *INT*)
Expected value: 1984
Actual value: 4613284605254961088.
Creating foreign funcallable for signature (:INT :INT :INT) -> :INT
;;;*** Warning in 35: FLI:DEFINE-FOREIGN-FUNCTION option :CALLING-CONVENTION
:CDECL is not supported for this platform.
CALLBACKS.FUNCALL.1
Creating foreign funcallable for signature (:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT) -> :FLOAT
;;;*** Warning in 36: FLI:DEFINE-FOREIGN-FUNCTION option :CALLING-CONVENTION
:CDECL is not supported for this platform.
Test CALLBACKS.FUNCALL.2 failed
Form: (FOREIGN-FUNCALL-POINTER (CALLBACK SUM-2F)
NIL
FOO-FLOAT
1.0
FOO-FLOAT
2.0
FOO-FLOAT
3.0
FOO-FLOAT
4.0
FOO-FLOAT
5.0
FOO-FLOAT)
Expected value: 6.0
Actual value: 0.0.
CALLBACKS.BFF.1 CALLBACKS.BFF.2 CALLBACKS.NON-EXISTANT
CALLBACKS.DOUBLE26
Test CALLBACKS.DOUBLE26.FUNCALL failed
Form: (FOREIGN-FUNCALL-POINTER (CALLBACK DOUBLE26)
NIL
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE
3.14D0
:DOUBLE)
Expected value: 81.64D0
Actual value: 65.94D0.
Test CALLBACKS.FLOAT26 failed
Form: (CALL-FLOAT26 (CALLBACK FLOAT26))
Expected value: 130.0
Actual value: 0.0.
Test CALLBACKS.FLOAT26.FUNCALL failed
Form: (FOREIGN-FUNCALL-POINTER (CALLBACK FLOAT26)
NIL
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT
5.0
:FLOAT)
Expected value: 130.0
Actual value: 3.689349E19.
FOREIGN-GLOBALS.REF.CHAR FOREIGN-GLOBALS.REF.UNSIGNED-CHAR
FOREIGN-GLOBALS.REF.SHORT FOREIGN-GLOBALS.REF.UNSIGNED-SHORT
Test FOREIGN-GLOBALS.REF.INT failed
Form: *VAR-INT*
Expected value: -32767
Actual value: 281474976677889.
Test FOREIGN-GLOBALS.REF.UNSIGNED-INT failed
Form: *VAR-UNSIGNED-INT*
Expected value: 65535
Actual value: 9223372041149808639.
FOREIGN-GLOBALS.REF.LONG FOREIGN-GLOBALS.REF.UNSIGNED-LONG
FOREIGN-GLOBALS.REF.FLOAT FOREIGN-GLOBALS.REF.DOUBLE
FOREIGN-GLOBALS.REF.POINTER FOREIGN-GLOBALS.REF.STRING
FOREIGN-GLOBALS.REF.LONG-LONG FOREIGN-GLOBALS.REF.UNSIGNED-LONG-LONG
FOREIGN-GLOBALS.SET.INT FOREIGN-GLOBALS.SET.STRING
FOREIGN-GLOBALS.SET.LONG-LONG FOREIGN-GLOBALS.GET-VAR-POINTER.1
FOREIGN-GLOBALS.GET-VAR-POINTER.2
Test FOREIGN-GLOBALS.REF.UPPERCASEINT1 failed
Form: *UPPERCASEINT1*
Expected value: 12345
Actual value: 100742752907321.
Test FOREIGN-GLOBALS.REF.UPPER-CASE-INT1 failed
Form: *UPPER-CASE-INT1*
Expected value: 23456
Actual value: 148464134544288.
Test FOREIGN-GLOBALS.REF.MIXEDCASEINT1 failed
Form: *MIXEDCASEINT1*
Expected value: 34567
Actual value: 196185516181255.
Test FOREIGN-GLOBALS.REF.MIXED-CASE-INT1 failed
Form: *MIXED-CASE-INT1*
Expected value: 45678
Actual value: 53021371314798.
FOREIGN-GLOBALS.REF.UPPERCASEINT2 FOREIGN-GLOBALS.REF.UPPER-CASE-INT2
FOREIGN-GLOBALS.REF.MIXEDCASEINT2 FOREIGN-GLOBALS.REF.MIXED-CASE-INT2
FOREIGN-GLOBALS.REF.UPPERCASEINT3 FOREIGN-GLOBALS.REF.UPPER-CASE-INT3
FOREIGN-GLOBALS.REF.MIXEDCASEINT3 FOREIGN-GLOBALS.REF.MIXED-CASE-INT3
FOREIGN-GLOBALS.SYMBOL-NAME FOREIGN-GLOBALS.NAMESPACE.1
FOREIGN-GLOBALS.NAMESPACE.2
Test FOREIGN-GLOBALS.NAMESPACE.3 failed
Form: (VALUES (FOREIGN-SYMBOL-POINTER "var_char" :LIBRARY 'LIBTEST2)
(MEM-REF (FOREIGN-SYMBOL-POINTER "var_char") :CHAR))
Expected values: NIL
-127
Actual value: #<SIMPLE-TYPE-ERROR 4050279BBB>.
Test FOREIGN-GLOBALS.NAMESPACE.4 failed
Form: (VALUES *NS-VAR1* *NS-VAR2*)
Expected values: T
NIL
Actual values: T
T.
Test FOREIGN-GLOBALS.READ-ONLY.1 failed
Form: (VALUES *VAR-CHAR-RO* (IGNORE-ERRORS (SETF *VAR-CHAR-RO* 12)))
Expected values: -127
NIL
Actual value: #<SIMPLE-ERROR 405027BD4B>.
DEREF.CHAR DEREF.UNSIGNED-CHAR DEREF.SHORT DEREF.UNSIGNED-SHORT
DEREF.INT DEREF.UNSIGNED-INT DEREF.LONG DEREF.UNSIGNED-LONG
DEREF.LONG-LONG DEREF.UNSIGNED-LONG-LONG DEREF.FLOAT.1 DEREF.FLOAT.2
DEREF.FLOAT.3 DEREF.DOUBLE.1 DEREF.DOUBLE.2 DEREF.DOUBLE.3
DEREF.POINTER.NULL LISP-STRING-TO-FOREIGN.EMPTY
WITH-FOREIGN-POINTER.EVALX2 MEM-REF.LEFT-TO-RIGHT
%MEM-REF.LEFT-TO-RIGHT %MEM-SET.LEFT-TO-RIGHT MEM-AREF.EVAL-TYPE-X2
MEM-AREF.LEFT-TO-RIGHT MEM-REF.NESTED MEM-AREF.NESTED DEREF.AGGREGATE
DEREF.ARRAY-OF-AGGREGATES POINTER.1 POINTER.2 MAKE-POINTER.HIGH
INC-POINTER.ZERO FOREIGN-ALLOC.1 FOREIGN-ALLOC.2 FOREIGN-ALLOC.3
FOREIGN-ALLOC.4 FOREIGN-ALLOC.5 FOREIGN-ALLOC.6 FOREIGN-ALLOC.7
FOREIGN-ALLOC.8 FOREIGN-ALLOC.9 DEREF.NONCONST.CHAR
DEREF.NONCONST.UNSIGNED-CHAR DEREF.NONCONST.SHORT
DEREF.NONCONST.UNSIGNED-SHORT DEREF.NONCONST.INT
DEREF.NONCONST.UNSIGNED-INT DEREF.NONCONST.LONG
DEREF.NONCONST.UNSIGNED-LONG DEREF.NONCONST.LONG-LONG
DEREF.NONCONST.UNSIGNED-LONG-LONG DEREF.NONCONST.FLOAT.1
DEREF.NONCONST.FLOAT.2 DEREF.NONCONST.FLOAT.3 DEREF.NONCONST.DOUBLE.1
DEREF.NONCONST.DOUBLE.2 DEREF.NONCONST.DOUBLE.3
Test MEM-REF.RT.1 failed
Form: (MEM-REF-RT-1)
Expected values: 123
456
Actual values: 1958505087099
456.
MEM-REF.RT.2 INCF-POINTER.1 INCF-POINTER.2 POINTERP.1 POINTERP.2
STRING.CONVERSION.BASIC STRING.CONVERSION.BASIC.2 STRING.ENCODING.ASCII
Test STRING.ENCODING.UTF-16.BASIC failed
Form: (WITH-FOREIGN-STRING (S *ASCII-TEST-STRING* :ENCODING :UTF-16)
(FOREIGN-STRING-TO-LISP S :ENCODING :UTF-16))
Expected values: " !\"#$%&'()*+,-./0123456789:;<=>[EMAIL PROTECTED]|}~"
190
Actual value: #<error during printing>
STRING.SHORT-WRITE.1 STRING.ENCODING.UTF-8.BASIC
Test STRING.ENCODINGS.ALL.BASIC failed
Form: (LET (FAILED)
(DOLIST (ENCODING (LIST-LATIN-COMPATIBLE-ENCODINGS) FAILED)
(WITH-FOREIGN-STRING (PTR
*BASIC-LATIN-ALPHABET*
:ENCODING
ENCODING)
(LET ((STRING
(FOREIGN-STRING-TO-LISP PTR :ENCODING ENCODING)))
(UNLESS (STRING= *BASIC-LATIN-ALPHABET* STRING)
(PUSH ENCODING FAILED))))))
Expected value: NIL
Actual value: #<BABEL-ENCODINGS:CHARACTER-OUT-OF-RANGE 405034C1CB>.
STRING.ENCODINGS.DEFAULT STRUCT.1 STRUCT.2 STRUCT.3 STRUCT.4
STRUCT.NAMES STRUCT.5 STRUCT.STRING.1 STRUCT.STRING.2
STRUCT.ALIGNMENT.1 STRUCT.ALIGNMENT.2 STRUCT.ALIGNMENT.3
STRUCT.ALIGNMENT.4 STRUCT.ALIGNMENT.5 STRUCT.ALIGNMENT.6
STRUCT.ALIGNMENT.7 STRUCT.NESTED-SETF STRUCT.ALIGNMENT.8
STRUCT-WRAPPER.1 STRUCT-WRAPPER.2 UNION.1 ENUM.1 ENUM.2 ENUM.3
BITFIELD.1 BITFIELD.2 BITFIELD.3 BITFIELD.4 MISC-TYPES.STRING+PTR
MISC-TYPES.BOOLEAN.1 MISC-TYPES.BOOLEAN.2 MISC-TYPES.WRAPPER
MISC-TYPES.SIZED-INTS MISC-TYPES.EXPAND.1 MISC-TYPES.EXPAND.2
MISC-TYPES.EXPAND.3 MISC-TYPES.EXPAND.4 MISC-TYPES.EXPAND.5
MISC-TYPES.EXPAND.6 FEATURES.OS.1 FEATURES.OS.2 FEATURES.OS.3
FEATURES.CPU.1 FOREIGN-SYMBOL-POINTER.1 FOREIGN-SYMBOL-POINTER.2
LIBRARY.ERROR.1 SHAREABLE-VECTOR.1 SHAREABLE-VECTOR.2
29 out of 226 total tests failed: FUNCALL.DOUBLE, FUNCALL.DOUBLE26,
FUNCALL.FLOAT26, DEFCFUN.DOUBLE, DEFCFUN.BFF.1, DEFCFUN.BFF.2,
DEFCFUN.DOUBLE26, DEFCFUN.FLOAT26, CALLBACKS.LONG,
CALLBACKS.LONG-LONG, CALLBACKS.FLOAT, CALLBACKS.QSORT,
CALLBACKS.VOID, CALLBACKS.FUNCALL.2, CALLBACKS.DOUBLE26.FUNCALL,
CALLBACKS.FLOAT26, CALLBACKS.FLOAT26.FUNCALL,
FOREIGN-GLOBALS.REF.INT, FOREIGN-GLOBALS.REF.UNSIGNED-INT,
FOREIGN-GLOBALS.REF.UPPERCASEINT1,
FOREIGN-GLOBALS.REF.UPPER-CASE-INT1,
FOREIGN-GLOBALS.REF.MIXEDCASEINT1,
FOREIGN-GLOBALS.REF.MIXED-CASE-INT1, FOREIGN-GLOBALS.NAMESPACE.3,
FOREIGN-GLOBALS.NAMESPACE.4, FOREIGN-GLOBALS.READ-ONLY.1,
MEM-REF.RT.1, STRING.ENCODING.UTF-16.BASIC,
STRING.ENCODINGS.ALL.BASIC.
28 unexpected failures: FUNCALL.DOUBLE, FUNCALL.DOUBLE26,
FUNCALL.FLOAT26, DEFCFUN.DOUBLE, DEFCFUN.BFF.1, DEFCFUN.BFF.2,
DEFCFUN.DOUBLE26, DEFCFUN.FLOAT26, CALLBACKS.LONG,
CALLBACKS.LONG-LONG, CALLBACKS.FLOAT, CALLBACKS.QSORT,
CALLBACKS.VOID, CALLBACKS.FUNCALL.2, CALLBACKS.DOUBLE26.FUNCALL,
CALLBACKS.FLOAT26, CALLBACKS.FLOAT26.FUNCALL,
FOREIGN-GLOBALS.REF.INT, FOREIGN-GLOBALS.REF.UNSIGNED-INT,
FOREIGN-GLOBALS.REF.UPPERCASEINT1,
FOREIGN-GLOBALS.REF.UPPER-CASE-INT1,
FOREIGN-GLOBALS.REF.MIXEDCASEINT1,
FOREIGN-GLOBALS.REF.MIXED-CASE-INT1, FOREIGN-GLOBALS.NAMESPACE.4,
FOREIGN-GLOBALS.READ-ONLY.1, MEM-REF.RT.1,
STRING.ENCODING.UTF-16.BASIC, STRING.ENCODINGS.ALL.BASIC.
;;; Finished running tests (uncompiled) 1 times.
_______________________________________________
cffi-devel mailing list
cffi-devel@common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/cffi-devel
