Hey.
Here is a little program that produces some interesting results
on at least 2 platforms. Both systems were using 6.0.1.
This (silly) program works on x86-linux. It produces an illegal
instruction SIGILL on a sparc, and there is some OS-related
problem on FreeBSD and OpenBSD (which is my issue, I know). The
sparc problem is the more interesting of the two:
$ uname -msr
SunOS 5.6 sun4u
$ ghc -package unix bug.hs
$ ./a.out
zsh: illegal hardware instruction (core dumped) ./a.out
$ gdb a.out
GNU gdb 5.0
[..]
This GDB was configured as "sparc-sun-solaris2.6"...
(gdb) run
Starting program: /tmp_amd/pill0/import/1/dons/a.out
Program received signal SIGILL, Illegal instruction.
0x12050 in getgrnam_r ()
And on FreeBSD:
$ uname -msr
FreeBSD 5.0-RELEASE i386
$ ghc -package unix bug.hs
$ ./a.out
Fail: System.Posix.User.getGroupEntryForName: not supported
And on OpenBSD:
$ uname -msr
OpenBSD 3.4 i386
$ ghc -package unix bug.hs
$ ./a.out
Fail: unsupported operation
Action: getGroupEntryForName
Reason: Result too large
This last entry doesn't produce anything interesting in a quick
gdb run. I don't have time to debug this today, but thought it
useful to record this data point. Perhaps there should be a
testsuite case for getgrnam_r() (I don't recall seeing one) ?
Ciao,
Don
The program:
------------------------------------------------------------------------
module Main(main) where
import System.IO
import System.Posix.User
import System.Posix.Files
main = do
let file = "/tmp/f"
writeFile file "abc"
chgrp "nobody" file
chgrp :: String -> String -> IO ()
chgrp group file = do
user <- getRealUserID
(GroupEntry _ gid _ ) <- getGroupEntryForName group
setOwnerAndGroup file user gid
_______________________________________________
Glasgow-haskell-bugs mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/glasgow-haskell-bugs
