Changeset 5799

Timestamp:

Jan 28, 2007, 2:21:17 AM (18 years ago)

Author:

Gary Byers

Message:

Remove some typos. Need to pass dynamic-extent, other decls separately.

File:

• trunk/ccl/lib/ffi-linuxppc32.lisp (modified) (2 diffs)

trunk/ccl/lib/ffi-linuxppc32.lisp

@@ -172 +172 @@
                                              (setq bias 2)
                                              (if signed
-                                               '%get-signed-word '
+                                               '%get-signed-word 
                                                '%get-unsigned-word))
                                             ((<= bits 32)
                                              (if signed
-                                               '%get-signed-long '
+                                               '%get-signed-long 
                                                '%get-unsigned-long))
                                             (t
@@ -188 +188 @@
                     (dynamic-extent-names name))
                   (setq gpr nextgpr fpr nextfpr offset nextoffset))))))))
-                
+
+(defun linux32::generate-callback-return-value (stack-ptr result return-type struct-return-arg)
+  (unless (eq return-type *void-foreign-type*)
+    (let* ((return-type-keyword
+            (if (typep return-type 'foreign-record-type)
+              (progn
+                (setq result `(%%get-unsigned-longlong ,struct-return-arg 0))
+                :unsigned-doubleword)
+              (foreign-type-to-representation-type return-type)))
+           (offset (case return-type-keyword
+                   ((:single-float :double-float)
+                    8)
+                   (t 0))))
+      `(setf (,
+              (case return-type-keyword
+                (:address '%get-ptr)
+                (:signed-doubleword '%%get-signed-longlong)
+                (:unsigned-doubleword '%%get-unsigned-longlong)
+                ((:double-float :single-float) '%get-double-float)
+                (t '%get-long)) ,stack-ptr ,offset) ,result))))
+