projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
1db94ec
)
[project @ 2000-10-27 14:55:01 by simonmar]
author
simonmar
<unknown>
Fri, 27 Oct 2000 14:55:01 +0000
(14:55 +0000)
committer
simonmar
<unknown>
Fri, 27 Oct 2000 14:55:01 +0000
(14:55 +0000)
don't fake the processID
ghc/compiler/utils/Util.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/utils/Util.lhs
b/ghc/compiler/utils/Util.lhs
index
471089d
..
3a0da47
100644
(file)
--- a/
ghc/compiler/utils/Util.lhs
+++ b/
ghc/compiler/utils/Util.lhs
@@
-73,6
+73,9
@@
import FastTypes
#if __GLASGOW_HASKELL__ <= 408
import Exception ( catchIO, justIoErrors, raiseInThread )
#endif
#if __GLASGOW_HASKELL__ <= 408
import Exception ( catchIO, justIoErrors, raiseInThread )
#endif
+#ifndef mingw32_TARGET_OS
+import Posix
+#endif
infixr 9 `thenCmp`
\end{code}
infixr 9 `thenCmp`
\end{code}
@@
-727,7
+730,6
@@
throwTo = raiseInThread
foreign import "_getpid" myGetProcessID :: IO Int
#else
myGetProcessID :: IO Int
foreign import "_getpid" myGetProcessID :: IO Int
#else
myGetProcessID :: IO Int
-myGetProcessID = do hPutStrLn stderr "Warning:faking process ID in myGetProcessID"
- return 12345
+myGetProcessID = Posix.getProcessID
#endif
\end{code}
#endif
\end{code}