[GHC] #5013: sporadic failures during compilation under solaris

[GHC]

#5013: sporadic failures during compilation under solaris
----------------------------------+---------------------------
        Reporter:  maeder         |            Owner:
            Type:  bug            |           Status:  new
        Priority:  normal         |        Milestone:  7.6.2
       Component:  Compiler       |          Version:  7.6.1
      Resolution:                 |         Keywords:
Operating System:  Solaris        |     Architecture:  x86
 Type of failure:  Runtime crash  |       Difficulty:  Unknown
       Test Case:                 |       Blocked By:
        Blocking:                 |  Related Tickets:
----------------------------------+---------------------------

Comment (by maeder):

 The patches are just these (as described in comment:24)

 {{{
 -bash-3.2$ diff -u libraries/unix/System/Posix/Files.hsc~
 libraries/unix/System/Posix/Files.hsc
 --- libraries/unix/System/Posix/Files.hsc~      Di Nov  5 15:27:50 2013
 +++ libraries/unix/System/Posix/Files.hsc       Di Nov  5 15:32:50 2013
 @@ -185,7 +185,7 @@
    fp <- mallocForeignPtrBytes (#const sizeof(struct stat))
    withForeignPtr fp $ \p ->
      withFilePath path $ \s ->
 -      throwErrnoPathIfMinus1_ "getFileStatus" path (c_stat s p)
 +      throwErrnoPathIfMinus1Retry_ "getFileStatus" path (c_stat s p)
    return (FileStatus fp)

  -- | Acts as 'getFileStatus' except when the 'FilePath' refers to a
 symbolic
 -bash-3.2$ diff -u libraries/unix/System/Posix/Files.hsc~
 libraries/unix/System/Posix/Files.hsc
 -bash-3.2$ diff -u libraries/unix/System/Posix/Files/ByteString.hsc~
 libraries/unix/System/Posix/Files/ByteString.hsc
 --- libraries/unix/System/Posix/Files/ByteString.hsc~   Di Nov  5 15:28:33
 2013
 +++ libraries/unix/System/Posix/Files/ByteString.hsc    Di Nov  5 15:33:26
 2013
 @@ -167,7 +167,7 @@
    fp <- mallocForeignPtrBytes (#const sizeof(struct stat))
    withForeignPtr fp $ \p ->
      withFilePath path $ \s ->
 -      throwErrnoPathIfMinus1_ "getFileStatus" path (c_stat s p)
 +      throwErrnoPathIfMinus1Retry_ "getFileStatus" path (c_stat s p)
    return (FileStatus fp)

  -- | Acts as 'getFileStatus' except when the 'RawFilePath' refers to a
 symbolic
 }}}

 These files contain trailing white spaces (that my editor deleted
 automatically).

--
Ticket URL: <http://ghc.haskell.org/trac/ghc/ticket/5013#comment:30>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler