[cffi-devel] Using cffi with ccl on windows 64bit

Louis Höfler louis.hoefler at gmx.de
Fri Jul 30 12:21:39 UTC 2010


Hello everyone. I try to use cffi on windows 64bit.

I recompiled the testlibraries with vs2010.

If I run the test I get this:

 

 

 

 

(require 'asdf)

(setf asdf:*central-registry*

  '(*default-pathname-defaults*

        #P"C:\\Users\\Lis\\Documents\\work\\trivial-features\\"

        #P"C:\\Users\\Lis\\Documents\\work\\babel\\"

        #P"C:\\Users\\Lis\\Documents\\work\\rt\\"

        #P"C:\\Users\\Lis\\Documents\\work\\alexandria\\"

    #P"C:\\Users\\Lis\\Documents\\work\\cffi\\"

  ))

(asdf:load-system 'trivial-features)

(asdf:load-system 'babel)

(asdf:load-system 'alexandria)

(asdf:load-system 'rt)

(asdf:load-system 'cffi)

 

(asdf:load-system 'cffi-tests)

(asdf:test-system 'cffi-tests)

 

 

 

 

;;;;;;;;;;;;;;;;;;;; OUTPUT

 

 

 

C:\Users\Lis\Documents\work\lisp_ccl>SET
PATH=C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\Syst
em32\WindowsPowerShell\v1.0\;C:\Program Files (x86)\Common
Files\Softimage;C:\Program Files\Common Files\Softimage;c:\Program Files
(x86)\Microsoft SQL Server\100\Tools\Binn\;c:\Program Files\Microsoft SQL
Server\100\Tools\Binn\;c:\Program Files\Microsoft SQL
Server\100\DTS\Binn\;C:\Program Files\Intel\WiFi\bin\;C:\Program
Files\Common Files\Intel\WirelessCommon\;C:\Program Files\ThinkPad\Bluetooth
Software\;C:\Program Files\ThinkPad\Bluetooth
Software\syswow64;;C:\Users\Lis\Documents\work\cffi\tests\libtest\x64\Debug;
C:\Users\Lis\Documents\work\cffi\tests\libtest2\x64\Debug 

 

C:\Users\Lis\Documents\work\lisp_ccl>C:\ccl\wx86cl64.exe -e "(load
\"C:\\Users\\Lis\\Documents\\work\\lisp_ccl\\cffi_test.lisp\")" 

; loading system definition from
C:/Users/Lis/Documents/work/trivial-features/trivial-features.asd into
#<Package "ASDF0">

; registering #<SYSTEM TRIVIAL-FEATURES #x210076D07D> as TRIVIAL-FEATURES

; loading system definition from C:/Users/Lis/Documents/work/babel/babel.asd
into #<Package "ASDF0">

; registering #<SYSTEM BABEL #x21007FBAAD> as BABEL

; loading system definition from
C:/Users/Lis/Documents/work/alexandria/alexandria.asd into #<Package
"ASDF0">

; registering #<SYSTEM :ALEXANDRIA #x210080329D> as ALEXANDRIA

; loading system definition from C:/Users/Lis/Documents/work/rt/rt.asd into
#<Package "ASDF0">

; registering #<SYSTEM :RT #x2100AFC34D> as RT

; loading system definition from C:/Users/Lis/Documents/work/cffi/cffi.asd
into #<Package "ASDF0">

; registering #<SYSTEM CFFI #x2100B2CBFD> as CFFI

; loading system definition from
C:/Users/Lis/Documents/work/cffi/cffi-tests.asd into #<Package "ASDF0">

; registering #<SYSTEM CFFI-TESTS #x2100C426AD> as CFFI-TESTS

;Compiler warnings for "home:Documents;work;cffi;tests;funcall.lisp.newest"
:

;   In (EXPAND-TO-FOREIGN (T CHECK-NIL-SKIP-TYPE)): Unused lexical variable
VAL

; Warning: COMPILE-FILE warned while performing #<COMPILE-OP NIL
#x2100AB2C5D> on #<CL-SOURCE-FILE "funcall" #x2100AB98BD>.

; While executing: #<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP
ASDF:CL-SOURCE-FILE)>, in process listener(1).

; Warning: Redefining test FOREIGN-ALLOC.6

; While executing: REGRESSION-TEST::REPORT-ERROR, in process listener(1).

;;; running tests (uncompiled)

Doing 235 pending tests of 235 tests total.

 FUNCALL.CHAR FUNCALL.INT.1 FUNCALL.INT.2 FUNCALL.LONG FUNCALL.LONG-LONG

 FUNCALL.FLOAT FUNCALL.DOUBLE FUNCALL.STRING.1 FUNCALL.STRING.2
FUNCALL.STRING.3

 FUNCALL.VARARGS.CHAR FUNCALL.VARARGS.INT FUNCALL.VARARGS.LONG

Test FUNCALL.VARARGS.DOUBLE failed

Form: (WITH-FOREIGN-POINTER-AS-STRING (S 100) (SETF (MEM-REF S :CHAR) 0)
(FOREIGN-FUNCALL "sprintf" :POINTER S :STRING "%.2f" :DOUBLE (COERCE PI
'DOUBLE-FLOAT) :INT))

Expected value: "3.14"

Actual value: "f".

 FUNCALL.VARARGS.STRING

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: 75.36D0.

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: 120.0.

 FUNCALL.F-S-P.1 FUNCALL.NIL-SKIP FUNCALL.POINTER-NOT-NIL DEFCFUN.CHAR

 DEFCFUN.DOCSTRING DEFCFUN.INT DEFCFUN.LONG DEFCFUN.LONG-LONG DEFCFUN.FLOAT

 DEFCFUN.DOUBLE DEFCFUN.STRING.1 DEFCFUN.STRING.2 DEFCFUN.STRING.3

 DEFCFUN.NOARGS

Test DEFCFUN.NOOP failed

Form: (NOOP)

Expected values: 

Actual value: NIL.

 DEFCFUN.VARARGS.DOCSTRINGS DEFCFUN.VARARGS.CHAR DEFCFUN.VARARGS.SHORT

 DEFCFUN.VARARGS.INT DEFCFUN.VARARGS.LONG

Test DEFCFUN.VARARGS.FLOAT failed

Form: (WITH-FOREIGN-POINTER-AS-STRING (S 100) (SPRINTF S "%.2f" :FLOAT
(FLOAT PI)))

Expected value: "3.14"

Actual value: "f".

Test DEFCFUN.VARARGS.DOUBLE failed

Form: (WITH-FOREIGN-POINTER-AS-STRING (S 100) (SPRINTF S "%.2f" :DOUBLE
(FLOAT PI 1.0D0)))

Expected value: "3.14"

Actual value: "f".

 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: -474122548.

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: 4968426957827221156.

 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: 75.36D0.

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: 120.0.

 CALLBACKS.CHAR CALLBACKS.UNSIGNED-CHAR CALLBACKS.SHORT
CALLBACKS.UNSIGNED-SHORT

 CALLBACKS.INT CALLBACKS.UNSIGNED-INT CALLBACKS.LONG CALLBACKS.UNSIGNED-LONG

 CALLBACKS.LONG-LONG 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

 CALLBACKS.STRING-NOT-DOCSTRING CALLBACKS.NIL-FOR-NULL CALLBACKS.QSORT

 CALLBACKS.VOID CALLBACKS.FUNCALL.1

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.

Test CALLBACKS.BFF.1 failed

Form: (CALL-SUM-127-NO-LL (CALLBACK SUM-127-NO-LL))

Expected value: 2008547941

Actual value: #<SIMPLE-ERROR #x2100EEBBAD>.

Test CALLBACKS.BFF.2 failed

Form: (CALL-SUM-127 (CALLBACK SUM-127))

Expected value: 8166570665645582011

Actual value: #<SIMPLE-ERROR #x2100EEB6AD>.

 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: 75.36D0.

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: 0.0.

 CALLBACKS.UNINTERNED 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

Test FOREIGN-GLOBALS.REF.UNSIGNED-LONG failed

Form: *VAR-UNSIGNED-LONG*

Expected value: 4294967295

Actual value: 4767060209866637311.

 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.READ-ONLY.1 DEFCVAR.DOCSTRING 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

 WITH-FOREIGN-POINTER.CONSTANT-SIZE 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 POINTER.NULL FOREIGN-POINTER-TYPE.NIL 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

 POINTERP.3 POINTERP.4 POINTERP.5 POINTERP.6 MEM-REF.SETF.1

 POINTER-EQ.NON-POINTERS.1 POINTER-EQ.NON-POINTERS.2

 NULL-POINTER-P.NON-POINTER.1 NULL-POINTER-P.NON-POINTER.2

 NULL-POINTER-P.NON-POINTER.3 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:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghij
klmnopqrstuvwxyz{|}~"

                 190

Actual values: ""

               190.

 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: #<SIMPLE-ERROR #x2100D3DC5D>.

 STRING.ENCODINGS.DEFAULT STRUCT.1

Test STRUCT.2 failed

Form: (WITH-FOREIGN-OBJECT (TV 'TIMEVAL) (SETF (FOREIGN-SLOT-VALUE TV
'TIMEVAL 'TV-SECS) 0) (SETF (FOREIGN-SLOT-VALUE TV 'TIMEVAL 'TV-USECS) 1)
(VALUES (FOREIGN-SLOT-VALUE TV 'TIMEVAL 'TV-SECS) (FOREIGN-SLOT-VALUE TV
'TIMEVAL 'TV-USECS)))

Expected values: 0

                 1

Actual values: 4294967296

               1.

Test STRUCT.3 failed

Form: (WITH-FOREIGN-OBJECT (TV 'TIMEVAL) (WITH-FOREIGN-SLOTS ((TV-SECS
TV-USECS) TV TIMEVAL) (SETF TV-SECS 100 TV-USECS 200) (VALUES TV-SECS
TV-USECS)))

Expected values: 100

                 200

Actual values: 858993459300

               200.

 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

Test STRUCT-WRAPPER.1 failed

Form: (WITH-EXAMPLE-TIMEVAL PTR (LET ((OBJ (MAKE-INSTANCE 'TIMEVAL :POINTER
PTR))) (VALUES (TIMEVAL-TV-SECS OBJ) (TIMEVAL-TV-USECS OBJ))))

Expected values: 42

                 1984

Actual values: 8521215115306

               1984.

Test STRUCT-WRAPPER.2 failed

Form: (WITH-EXAMPLE-TIMEVAL PTR (LET ((OBJ (MAKE-INSTANCE 'TIMEVAL2 :POINTER
PTR))) (TIMEVAL2-TV-SECS OBJ)))

Expected value: 42

Actual value: 8521215115306.

 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

Test FOREIGN-SYMBOL-POINTER.1 failed

Form: (COMPARE-AGAINST-ABS (FOREIGN-SYMBOL-POINTER "abs"))

Expected value: T

Actual value: NIL.

 FOREIGN-SYMBOL-POINTER.2 LIBRARY.ERROR.1 LIBRARY.T-CLAUSE
SHAREABLE-VECTOR.1

 SHAREABLE-VECTOR.2

25 out of 235 total tests failed: FUNCALL.VARARGS.DOUBLE, FUNCALL.DOUBLE26,
FUNCALL.FLOAT26, 

   DEFCFUN.NOOP, DEFCFUN.VARARGS.FLOAT, DEFCFUN.VARARGS.DOUBLE,
DEFCFUN.BFF.1, 

   DEFCFUN.BFF.2, DEFCFUN.DOUBLE26, DEFCFUN.FLOAT26, CALLBACKS.FLOAT, 

   CALLBACKS.FUNCALL.2, CALLBACKS.BFF.1, CALLBACKS.BFF.2, 

   CALLBACKS.DOUBLE26.FUNCALL, CALLBACKS.FLOAT26, CALLBACKS.FLOAT26.FUNCALL,


   FOREIGN-GLOBALS.REF.UNSIGNED-LONG, STRING.ENCODING.UTF-16.BASIC, 

   STRING.ENCODINGS.ALL.BASIC, STRUCT.2, STRUCT.3, STRUCT-WRAPPER.1, 

   STRUCT-WRAPPER.2, FOREIGN-SYMBOL-POINTER.1.

20 unexpected failures: FUNCALL.VARARGS.DOUBLE, 

   FUNCALL.DOUBLE26, FUNCALL.FLOAT26, DEFCFUN.VARARGS.FLOAT, 

   DEFCFUN.VARARGS.DOUBLE, DEFCFUN.BFF.1, DEFCFUN.BFF.2, DEFCFUN.DOUBLE26, 

   DEFCFUN.FLOAT26, CALLBACKS.FLOAT, CALLBACKS.FUNCALL.2, 

   CALLBACKS.DOUBLE26.FUNCALL, CALLBACKS.FLOAT26, CALLBACKS.FLOAT26.FUNCALL,


   FOREIGN-GLOBALS.REF.UNSIGNED-LONG, STRUCT.2, STRUCT.3, STRUCT-WRAPPER.1, 

   STRUCT-WRAPPER.2, FOREIGN-SYMBOL-POINTER.1.

;;; running tests (compiled)

Doing 235 pending tests of 235 tests total.

 FUNCALL.CHAR FUNCALL.INT.1 FUNCALL.INT.2 FUNCALL.LONG FUNCALL.LONG-LONG

 FUNCALL.FLOAT FUNCALL.DOUBLE FUNCALL.STRING.1 FUNCALL.STRING.2
FUNCALL.STRING.3

 FUNCALL.VARARGS.CHAR FUNCALL.VARARGS.INT FUNCALL.VARARGS.LONG

Test FUNCALL.VARARGS.DOUBLE failed

Form: (WITH-FOREIGN-POINTER-AS-STRING (S 100) (SETF (MEM-REF S :CHAR) 0)
(FOREIGN-FUNCALL "sprintf" :POINTER S :STRING "%.2f" :DOUBLE (COERCE PI
'DOUBLE-FLOAT) :INT))

Expected value: "3.14"

Actual value: "f".

 FUNCALL.VARARGS.STRING

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: 69.08D0.

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.5589412E+37.

 FUNCALL.F-S-P.1 FUNCALL.NIL-SKIP FUNCALL.POINTER-NOT-NIL DEFCFUN.CHAR

 DEFCFUN.DOCSTRING DEFCFUN.INT DEFCFUN.LONG DEFCFUN.LONG-LONG DEFCFUN.FLOAT

 DEFCFUN.DOUBLE DEFCFUN.STRING.1 DEFCFUN.STRING.2 DEFCFUN.STRING.3

 DEFCFUN.NOARGS

Test DEFCFUN.NOOP failed

Form: (NOOP)

Expected values: 

Actual value: NIL.

 DEFCFUN.VARARGS.DOCSTRINGS DEFCFUN.VARARGS.CHAR DEFCFUN.VARARGS.SHORT

 DEFCFUN.VARARGS.INT DEFCFUN.VARARGS.LONG

Test DEFCFUN.VARARGS.FLOAT failed

Form: (WITH-FOREIGN-POINTER-AS-STRING (S 100) (SPRINTF S "%.2f" :FLOAT
(FLOAT PI)))

Expected value: "3.14"

Actual value: "f".

Test DEFCFUN.VARARGS.DOUBLE failed

Form: (WITH-FOREIGN-POINTER-AS-STRING (S 100) (SPRINTF S "%.2f" :DOUBLE
(FLOAT PI 1.0D0)))

Expected value: "3.14"

Actual value: "f".

 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: -474122548.

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: 4968426957827221156.

 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: 75.36D0.

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: 120.0.

 CALLBACKS.CHAR CALLBACKS.UNSIGNED-CHAR CALLBACKS.SHORT
CALLBACKS.UNSIGNED-SHORT

 CALLBACKS.INT CALLBACKS.UNSIGNED-INT CALLBACKS.LONG CALLBACKS.UNSIGNED-LONG

 CALLBACKS.LONG-LONG 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

 CALLBACKS.STRING-NOT-DOCSTRING CALLBACKS.NIL-FOR-NULL CALLBACKS.QSORT

 CALLBACKS.VOID CALLBACKS.FUNCALL.1

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.

Test CALLBACKS.BFF.1 failed

Form: (CALL-SUM-127-NO-LL (CALLBACK SUM-127-NO-LL))

Expected value: 2008547941

Actual value: #<SIMPLE-ERROR #x2100DF17DD>.

Test CALLBACKS.BFF.2 failed

Form: (CALL-SUM-127 (CALLBACK SUM-127))

Expected value: 8166570665645582011

Actual value: #<SIMPLE-ERROR #x2100DEF61D>.

 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: 69.08D0.

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: -2.0.

 CALLBACKS.UNINTERNED 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

Test FOREIGN-GLOBALS.REF.UNSIGNED-LONG failed

Form: *VAR-UNSIGNED-LONG*

Expected value: 4294967295

Actual value: 4767060209866637311.

 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.READ-ONLY.1 DEFCVAR.DOCSTRING 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

 WITH-FOREIGN-POINTER.CONSTANT-SIZE 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 POINTER.NULL FOREIGN-POINTER-TYPE.NIL 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

 POINTERP.3 POINTERP.4 POINTERP.5 POINTERP.6 MEM-REF.SETF.1

 POINTER-EQ.NON-POINTERS.1 POINTER-EQ.NON-POINTERS.2

 NULL-POINTER-P.NON-POINTER.1 NULL-POINTER-P.NON-POINTER.2

 NULL-POINTER-P.NON-POINTER.3 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:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghij
klmnopqrstuvwxyz{|}~"

                 190

Actual values: ""

               190.

 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: #<SIMPLE-ERROR #x2100E8629D>.

 STRING.ENCODINGS.DEFAULT STRUCT.1

Test STRUCT.2 failed

Form: (WITH-FOREIGN-OBJECT (TV 'TIMEVAL) (SETF (FOREIGN-SLOT-VALUE TV
'TIMEVAL 'TV-SECS) 0) (SETF (FOREIGN-SLOT-VALUE TV 'TIMEVAL 'TV-USECS) 1)
(VALUES (FOREIGN-SLOT-VALUE TV 'TIMEVAL 'TV-SECS) (FOREIGN-SLOT-VALUE TV
'TIMEVAL 'TV-USECS)))

Expected values: 0

                 1

Actual values: 4294967296

               1.

Test STRUCT.3 failed

Form: (WITH-FOREIGN-OBJECT (TV 'TIMEVAL) (WITH-FOREIGN-SLOTS ((TV-SECS
TV-USECS) TV TIMEVAL) (SETF TV-SECS 100 TV-USECS 200) (VALUES TV-SECS
TV-USECS)))

Expected values: 100

                 200

Actual values: 858993459300

               200.

 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

Test STRUCT-WRAPPER.1 failed

Form: (WITH-EXAMPLE-TIMEVAL PTR (LET ((OBJ (MAKE-INSTANCE 'TIMEVAL :POINTER
PTR))) (VALUES (TIMEVAL-TV-SECS OBJ) (TIMEVAL-TV-USECS OBJ))))

Expected values: 42

                 1984

Actual values: 8521215115306

               1984.

Test STRUCT-WRAPPER.2 failed

Form: (WITH-EXAMPLE-TIMEVAL PTR (LET ((OBJ (MAKE-INSTANCE 'TIMEVAL2 :POINTER
PTR))) (TIMEVAL2-TV-SECS OBJ)))

Expected value: 42

Actual value: 8521215115306.

 UNION.1 ENUM.1 ENUM.2 ENUM.3 BITFIELD.1 BITFIELD.2

%rax = 0x000000c600000000      %r8  = 0x0000000000427410

 

%rcx = 0x000000ffffffffff      %r9  = 0x0000005c0010002e

 

%rdx = 0x0000000000427400      %r10 = 0x0000000000000000

 

%rbx = 0x00000005b3da9550      %r11 = 0x0000000000000202

 

%rsp = 0x0000000002b2ee30      %r12 = 0x0000000002b2f4e8

 

%rbp = 0x0000000000000000      %r13 = 0x000000000000000b

 

%rsi = 0x0000000000420000      %r14 = 0x000000014029a38e

 

%rdi = 0x0000000000427410      %r15 = 0x0000002100f4359d

 

%rip = 0x0000000077241c30   %rflags = 0x00010206

 

Exception on foreign stack

 

Exception occurred while executing foreign code

? for help

[3420] Clozure CL kernel debugger:

 

 

Does someone know why this happens?

 

Thank you Louis.

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cffi-devel/attachments/20100730/4cf9613b/attachment.html>


More information about the cffi-devel mailing list