Changeset 9139 for trunk/source/examples/opengl-ffi.lisp

Timestamp:

Apr 12, 2008, 9:32:29 AM (12 years ago)

Author:

gb

Message:

Need explicit return value in FF-CALL.

File:

• trunk/source/examples/opengl-ffi.lisp (modified) (1 diff)

trunk/source/examples/opengl-ffi.lisp

@@ -135 +135 @@
        ;;; Set the OSX Window Server's notion of the name of the
        ;;; current process.
-       (%stack-block ((psn 8))
-         (ccl::external-call "_GetCurrentProcess" :address psn)
+       (rlet ((psn #>ProcessSerialNumber))
+         (#_GetCurrentProcess psn)
          (with-cstrs ((name "simple OpenGL example"))
-           (ccl::external-call "_CPSSetProcessName" :address psn :address name))))
+           (ccl::external-call "_CPSSetProcessName" :address psn :address name :void))))
      (main)))