Index: /trunk/source/level-0/ARM/arm-def.lisp
===================================================================
--- /trunk/source/level-0/ARM/arm-def.lisp	(revision 14477)
+++ /trunk/source/level-0/ARM/arm-def.lisp	(revision 14478)
@@ -407,6 +407,6 @@
                (:unsigned-fullword (%get-unsigned-long result 0))
                (:signed-fullword (%get-signed-long result 0))
-               (:unsigned-doubleword (%get-natural result 0))
-               (:signed-doubleword (%get-signed-natural result 0))
+               (:unsigned-doubleword (%%get-unsigned-longlong result 0))
+               (:signed-doubleword (%%get-signed-longlong result 0))
                (:single-float (%get-single-float result 0))
                (:double-float (%get-double-float result 0))))))))))
Index: /trunk/source/lib/ffi-linuxarm.lisp
===================================================================
--- /trunk/source/lib/ffi-linuxarm.lisp	(revision 14477)
+++ /trunk/source/lib/ffi-linuxarm.lisp	(revision 14478)
@@ -120,5 +120,5 @@
                             ((typep argtype 'foreign-single-float-type)
                              (setq nextoffset (+ offset 4))
-                             '%get-single-float-from-double-ptr)
+                             '%get-single-float)
                             ((typep argtype 'foreign-double-float-type)
                              (when (logtest offset 4)
@@ -167,4 +167,5 @@
                   (setq offset nextoffset))))))))
 
+
 (defun arm-linux::generate-callback-return-value (stack-ptr fp-args-ptr result return-type struct-return-arg)
   (declare (ignore fp-args-ptr))
@@ -182,5 +183,6 @@
                 (:signed-doubleword '%%get-signed-longlong)
                 (:unsigned-doubleword '%%get-unsigned-longlong)
-                ((:double-float :single-float) '%get-double-float)
+                (:double-float '%get-double-float)
+                (:single-float '%get-single-float)
                 (t '%get-long)) ,stack-ptr ,offset) ,result))))