Changeset 5908


Ignore:
Timestamp:
Feb 14, 2007, 12:34:04 AM (15 years ago)
Author:
gb
Message:

return-value pointers in OPEN-PTY-PAIR are just 32-bit ints, not "long".

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/library/pty.lisp

    r5878 r5908  
    2626
    2727(defun open-pty-pair ()
    28   (rlet ((alphap :unsigned-long 0)
    29          (betap :unsigned-long 0))
     28  (rlet ((alphap :unsigned 0)
     29         (betap :unsigned 0))
    3030    (let* ((status (#_openpty alphap betap (%null-ptr) (%null-ptr) (%null-ptr))))
    3131      (if (eql status 0)
    32         (values (pref alphap :unsigned-long) (pref betap :unsigned-long))
     32        (values (pref alphap :unsigned) (pref betap :unsigned))
    3333        (%errno-disp (%get-errno))))))
    3434
Note: See TracChangeset for help on using the changeset viewer.