[project @ 2003-09-26 09:26:13 by panne]

Saving/restoring termios is only done for GHC

diff --git a/System/Posix/Internals.hs b/System/Posix/Internals.hs
index d02b02c..464b6a7 100644 (file)
--- a/System/Posix/Internals.hs
+++ b/System/Posix/Internals.hs
@@ -210,6 +210,7 @@ tcSetAttr fd fun = do
        throwErrnoIfMinus1Retry "tcSetAttr"
           (c_tcgetattr (fromIntegral fd) p_tios)
 
+#ifdef __GLASGOW_HASKELL__
        -- Save a copy of termios, if this is a standard file descriptor.
        -- These terminal settings are restored in hs_exit().
        when (fd <= 2) $ do
@@ -218,6 +219,7 @@ tcSetAttr fd fun = do
             saved_tios <- mallocBytes sizeof_termios
             copyBytes saved_tios p_tios sizeof_termios
             set_saved_termios fd saved_tios
+#endif
 
        -- tcsetattr() when invoked by a background process causes the process
        -- to be sent SIGTTOU regardless of whether the process has TOSTOP set
@@ -235,11 +237,13 @@ tcSetAttr fd fun = do
             c_sigprocmask const_sig_setmask p_old_sigset nullPtr
             return r
 
+#ifdef __GLASGOW_HASKELL__
 foreign import ccall unsafe "HsBase.h __hscore_get_saved_termios"
    get_saved_termios :: Int -> IO (Ptr CTermios)
 
 foreign import ccall unsafe "HsBase.h __hscore_set_saved_termios"
    set_saved_termios :: Int -> (Ptr CTermios) -> IO ()
+#endif
 
 #else