Hi, Oliveira
With new patch, I can compile CFFI on LWL64 5.0 now.
2008/4/6 Chun Tian (binghe) <[EMAIL PROTECTED]>:
Your patch is OK for 5.1, but in 5.0, cannot compile
src/cffi-lispworks.lisp:
**++++ Error in CFFI-SYS:%MEM-SET:
Unknown block $MEM-REF
The new patch I've attached should work.
By the way, foreign strings seem completely broken. Do the string
tests pass for you?
How to do this test? On LispWorks 5.1 (amd64-linux), I load the
ASDF-TESTS
package, and load the tests/run-test.lisp, all seems OK, no error
found.
You can run the tests with (asdf:oos 'asdf:test-op :cffi)
Thank, now I can run CFFI tests. I met following issues:
LWL64 5.0:
Cannot compile tests/foreign-globals.lisp, seems in somewhere the
FLI:FORIEGN-TYPED-AREF been called for 64-bit integers which LW 5.0
cannot support where I have no idea. For details, see test-reports-5.0
in attach.
LWL64 5.1:
18 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.FUNCALL.2,
CALLBACKS.DOUBLE26.FUNCALL, CALLBACKS.FLOAT26,
CALLBACKS.FLOAT26.FUNCALL, FOREIGN-GLOBALS.READ-ONLY.1,
STRING.ENCODING.UTF-16.BASIC, STRING.ENCODINGS.ALL.BASIC.
For details, see test-reports-5.1 in attach.
I'll try to look into them to see why they're failed on LispWorks, I
don't know whether they're LW 5.1-only bugs until I can run tests on 5.0
Or, simply run the following snippet. Does this work for you?
(cffi:with-foreign-string (s "abc") (cffi:foreign-string-to-lisp
s))
Both 5.0 and 5.1 give me this result, I think it's OK:
CL-USER 6 > (cffi:with-foreign-string (s "abc") (cffi:foreign-string-
to-lisp s))
"abc"
3
--
Luís Oliveira
http://student.dei.uc.pt/~lmoliv/
<cffi-lispworks-long-long.diff>
;;; Compiling file /home/binghe/Lisp/cffi/tests/foreign-globals.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 1)
; (TOP-LEVEL-FORM 2)
; (TOP-LEVEL-FORM 3)
; (TOP-LEVEL-FORM 4)
; CFFI-TESTS::%VAR-ACCESSOR-*CHAR-VAR*
; (SETF CFFI-TESTS::%VAR-ACCESSOR-*CHAR-VAR*)
; (DEFINE-SYMBOL-MACRO CFFI-TESTS::*CHAR-VAR*)
; (TOP-LEVEL-FORM 5)
; (TOP-LEVEL-FORM 6)
; CFFI-TESTS::%VAR-ACCESSOR-*VAR-UNSIGNED-CHAR*
; (SETF CFFI-TESTS::%VAR-ACCESSOR-*VAR-UNSIGNED-CHAR*)
; (DEFINE-SYMBOL-MACRO CFFI-TESTS::*VAR-UNSIGNED-CHAR*)
; (TOP-LEVEL-FORM 7)
; (TOP-LEVEL-FORM 8)
; CFFI-TESTS::%VAR-ACCESSOR-*VAR-SHORT*
; (SETF CFFI-TESTS::%VAR-ACCESSOR-*VAR-SHORT*)
; (DEFINE-SYMBOL-MACRO CFFI-TESTS::*VAR-SHORT*)
; (TOP-LEVEL-FORM 9)
; (TOP-LEVEL-FORM 10)
; CFFI-TESTS::%VAR-ACCESSOR-*VAR-UNSIGNED-SHORT*
; (SETF CFFI-TESTS::%VAR-ACCESSOR-*VAR-UNSIGNED-SHORT*)
; (DEFINE-SYMBOL-MACRO CFFI-TESTS::*VAR-UNSIGNED-SHORT*)
; (TOP-LEVEL-FORM 11)
; (TOP-LEVEL-FORM 12)
; CFFI-TESTS::%VAR-ACCESSOR-*VAR-INT*
; (SETF CFFI-TESTS::%VAR-ACCESSOR-*VAR-INT*)
; (DEFINE-SYMBOL-MACRO CFFI-TESTS::*VAR-INT*)
; (TOP-LEVEL-FORM 13)
; (TOP-LEVEL-FORM 14)
; CFFI-TESTS::%VAR-ACCESSOR-*VAR-UNSIGNED-INT*
; (SETF CFFI-TESTS::%VAR-ACCESSOR-*VAR-UNSIGNED-INT*)
; (DEFINE-SYMBOL-MACRO CFFI-TESTS::*VAR-UNSIGNED-INT*)
; (TOP-LEVEL-FORM 15)
; (TOP-LEVEL-FORM 16)
**++++ Error in CFFI-TESTS::%VAR-ACCESSOR-*VAR-LONG*:
Type (SIGNED-BYTE 64) not supported by SYSTEM:TYPED-AREF.
; (TOP-LEVEL-FORM 17)
; (TOP-LEVEL-FORM 18)
**++++ Error in CFFI-TESTS::%VAR-ACCESSOR-*VAR-UNSIGNED-LONG*:
Type (UNSIGNED-BYTE 64) not supported by SYSTEM:TYPED-AREF.
; (TOP-LEVEL-FORM 19)
; (TOP-LEVEL-FORM 20)
; CFFI-TESTS::%VAR-ACCESSOR-*VAR-FLOAT*
; (SETF CFFI-TESTS::%VAR-ACCESSOR-*VAR-FLOAT*)
; (DEFINE-SYMBOL-MACRO CFFI-TESTS::*VAR-FLOAT*)
; (TOP-LEVEL-FORM 21)
; (TOP-LEVEL-FORM 22)
; CFFI-TESTS::%VAR-ACCESSOR-*VAR-DOUBLE*
; (SETF CFFI-TESTS::%VAR-ACCESSOR-*VAR-DOUBLE*)
; (DEFINE-SYMBOL-MACRO CFFI-TESTS::*VAR-DOUBLE*)
; (TOP-LEVEL-FORM 23)
; (TOP-LEVEL-FORM 24)
; CFFI-TESTS::%VAR-ACCESSOR-*VAR-POINTER*
; (SETF CFFI-TESTS::%VAR-ACCESSOR-*VAR-POINTER*)
; (DEFINE-SYMBOL-MACRO CFFI-TESTS::*VAR-POINTER*)
; (TOP-LEVEL-FORM 25)
; (TOP-LEVEL-FORM 26)
; CFFI-TESTS::%VAR-ACCESSOR-*VAR-STRING*
; (SETF CFFI-TESTS::%VAR-ACCESSOR-*VAR-STRING*)
; (DEFINE-SYMBOL-MACRO CFFI-TESTS::*VAR-STRING*)
; (TOP-LEVEL-FORM 27)
; (TOP-LEVEL-FORM 28)
; CFFI-TESTS::%VAR-ACCESSOR-*VAR-LONG-LONG*
; (SETF CFFI-TESTS::%VAR-ACCESSOR-*VAR-LONG-LONG*)
; (DEFINE-SYMBOL-MACRO CFFI-TESTS::*VAR-LONG-LONG*)
; (TOP-LEVEL-FORM 29)
; (TOP-LEVEL-FORM 30)
; CFFI-TESTS::%VAR-ACCESSOR-*VAR-UNSIGNED-LONG-LONG*
; (SETF CFFI-TESTS::%VAR-ACCESSOR-*VAR-UNSIGNED-LONG-LONG*)
; (DEFINE-SYMBOL-MACRO CFFI-TESTS::*VAR-UNSIGNED-LONG-LONG*)
; (TOP-LEVEL-FORM 31)
; (TOP-LEVEL-FORM 32)
; (TOP-LEVEL-FORM 33)
; (TOP-LEVEL-FORM 34)
; (TOP-LEVEL-FORM 35)
; (TOP-LEVEL-FORM 36)
; (TOP-LEVEL-FORM 37)
; (TOP-LEVEL-FORM 38)
; (TOP-LEVEL-FORM 39)
; (TOP-LEVEL-FORM 40)
; (TOP-LEVEL-FORM 41)
; (TOP-LEVEL-FORM 42)
; (TOP-LEVEL-FORM 43)
; (TOP-LEVEL-FORM 44)
; CFFI-TESTS::WITH-OLD-VALUE-RESTORED
; (TOP-LEVEL-FORM 45)
; (TOP-LEVEL-FORM 46)
; (TOP-LEVEL-FORM 47)
; (TOP-LEVEL-FORM 48)
; (TOP-LEVEL-FORM 49)
; (TOP-LEVEL-FORM 50)
; (TOP-LEVEL-FORM 51)
; CFFI-TESTS::%VAR-ACCESSOR-*UPPERCASEINT1*
; (SETF CFFI-TESTS::%VAR-ACCESSOR-*UPPERCASEINT1*)
; (DEFINE-SYMBOL-MACRO CFFI-TESTS::*UPPERCASEINT1*)
; (TOP-LEVEL-FORM 52)
; (TOP-LEVEL-FORM 53)
; CFFI-TESTS::%VAR-ACCESSOR-*UPPER-CASE-INT1*
; (SETF CFFI-TESTS::%VAR-ACCESSOR-*UPPER-CASE-INT1*)
; (DEFINE-SYMBOL-MACRO CFFI-TESTS::*UPPER-CASE-INT1*)
; (TOP-LEVEL-FORM 54)
; (TOP-LEVEL-FORM 55)
; CFFI-TESTS::%VAR-ACCESSOR-*MIXEDCASEINT1*
; (SETF CFFI-TESTS::%VAR-ACCESSOR-*MIXEDCASEINT1*)
; (DEFINE-SYMBOL-MACRO CFFI-TESTS::*MIXEDCASEINT1*)
; (TOP-LEVEL-FORM 56)
; (TOP-LEVEL-FORM 57)
; CFFI-TESTS::%VAR-ACCESSOR-*MIXED-CASE-INT1*
; (SETF CFFI-TESTS::%VAR-ACCESSOR-*MIXED-CASE-INT1*)
; (DEFINE-SYMBOL-MACRO CFFI-TESTS::*MIXED-CASE-INT1*)
; (TOP-LEVEL-FORM 58)
; (TOP-LEVEL-FORM 59)
; (TOP-LEVEL-FORM 60)
; (TOP-LEVEL-FORM 61)
; (TOP-LEVEL-FORM 62)
; (TOP-LEVEL-FORM 63)
; (TOP-LEVEL-FORM 64)
; (TOP-LEVEL-FORM 65)
; (TOP-LEVEL-FORM 66)
; (TOP-LEVEL-FORM 67)
; (TOP-LEVEL-FORM 68)
; (TOP-LEVEL-FORM 69)
; (TOP-LEVEL-FORM 70)
; (TOP-LEVEL-FORM 71)
; (TOP-LEVEL-FORM 72)
; (TOP-LEVEL-FORM 73)
; CFFI-TESTS::%VAR-ACCESSOR-*VAR-CHAR*
; (SETF CFFI-TESTS::%VAR-ACCESSOR-*VAR-CHAR*)
; (DEFINE-SYMBOL-MACRO CFFI-TESTS::*VAR-CHAR*)
; (TOP-LEVEL-FORM 74)
; (TOP-LEVEL-FORM 75)
; CFFI-TESTS::%VAR-ACCESSOR-VAR-CHAR
; (SETF CFFI-TESTS::%VAR-ACCESSOR-VAR-CHAR)
; (DEFINE-SYMBOL-MACRO CFFI-TESTS::VAR-CHAR)
; (TOP-LEVEL-FORM 76)
; (TOP-LEVEL-FORM 77)
; (TOP-LEVEL-FORM 78)
; (TOP-LEVEL-FORM 79)
; (TOP-LEVEL-FORM 80)
; (TOP-LEVEL-FORM 81)
; (TOP-LEVEL-FORM 82)
; CFFI-TESTS::%VAR-ACCESSOR-*NS-VAR1*
; (SETF CFFI-TESTS::%VAR-ACCESSOR-*NS-VAR1*)
; (DEFINE-SYMBOL-MACRO CFFI-TESTS::*NS-VAR1*)
; (TOP-LEVEL-FORM 83)
; (TOP-LEVEL-FORM 84)
; CFFI-TESTS::%VAR-ACCESSOR-*NS-VAR2*
; (SETF CFFI-TESTS::%VAR-ACCESSOR-*NS-VAR2*)
; (DEFINE-SYMBOL-MACRO CFFI-TESTS::*NS-VAR2*)
; (TOP-LEVEL-FORM 85)
; (TOP-LEVEL-FORM 86)
; (TOP-LEVEL-FORM 87)
; CFFI-TESTS::%VAR-ACCESSOR-*VAR-CHAR-RO*
; (SETF CFFI-TESTS::%VAR-ACCESSOR-*VAR-CHAR-RO*)
; (DEFINE-SYMBOL-MACRO CFFI-TESTS::*VAR-CHAR-RO*)
; (TOP-LEVEL-FORM 88)
; (TOP-LEVEL-FORM 89)
; *** 2 errors detected, no fasl file produced.
Warning: COMPILE-FILE warned while performing
#<ASDF:COMPILE-OP NIL 4170391743> on
#<ASDF:CL-SOURCE-FILE "foreign-globals" 41703714E3>.
Warning: COMPILE-FILE failed while performing
#<ASDF:COMPILE-OP NIL 4170391743> on
#<ASDF:CL-SOURCE-FILE "foreign-globals" 41703714E3>.
Error: erred while invoking #<ASDF:COMPILE-OP NIL 4170391743> on
#<ASDF:CL-SOURCE-FILE "foreign-globals" 41703714E3>
1 (continue) Retry performing #<ASDF:COMPILE-OP NIL 4170391743> on
#<ASDF:CL-SOURCE-FILE "foreign-globals" 41703714E3>.
2 Continue, treating #<ASDF:COMPILE-OP NIL 4170391743> on
#<ASDF:CL-SOURCE-FILE "foreign-globals" 41703714E3> as having been
successful.
3 Retry performing #<ASDF:TEST-OP NIL 4170367903> on
#<ASDF:SYSTEM "cffi" 40D002D0D3>.
4 Continue, treating #<ASDF:TEST-OP NIL 4170367903> on
#<ASDF:SYSTEM "cffi" 40D002D0D3> as having been successful.
5 (abort) Return to level 0.
6 Restart top-level loop.
Type :b for backtrace, :c <option number> to proceed, or :? for other options
CL-USER 6 > (cffi:with-foreign-string (s "abc") (cffi:foreign-string-to-lisp s))
"abc"
3
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
FUNCALL.CHAR FUNCALL.INT.1 FUNCALL.INT.2
Creating foreign funcallable for signature (:LONG) -> :LONG
FUNCALL.LONG
Creating foreign funcallable for signature ((:LONG :LONG)) -> (:LONG
:LONG)
FUNCALL.LONG-LONG
Creating foreign funcallable for signature (:FLOAT) -> :FLOAT
FUNCALL.FLOAT
Creating foreign funcallable for signature (:DOUBLE) -> :DOUBLE
Test FUNCALL.DOUBLE failed
Form: (FOREIGN-FUNCALL "sqrt" :DOUBLE 36.0D0 :DOUBLE)
Expected value: 6.0D0
Actual value: #<SIMPLE-ERROR 4050379E33>.
Creating foreign funcallable for signature (:POINTER) -> :INT
FUNCALL.STRING.1
Creating foreign funcallable for signature (:POINTER :POINTER) -> :POINTER
FUNCALL.STRING.2 FUNCALL.STRING.3
Creating foreign funcallable for signature (:POINTER :POINTER :INT) -> :INT
FUNCALL.VARARGS.CHAR FUNCALL.VARARGS.INT
Creating foreign funcallable for signature (:POINTER :POINTER :LONG) -> :INT
FUNCALL.VARARGS.LONG
Creating foreign funcallable for signature (:POINTER :POINTER :DOUBLE) -> :INT
FUNCALL.VARARGS.DOUBLE
Creating foreign funcallable for signature (:POINTER
:POINTER
:POINTER
:POINTER) -> :INT
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
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
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.3920873E10.
FUNCALL.F-S-P.1
Creating foreign funcallable for signature NIL -> :INT
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 405050963B>.
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: 796463101.
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: 7758614658402818833.
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: 112.02551.
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 40500321C3>.
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 4050033DCB>.
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
CALLBACKS.STRING-NOT-DOCSTRING CALLBACKS.QSORT CALLBACKS.VOID
Creating foreign funcallable for signature (:INT :INT :INT) -> :INT
CALLBACKS.FUNCALL.1
Creating foreign funcallable for signature (:FLOAT
:FLOAT
:FLOAT
:FLOAT
:FLOAT) -> :FLOAT
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
FOREIGN-GLOBALS.REF.INT FOREIGN-GLOBALS.REF.UNSIGNED-INT
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 FOREIGN-GLOBALS.REF.UPPERCASEINT1
FOREIGN-GLOBALS.REF.UPPER-CASE-INT1 FOREIGN-GLOBALS.REF.MIXEDCASEINT1
FOREIGN-GLOBALS.REF.MIXED-CASE-INT1 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 40500BBB8B>.
FOREIGN-GLOBALS.NAMESPACE.4
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 40500BD513>.
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 MEM-REF.RT.1
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: (:UTF-16).
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
19 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.FUNCALL.2,
CALLBACKS.DOUBLE26.FUNCALL, CALLBACKS.FLOAT26,
CALLBACKS.FLOAT26.FUNCALL, FOREIGN-GLOBALS.NAMESPACE.3,
FOREIGN-GLOBALS.READ-ONLY.1, STRING.ENCODING.UTF-16.BASIC,
STRING.ENCODINGS.ALL.BASIC.
18 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.FUNCALL.2,
CALLBACKS.DOUBLE26.FUNCALL, CALLBACKS.FLOAT26,
CALLBACKS.FLOAT26.FUNCALL, FOREIGN-GLOBALS.READ-ONLY.1,
STRING.ENCODING.UTF-16.BASIC, STRING.ENCODINGS.ALL.BASIC.
;;; Finished running tests (uncompiled) 1 times.
Error: test-op failed.
1 (continue) Retry performing #<ASDF:TEST-OP NIL 421047C95B> on
#<ASDF:SYSTEM "cffi-tests" 421020E373>.
2 Continue, treating #<ASDF:TEST-OP NIL 421047C95B> on
#<ASDF:SYSTEM "cffi-tests" 421020E373> as having been successful.
3 Retry performing #<ASDF:TEST-OP NIL 421020E5EB> on
#<ASDF:SYSTEM "cffi" 41B0011223>.
4 Continue, treating #<ASDF:TEST-OP NIL 421020E5EB> on
#<ASDF:SYSTEM "cffi" 41B0011223> as having been successful.
5 (abort) Return to level 0.
6 Restart top-level loop.
Type :b for backtrace, :c <option number> to proceed, or :? for other options
CL-USER 3 : 1 >
CL-USER 4 > (cffi:with-foreign-string (s "abc") (cffi:foreign-string-to-lisp s))
"abc"
3
_______________________________________________
cffi-devel mailing list
cffi-devel@common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/cffi-devel
