Changeset 5856

Timestamp:

Jan 31, 2007, 9:47:07 PM (18 years ago)

Author:

Gary Byers

Message:

Needed ,@ to return assign structure components from registers.

File:

• trunk/ccl/lib/ffi-darwinppc64.lisp (modified) (1 diff)

trunk/ccl/lib/ffi-darwinppc64.lisp

@@ -334 +334 @@
                   (%stack-block ((,regbuf (+ (* 8 8) (* 8 13))))
                     ,call
-                    ,(darwin64::struct-from-regbuf-values result-temp struct-result-type regbuf)))
+                    ,@(darwin64::struct-from-regbuf-values result-temp struct-result-type regbuf)))
                 call))))))))