Changeset 11632


Ignore:
Timestamp:
Jan 20, 2009, 9:58:06 PM (11 years ago)
Author:
gb
Message:

UNTESTED: use OPEN-DEBUG-OUTPUT to map kernel's 'dbgout' stream to
socket fd.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/start.lisp

    r11618 r11632  
    200200                         (#_close child-socket)
    201201                         (when (eq t (ccl::check-pid pid))
    202                            (flet ((set-stdio-file-fd (f fd)
    203                                     (setf (pref f #>FILE._file) fd))
    204                                   (set-lisp-stream-fd (stream fd)
     202                           (flet ((set-lisp-stream-fd (stream fd)
    205203                                    (setf (ccl::ioblock-device (ccl::stream-ioblock stream t))
    206204                                          fd)))
    207                              (set-stdio-file-fd (%get-ptr (foreign-symbol-address "___stdinp")) parent-socket)
    208                              (set-stdio-file-fd (%get-ptr (foreign-symbol-address "___stdoutp")) parent-socket)
    209                              (set-stdio-file-fd (%get-ptr (foreign-symbol-address "___stderrp")) parent-socket)
     205                             (ff-call (%kernel-import 'target::open-debug-output)
     206                                      :int parent-socket
     207                                      :int)
     208                             (#_dup2 parent-socket 0)
    210209                             (set-lisp-stream-fd ccl::*stdin* parent-socket)
    211210                             (set-lisp-stream-fd ccl::*stdout* parent-socket))
Note: See TracChangeset for help on using the changeset viewer.