- ghc-devs - Haskell.org

can a StgRhs have NoCCS when -prof is provided?
by Ömer Sinan Ağacan 05 Jun '14

05 Jun '14

Hi all, Can a StgRhs have `NoCCS` as cost-centre stack when -prof is provided while compiling? Or is it always oneOf [CurrentCCS, DontCareCCS, SingletonCCS]? I presume that since we have CCS constructor "DontCareCCS" and CCS field of StgRhs constructors are not `Maybe CostCentreStack` (so they're not optional), when -prof is provided CCS fields should not be filled with NoCCS(if we still don't care about CCS for some reason, it should be DontCareCCS) but I just wanted to make sure. Thanks. --- Ömer Sinan Ağacan http://osa1.net

2 1

Expose Other Parsers for GHC API
by Andrew Gibiansky 04 Jun '14

04 Jun '14

Hello, I would like to be able to use the GHC API for parsing. Right now this is in the Parser and Lexer modules: Parser: http://www.haskell.org/ghc/docs/7.8.2/html/libraries/ghc-7.8.2/Parser.html Lexer: http://www.haskell.org/ghc/docs/7.8.2/html/libraries/ghc-7.8.2/Lexer.html GHC currently exposes only a few parsers here. I'd like to make a few modifications: 1. Expose a few more parsers than currently are exposed in the Parser module. In particular, I'd like import statements, type signatures, declarations, and expressions, at least, in addition to what's already there. 2. Re-export some things from Lexer from Parser, since they're reused. This would include unP, PState, and the 2-3 other core things you *have* to use in order to use the GHC Parser. 3. Add some Haddock documentation to the top of the Parser module describing how to use it, since the types themselves are pretty opaque here. I think (1) and (3) are definitely a good idea, not so sure about (2) though IMHO it would be convenient for using the Parser. Would this make for an acceptable patch? Thoughts? -- Andrew Gibiansky

3 2

[PATCH] Fix T5435_dyn_asm on mingw and T8832 on 32-bit architecture
by transfuturist 04 Jun '14

04 Jun '14

--- testsuite/tests/rts/all.T | 3 +++ testsuite/tests/simplCore/should_compile/all.T | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/testsuite/tests/rts/all.T b/testsuite/tests/rts/all.T index a56a3f3..c52cea0 100644 --- a/testsuite/tests/rts/all.T +++ b/testsuite/tests/rts/all.T @@ -141,6 +141,9 @@ def checkDynAsm(actual_file, normaliser): elif actual == ['ctors1', 'ctors2', 'initArray1', 'initArray2', 'success']: if_verbose(1, 'T5435_dyn_asm detected old-style dlopen, see #8458') return 1 + elif opsys('mingw32'): + if actual == ['ctors1', 'ctors2', 'success']: + return 1 else: if_verbose(1, 'T5435_dyn_asm failed with %s, see all.T for details' % actual) return 0 diff --git a/testsuite/tests/simplCore/should_compile/all.T b/testsuite/tests/simplCore/should_compile/all.T index 616b6cc..ffc7131 100644 --- a/testsuite/tests/simplCore/should_compile/all.T +++ b/testsuite/tests/simplCore/should_compile/all.T @@ -198,7 +198,8 @@ test('T5996', ['$MAKE -s --no-print-directory T5996']) test('T8537', normal, compile, ['']) test('T8832', - extra_clean(['T8832.hi', 'T8832a.o']), + [extra_clean(['T8832.hi', 'T8832a.o']), + when(wordsize(32),expect_broken(8832))], run_command, ['$MAKE -s --no-print-directory T8832']) test('T8848', only_ways(['optasm']), compile, ['-ddump-rule-firings']) -- 1.8.4.msysgit.0

2 1

Validate failures
by Joachim Breitner 03 Jun '14

03 Jun '14

