Changeset 9139


Ignore:
Timestamp:
Apr 12, 2008, 9:32:29 AM (11 years ago)
Author:
gb
Message:

Need explicit return value in FF-CALL.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/examples/opengl-ffi.lisp

    r5726 r9139  
    135135       ;;; Set the OSX Window Server's notion of the name of the
    136136       ;;; current process.
    137        (%stack-block ((psn 8))
    138          (ccl::external-call "_GetCurrentProcess" :address psn)
     137       (rlet ((psn #>ProcessSerialNumber))
     138         (#_GetCurrentProcess psn)
    139139         (with-cstrs ((name "simple OpenGL example"))
    140            (ccl::external-call "_CPSSetProcessName" :address psn :address name))))
     140           (ccl::external-call "_CPSSetProcessName" :address psn :address name :void))))
    141141     (main)))
    142142
Note: See TracChangeset for help on using the changeset viewer.