Hi, I’m seeing these failures on travis. Anyone feeling responsible? master: Actual stderr output differs from expected: --- /dev/null 2014-05-03 18:30:46.325826237 +0000 +++ ./ffi/should_compile/cc004.comp.stderr 2014-05-03 19:08:47.864969234 +0000 @@ -0,0 +1,73 @@ + +cc004.hs:16:1: Warning: + the 'stdcall' calling convention is unsupported on this platform, + treating as ccall + When checking declaration: + foreign import stdcall safe "static p" m_stdcall + :: StablePtr a -> IO (StablePtr b) + +cc004.hs:21:1: Warning: + the 'stdcall' calling convention is unsupported on this platform, + treating as ccall + When checking declaration: + foreign import stdcall safe "static my_sin" my_sin + :: Double -> IO Double + +cc004.hs:22:1: Warning: + the 'stdcall' calling convention is unsupported on this platform, + treating as ccall + When checking declaration: + foreign import stdcall safe "static my_cos" my_cos + :: Double -> IO Double + +cc004.hs:24:1: Warning: + the 'stdcall' calling convention is unsupported on this platform, + treating as ccall + When checking declaration: + foreign import stdcall safe "static m1" m8 :: IO Int8 + +cc004.hs:25:1: Warning: + the 'stdcall' calling convention is unsupported on this platform, + treating as ccall + When checking declaration: + foreign import stdcall safe "static m2" m16 :: IO Int16 + +cc004.hs:26:1: Warning: + the 'stdcall' calling convention is unsupported on this platform, + treating as ccall + When checking declaration: + foreign import stdcall safe "static m3" m32 :: IO Int32 + +cc004.hs:27:1: Warning: + the 'stdcall' calling convention is unsupported on this platform, + treating as ccall + When checking declaration: + foreign import stdcall safe "static m4" m64 :: IO Int64 + +cc004.hs:29:1: Warning: + the 'stdcall' calling convention is unsupported on this platform, + treating as ccall + When checking declaration: + foreign import stdcall safe "dynamic" d8 + :: FunPtr (IO Int8) -> IO Int8 + +cc004.hs:30:1: Warning: + the 'stdcall' calling convention is unsupported on this platform, + treating as ccall + When checking declaration: + foreign import stdcall safe "dynamic" d16 + :: FunPtr (IO Int16) -> IO Int16 + +cc004.hs:31:1: Warning: + the 'stdcall' calling convention is unsupported on this platform, + treating as ccall + When checking declaration: + foreign import stdcall safe "dynamic" d32 + :: FunPtr (IO Int32) -> IO Int32 + +cc004.hs:32:1: Warning: + the 'stdcall' calling convention is unsupported on this platform, + treating as ccall + When checking declaration: + foreign import stdcall safe "dynamic" d64 + :: FunPtr (IO Int64) -> IO Int64 *** unexpected failure for cc004(normal) and Wrong exit code (expected 0 , actual 1 ) Stdout: Stderr: cgrun051: OK *** unexpected failure for cgrun051(normal) (https://s3.amazonaws.com/archive.travis-ci.org/jobs/24347514/log.txt) ghc-7.8: Unexpected failures: annotations/should_compile/th annth_compunits [bad exit code] (normal) annotations/should_compile/th annth_make [bad stdout] (normal) Please merge 0fe726829d468badf830dd82bc296832d709733b into ghc-7.8 (this annotates the tests to require have_dynamic()) Greetings, Joachim -- Joachim “nomeata” Breitner mail(a)joachim-breitner.de • http://www.joachim-breitner.de/ Jabber: nomeata(a)joachim-breitner.de • GPG-Key: 0xF0FBF51F Debian Developer: nomeata(a)debian.org

3 5

Ptr type
by Simon Peyton Jones 03 Jun '14

03 Jun '14

Richard In GHC.Ptr we see type role Ptr representational data Ptr a = Ptr Addr# deriving (Eq, Ord) with no comments. Why is Ptr representational? In the same module we have castPtr, which unpacks and repacks a Ptr. If Ptr was phantom, we could use coerce. And that in turn would actually make a lot of code more efficient - there are lots of calls to castPtr. Simon

3 3

suspicious piece of code in RTS(Profiling.c) code
by Ömer Sinan Ağacan 03 Jun '14

03 Jun '14

Hi all, I recently found a suspicious piece of code in RTS code. * https://github.com/ghc/ghc/blob/master/rts/Profiling.c#L622 here it's checking that ccs is not EMPTY_STACK. * https://github.com/ghc/ghc/blob/master/includes/rts/prof/CCS.h#L96 here EMPTY_STACK is defined as NULL. Now weird part is that before the if-statement checks for `ccs != NULL` ccs is used to reach some of it's fields(for example, line 601 and 602). As far as I can see either we have a bug here or the if-statement is not necessary and we can move it's body to top level. Am I missing anything here? Thanks. --- Ömer Sinan Ağacan http://osa1.net

3 2

32-bit OSX
by Edsko de Vries 01 Jun '14

01 Jun '14

Hi guys, I have been trying to compile a 32-bit version ghc, versions 7.8 as well as HEAD, in a myriad of ways, bootstrapping with the 32-bit binary of 7.4 (which is the latest 32-bit binary available from haskell.org) but no matter which way I try, it always fails somewhere. I was trying this mostly just because I wanted to inspect the output of the code generator, but 32-bit OSX is listed as a tier 1 platform on https://ghc.haskell.org/trac/ghc/wiki/Platforms, so I expected this to be simple. Compiling normally (build flavour quick) eventually fails with a bus error, which somebody else seems to have got too -- although I have no idea who or what there were trying to do; I just found http://lpaste.net/99008 When I try to build with the quick-cross flavour, but using -fasm rather than -fllvm, for some reason building fails when it tries to call ghc-stage2; the quick-cross flavour sets Stage1Only = YES so this seems a bug to me. When using -fllvm it fails even sooner. I don't know if I'm doing this wrong, if I should file a bug, or whether we should record 32-bit OSX as unsupported. Edsko

1 0

Re: [GHC] #8736: GHCi doesn't load .dyn_o files appropriately
by George Colpitts 31 May '14

31 May '14

Please ignore my previous message, I was compiling with -DYNAMIC instead of -dynamic On Sat, May 31, 2014 at 12:39 PM, GHC <ghc-devs(a)haskell.org> wrote: > #8736: GHCi doesn't load .dyn_o files appropriately > -------------------------------------+------------------------------------ > Reporter: thoughtpolice | Owner: thoughtpolice > Type: bug | Status: new > Priority: high | Milestone: 7.8.3 > Component: Compiler | Version: 7.8.1-rc2 > Resolution: | Keywords: > Operating System: Unknown/Multiple | Architecture: Unknown/Multiple > Type of failure: None/Unknown | Difficulty: Unknown > Test Case: | Blocked By: > Blocking: | Related Tickets: > -------------------------------------+------------------------------------ > > Comment (by George): > > Replying to [comment:4 simonpj]: > > Summarising the behaviour. If you say `:load Foo` in GHCi > > * `Foo` was compiled with `-dynamic`: loads `Foo.o` > > * `Foo` was compiled without any dynamic flag: does not find object > files, so interprets. > > * `Foo` was compiled with `-dynamic-too`: fails as above. > > > > Not a release blocker. > > > > The first case > > > * `Foo` was compiled with `-dynamic`: loads `Foo.o` > > does not seem to be the case in 7.8.2, at least on the Mac where the .o > file does not get loaded > > {{{ > ghc --make -O2 -DYNAMIC pfp1.hs > [1 of 1] Compiling Main ( pfp1.hs, pfp1.o ) > Linking pfp1 ... > bash-3.2$ ghci -ignore-dot-ghci > GHCi, version 7.8.2: http://www.haskell.org/ghc/ :? for help > Loading package ghc-prim ... linking ... done. > Loading package integer-gmp ... linking ... done. > Loading package base ... linking ... done. > Prelude> :load pfp1 > [1 of 1] Compiling Main ( pfp1.hs, interpreted ) > Ok, modules loaded: Main. > }}} > > Should I file a bug? > > -- > Ticket URL: <http://ghc.haskell.org/trac/ghc/ticket/8736#comment:9> > GHC <http://www.haskell.org/ghc/> > The Glasgow Haskell Compiler >

1 0

segfault in RTS - can anyone help me tracking this bug down?
by Ömer Sinan Ağacan 30 May '14

30 May '14

Hi all, I'm suffering from a RTS bug(probably GC related) that makes making progress in my GSoC project impossible. I have very limited knowledge of GHC internals and I currently have no idea how to produce a minimal program that demonstrates the bug. I wrote how to reproduce it and gdb backtrace when segfault happens in a short blog post: http://osa1.net/posts/2014-05-27-worst-bug.html . As also written in the blog post, changing generation count of generational GC will makes the bug disappear in some cases, but it's not a solution. I also pasted backtrace output below for those who don't want to click links. GHC version used is 7.8.2. If anyone give me some pointers to understand what's going wrong or how can I produce a simple program that demonstrates the bug, I'd like to work on that. I'm basically stuck and I can't make any progress with this bug. Thanks, Ömer [ 5 of 202] Compiling GHC.Unicode[boot] ( GHC/Unicode.hs-boot, dist/build/GHC/Unicode.js_p_o-boot ) Detaching after fork from child process 3382. [ 6 of 202] Compiling GHC.IO[boot] ( GHC/IO.hs-boot, dist/build/GHC/IO.js_p_o-boot ) Detaching after fork from child process 3383. [ 7 of 202] Compiling GHC.Exception[boot] ( GHC/Exception.lhs-boot, dist/build/GHC/Exception.js_p_o-boot ) Detaching after fork from child process 3384. [ 51 of 202] Compiling GHC.Fingerprint[boot] ( GHC/Fingerprint.hs-boot, dist/build/GHC/Fingerprint.js_p_o-boot ) Detaching after fork from child process 3385. [ 55 of 202] Compiling GHC.IO.Exception[boot] ( GHC/IO/Exception.hs-boot, dist/build/GHC/IO/Exception.js_p_o-boot ) Detaching after fork from child process 3386. [ 75 of 202] Compiling Foreign.C.Types ( Foreign/C/Types.hs, dist/build/Foreign/C/Types.js_p_o ) Program received signal SIGSEGV, Segmentation fault. 0x000000000425d5c4 in LOOKS_LIKE_CLOSURE_PTR (p=0x0) at includes/rts/storage/ClosureMacros.h:258 258 includes/rts/storage/ClosureMacros.h: No such file or directory. (gdb) bt #0 0x000000000425d5c4 in LOOKS_LIKE_CLOSURE_PTR (p=0x0) at includes/rts/storage/ClosureMacros.h:258 #1 0x000000000425f776 in scavenge_mutable_list1 (bd=0x7fffe5c02a00, gen=0x4d1fd48) at rts/sm/Scav.c:1400 #2 0x000000000425fa13 in scavenge_capability_mut_Lists1 (cap=0x4cfe5c0 <MainCapability>) at rts/sm/Scav.c:1493 #3 0x0000000004256b66 in GarbageCollect (collect_gen=0, do_heap_census=rtsFalse, gc_type=2, cap=0x4cfe5c0 <MainCapability>) at rts/sm/GC.c:342 #4 0x00000000042454a3 in scheduleDoGC (pcap=0x7fffffffc198, task=0x4d32b60, force_major=rtsFalse) at rts/Schedule.c:1650 #5 0x0000000004243de4 in schedule (initialCapability=0x4cfe5c0 <MainCapability>, task=0x4d32b60) at rts/Schedule.c:553 #6 0x0000000004246436 in scheduleWaitThread (tso=0x7ffff6708d60, ret=0x0, pcap=0x7fffffffc2c0) at rts/Schedule.c:2346 #7 0x000000000423e9b4 in rts_evalLazyIO (cap=0x7fffffffc2c0, p=0x477f850, ret=0x0) at rts/RtsAPI.c:500 #8 0x0000000004241666 in real_main () at rts/RtsMain.c:63 #9 0x0000000004241759 in hs_main (argc=237, argv=0x7fffffffc448, main_closure=0x477f850, rts_config=...) at rts/RtsMain.c:114 #10 0x0000000000408ea7 in main ()

5 8

RE: [GHC] #9153: TcCoercible test is failing with context reduction stack overflow
by Simon Peyton Jones 30 May '14

30 May '14

Thanks for this. I've improved Note [Order of Coercible Instances] in TcInteract Generally, it's much better to give an actual, concrete example in the Note, and refer to the ticket for additional background. It took me a few minutes to re-read the long #9117 to reconstruct the example that precisely illustrates the Note. Simon | -----Original Message----- | From: ghc-tickets [mailto:ghc-tickets-bounces@haskell.org] On Behalf Of | GHC | Sent: 30 May 2014 01:35 | Cc: ghc-tickets(a)haskell.org | Subject: [GHC] #9153: TcCoercible test is failing with context reduction | stack overflow | | #9153: TcCoercible test is failing with context reduction stack overflow | ------------------------------------+----------------------------------- | ------------------------------------+-- | Reporter: ezyang | Owner: | Type: bug | Status: new | Priority: low | Milestone: | Component: Test Suite | Version: 7.9 | Keywords: | Operating System: | Unknown/Multiple | Architecture: Unknown/Multiple | Type of failure: None/Unknown | Difficulty: Unknown | Test Case: | Blocked By: | Blocking: | Related Tickets: | | ------------------------------------+----------------------------------- | ------------------------------------+-- | Here is the error: | | {{{ | TcCoercible.hs:62:12: | Context reduction stack overflow; size = 21 | Use -fcontext-stack=N to increase stack size to N | Coercible Int Int | In the expression: coerce | In the first argument of ‘print’, namely | ‘(coerce $ (FixEither (Left age) :: FixEither Age) :: | Either Int (FixEither Int))’ | In a stmt of a 'do' block: | print | (coerce $ (FixEither (Left age) :: FixEither Age) :: | Either Int (FixEither Int)) | }}} | | I do not know enough to know if bumping the stack size is correct. | | Additionally, when run as GHCi I get: | | {{{ | =====> TcCoercible(ghci) 2784 of 3970 [0, 7, 0] cd | ./typecheck/should_run && '/home/hs01/ezyang/ghc-validate/inplace/bin | /ghc-stage2' -fforce-re | comp -dcore-lint -dcmm-lint -dno-debug-output -no-user-package-db - | rtsopts -fno-ghci-history Tc Coercible.hs --interactive -v0 -ignore- | dot-ghci +RTS -I0.1 -RTS <TcCoercible.genscript 1>TcCo | ercible.interp.stdout 2>TcCoercible.interp.stderr Actual stderr output | differs from expected: | --- /dev/null 2014-02-15 17:35:19.578872448 -0800 | +++ ./typecheck/should_run/TcCoercible.run.stderr 2014-05-29 | 16:27:30.476701835 -0700 | @@ -0,0 +1,2 @@ | + | +TcCoercible:7:30: Not in scope: ‘Main.main’ | }}} | | -- | Ticket URL: <http://ghc.haskell.org/trac/ghc/ticket/9153> | GHC <http://www.haskell.org/ghc/> | The Glasgow Haskell Compiler | _______________________________________________ | ghc-tickets mailing list | ghc-tickets(a)haskell.org | http://www.haskell.org/mailman/listinfo/ghc-tickets

2 1