GHC issueshttps://gitlab.haskell.org/ghc/ghc/-/issues2019-07-07T19:20:07Zhttps://gitlab.haskell.org/ghc/ghc/-/issues/579GCD error2019-07-07T19:20:07ZnobodyGCD error```
It looks like gcd doesn't work in all cases
gcd 3
70241808309566670245196440745955079085466414169343775337447197886725598671932
gives me 3 (and that just ain't true).
David J. Sankel
```
<details><summary>Trac metadata</summar...```
It looks like gcd doesn't work in all cases
gcd 3
70241808309566670245196440745955079085466414169343775337447197886725598671932
gives me 3 (and that just ain't true).
David J. Sankel
```
<details><summary>Trac metadata</summary>
| Trac field | Value |
| ---------------------- | --------------- |
| Version | None |
| Type | Bug |
| TypeOfFailure | OtherFailure |
| Priority | normal |
| Resolution | ResolvedInvalid |
| Component | Prelude |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture | |
</details>
<!-- {"blocked_by":[],"summary":"GCD error","status":"New","operating_system":"","component":"Prelude","related":[],"milestone":"","resolution":"ResolvedInvalid","owner":{"tag":"OwnedBy","contents":"simonmar"},"version":"None","keywords":[],"differentials":[],"test_case":"","architecture":"","cc":[""],"type":"Bug","description":"{{{\nIt looks like gcd doesn't work in all cases\n\ngcd 3\n70241808309566670245196440745955079085466414169343775337447197886725598671932\n\ngives me 3 (and that just ain't true).\n\nDavid J. Sankel\n\n\n\n}}}","type_of_failure":"OtherFailure","blocking":[]} -->Simon MarlowSimon Marlowhttps://gitlab.haskell.org/ghc/ghc/-/issues/580Loading modules without .hs file fails2019-07-07T19:20:06Zshane_308Loading modules without .hs file fails```
If I attempt to load a module with only the .hi and .o
files for that module present, then the load fails with
the following message:
Loading package std ... linking ... done.
Prelude> :l Part1
*** Exception: does not exist
Action: ...```
If I attempt to load a module with only the .hi and .o
files for that module present, then the load fails with
the following message:
Loading package std ... linking ... done.
Prelude> :l Part1
*** Exception: does not exist
Action: withFileStatus
Reason: No such file or directory
Prelude>
However, by placing a 'dummy' .hs file with only the
single line:
module Part1 where
I can get the module Part1 to load _with full
functionality_.
This error is present in ghci 5.00.2 on a i86pc running
SunOS 5.8
```
<details><summary>Trac metadata</summary>
| Trac field | Value |
| ---------------------- | ------------- |
| Version | 5.0 |
| Type | Bug |
| TypeOfFailure | OtherFailure |
| Priority | normal |
| Resolution | ResolvedFixed |
| Component | Compiler |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture | |
</details>
<!-- {"blocked_by":[],"summary":"Loading modules without .hs file fails","status":"New","operating_system":"","component":"Compiler","related":[],"milestone":"","resolution":"ResolvedFixed","owner":{"tag":"OwnedBy","contents":"simonmar"},"version":"5.0","keywords":[],"differentials":[],"test_case":"","architecture":"","cc":[""],"type":"Bug","description":"{{{\nIf I attempt to load a module with only the .hi and .o\nfiles for that module present, then the load fails with\nthe following message:\n\nLoading package std ... linking ... done.\nPrelude> :l Part1\n*** Exception: does not exist\nAction: withFileStatus\nReason: No such file or directory\nPrelude> \n\nHowever, by placing a 'dummy' .hs file with only the\nsingle line:\n\nmodule Part1 where\n\nI can get the module Part1 to load _with full\nfunctionality_.\n\nThis error is present in ghci 5.00.2 on a i86pc running\nSunOS 5.8\n\n\n}}}","type_of_failure":"OtherFailure","blocking":[]} -->Simon MarlowSimon Marlowhttps://gitlab.haskell.org/ghc/ghc/-/issues/581GHCi crash on simple writeFile2019-07-07T19:20:06ZxoltarGHCi crash on simple writeFile```
Windows NT sp4, ghc 5.01 "Borag Thungg"
On a simple attempt to use writeFile, the file is
correctly written, however ghc crashes immediately
afterward. The exact error message is:
The instruction at "0x00b12d58" referenced memory a...```
Windows NT sp4, ghc 5.01 "Borag Thungg"
On a simple attempt to use writeFile, the file is
correctly written, however ghc crashes immediately
afterward. The exact error message is:
The instruction at "0x00b12d58" referenced memory at
"0x00000000". The memory could not be "written".
Assigned to a null pointer, I guess.
Thanks,
Bryn
Administrator@BRK /NextGen/src/magellan/src/haskell
$ ghc --interactive
___ ___ _
/ _ \ /\ /\/ __(_)
/ /_\// /_/ / / | | GHC Interactive, version
5.01, for Haskell 98.
/ /_\\/ __ / /___| | http://www.haskell.org/ghc/
\____/\/ /_/\____/|_| Type :? for help.
Loading package std ... linking ... done.
Prelude> writeFile "foo" "baz"
Administrator@BRK /NextGen/src/magellan/src/haskell
$
```
<details><summary>Trac metadata</summary>
| Trac field | Value |
| ---------------------- | ------------- |
| Version | 5.0 |
| Type | Bug |
| TypeOfFailure | OtherFailure |
| Priority | normal |
| Resolution | ResolvedFixed |
| Component | Compiler |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture | |
</details>
<!-- {"blocked_by":[],"summary":"GHCi crash on simple writeFile","status":"New","operating_system":"","component":"Compiler","related":[],"milestone":"","resolution":"ResolvedFixed","owner":{"tag":"OwnedBy","contents":"nobody"},"version":"5.0","keywords":[],"differentials":[],"test_case":"","architecture":"","cc":[""],"type":"Bug","description":"{{{\nWindows NT sp4, ghc 5.01 \"Borag Thungg\"\n\nOn a simple attempt to use writeFile, the file is\ncorrectly written, however ghc crashes immediately\nafterward. The exact error message is:\n\nThe instruction at \"0x00b12d58\" referenced memory at\n\"0x00000000\". The memory could not be \"written\".\n\nAssigned to a null pointer, I guess.\n\nThanks,\n\nBryn\n\n\nAdministrator@BRK /NextGen/src/magellan/src/haskell\n$ ghc --interactive\n ___ ___ _\n / _ \\ /\\ /\\/ __(_)\n / /_\\// /_/ / / | | GHC Interactive, version\n5.01, for Haskell 98.\n/ /_\\\\/ __ / /___| | http://www.haskell.org/ghc/\n\\____/\\/ /_/\\____/|_| Type :? for help.\n\nLoading package std ... linking ... done.\nPrelude> writeFile \"foo\" \"baz\"\n\nAdministrator@BRK /NextGen/src/magellan/src/haskell\n$\n}}}","type_of_failure":"OtherFailure","blocking":[]} -->nobodynobodyhttps://gitlab.haskell.org/ghc/ghc/-/issues/582Erroneus error message2019-07-07T19:20:06Ziavor_sdErroneus error message```
When run in Haskell'98 complaint mode ghc(i) reports:
Too many parameters for class `Tag'
In the class declaration for `Tag'
for the following program:
class Tag
main = main
The error is that there are too few paramete...```
When run in Haskell'98 complaint mode ghc(i) reports:
Too many parameters for class `Tag'
In the class declaration for `Tag'
for the following program:
class Tag
main = main
The error is that there are too few parameters
(i.e. none) rather than too many.
```
<details><summary>Trac metadata</summary>
| Trac field | Value |
| ---------------------- | ------------- |
| Version | 5.0 |
| Type | Bug |
| TypeOfFailure | OtherFailure |
| Priority | normal |
| Resolution | ResolvedFixed |
| Component | None |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture | |
</details>
<!-- {"blocked_by":[],"summary":"Erroneus error message","status":"New","operating_system":"","component":"None","related":[],"milestone":"","resolution":"ResolvedFixed","owner":{"tag":"OwnedBy","contents":"nobody"},"version":"5.0","keywords":[],"differentials":[],"test_case":"","architecture":"","cc":[""],"type":"Bug","description":"{{{\nWhen run in Haskell'98 complaint mode ghc(i) reports:\n\n Too many parameters for class `Tag'\n In the class declaration for `Tag'\n\nfor the following program:\n\nclass Tag\n\nmain = main\n\n\n\nThe error is that there are too few parameters\n(i.e. none) rather than too many.\n\n\n\n}}}","type_of_failure":"OtherFailure","blocking":[]} -->nobodynobodyhttps://gitlab.haskell.org/ghc/ghc/-/issues/5830 parameter type classes2019-07-07T19:20:06Ziavor_sd0 parameter type classes```
This seems to be a problem:
Program:
class Tag where
f :: Char
main = main
Output:
ghc -c -fglasgow-exts bug_ghc.hs
bug_ghc.hs:2:
The constraint `Tag' does not mention any of the
universally quantified type variable...```
This seems to be a problem:
Program:
class Tag where
f :: Char
main = main
Output:
ghc -c -fglasgow-exts bug_ghc.hs
bug_ghc.hs:2:
The constraint `Tag' does not mention any of the
universally quantified type variables
in the type `(Tag) => Char'
In the class declaration for `Tag'
```
<details><summary>Trac metadata</summary>
| Trac field | Value |
| ---------------------- | ----------------------- |
| Version | 5.0 |
| Type | Bug |
| TypeOfFailure | OtherFailure |
| Priority | normal |
| Resolution | ResolvedFixed |
| Component | Compiler (Type checker) |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture | |
</details>
<!-- {"blocked_by":[],"summary":"0 parameter type classes","status":"New","operating_system":"","component":"Compiler (Type checker)","related":[],"milestone":"","resolution":"ResolvedFixed","owner":{"tag":"OwnedBy","contents":"nobody"},"version":"5.0","keywords":[],"differentials":[],"test_case":"","architecture":"","cc":[""],"type":"Bug","description":"{{{\nThis seems to be a problem:\n\nProgram:\n\nclass Tag where\n f :: Char\n\nmain = main \n\n\nOutput:\n \nghc -c -fglasgow-exts bug_ghc.hs\n\nbug_ghc.hs:2:\n The constraint `Tag' does not mention any of the \nuniversally quantified type variables\n in the type `(Tag) => Char'\n In the class declaration for `Tag'\n\n\n}}}","type_of_failure":"OtherFailure","blocking":[]} -->nobodynobodyhttps://gitlab.haskell.org/ghc/ghc/-/issues/584ghc-5.00.2 -fvia-C: symbol undeclared2019-07-07T19:20:06Znobodyghc-5.00.2 -fvia-C: symbol undeclared```
I am using ghc-5.00.2
While compiling TclHaskell, compiling a C callout
module with -fvia-C I get the following error:
ghc -fglasgow-exts -recomp -dcore-lint -syslib
concurrent -fvia-C '-#include "Check.h"' -c -ohi
TclCompatibility...```
I am using ghc-5.00.2
While compiling TclHaskell, compiling a C callout
module with -fvia-C I get the following error:
ghc -fglasgow-exts -recomp -dcore-lint -syslib
concurrent -fvia-C '-#include "Check.h"' -c -ohi
TclCompatibility.hi TclCompatibilityGhc.hs
/tmp/ghc4365.hc: In function `s141_fast1':
/tmp/ghc4365.hc:157: `END_TSO_QUEUE_closure' undeclared
(first use in this function)
/tmp/ghc4365.hc:157: (Each undeclared identifier is
reported only once
/tmp/ghc4365.hc:157: for each function it appears in.)
```
<details><summary>Trac metadata</summary>
| Trac field | Value |
| ---------------------- | --------------- |
| Version | None |
| Type | Bug |
| TypeOfFailure | OtherFailure |
| Priority | normal |
| Resolution | ResolvedInvalid |
| Component | Compiler |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture | |
</details>
<!-- {"blocked_by":[],"summary":"ghc-5.00.2 -fvia-C: symbol undeclared","status":"New","operating_system":"","component":"Compiler","related":[],"milestone":"","resolution":"ResolvedInvalid","owner":{"tag":"OwnedBy","contents":"nobody"},"version":"None","keywords":[],"differentials":[],"test_case":"","architecture":"","cc":[""],"type":"Bug","description":"{{{\nI am using ghc-5.00.2\n\nWhile compiling TclHaskell, compiling a C callout\nmodule with -fvia-C I get the following error:\n\nghc -fglasgow-exts -recomp -dcore-lint -syslib\nconcurrent -fvia-C '-#include \"Check.h\"' -c -ohi\nTclCompatibility.hi TclCompatibilityGhc.hs\n/tmp/ghc4365.hc: In function `s141_fast1':\n/tmp/ghc4365.hc:157: `END_TSO_QUEUE_closure' undeclared\n(first use in this function)\n/tmp/ghc4365.hc:157: (Each undeclared identifier is\nreported only once\n/tmp/ghc4365.hc:157: for each function it appears in.)\n\n}}}","type_of_failure":"OtherFailure","blocking":[]} -->nobodynobodyhttps://gitlab.haskell.org/ghc/ghc/-/issues/585Possible breakage in Socket[Prim]?2019-07-07T19:20:05ZvolkersfPossible breakage in Socket[Prim]?```
When building some applications extensively using sockets with a ghc-5.01 from a two or three days old cvs, I constantly get:
SocketPrim.hsc:235: Non-exhaustive patterns in case
That´s in peekSockAddr, e.g. called by accept.
It wil...```
When building some applications extensively using sockets with a ghc-5.01 from a two or three days old cvs, I constantly get:
SocketPrim.hsc:235: Non-exhaustive patterns in case
That´s in peekSockAddr, e.g. called by accept.
It will bomb on me every time, on different occasions
(at least accept, maybe select, too).
Might be kind of a deja vu?
```
<details><summary>Trac metadata</summary>
| Trac field | Value |
| ---------------------- | ------------- |
| Version | 5.0 |
| Type | Bug |
| TypeOfFailure | OtherFailure |
| Priority | normal |
| Resolution | ResolvedFixed |
| Component | hslibs/net |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture | |
</details>
<!-- {"blocked_by":[],"summary":"Possible breakage in Socket[Prim]?","status":"New","operating_system":"","component":"hslibs/net","related":[],"milestone":"","resolution":"ResolvedFixed","owner":{"tag":"OwnedBy","contents":"simonmar"},"version":"5.0","keywords":[],"differentials":[],"test_case":"","architecture":"","cc":[""],"type":"Bug","description":"{{{\nWhen building some applications extensively using sockets with a ghc-5.01 from a two or three days old cvs, I constantly get:\n\nSocketPrim.hsc:235: Non-exhaustive patterns in case\n\nThat´s in peekSockAddr, e.g. called by accept.\nIt will bomb on me every time, on different occasions\n(at least accept, maybe select, too).\n\nMight be kind of a deja vu?\n}}}","type_of_failure":"OtherFailure","blocking":[]} -->Simon MarlowSimon Marlowhttps://gitlab.haskell.org/ghc/ghc/-/issues/586GHCi: missing .hs gives unhelpful msg2019-07-07T19:20:05ZmagunterGHCi: missing .hs gives unhelpful msg```
Trying to load a module (via an import chain) for
which the .hs does not exist results in the
following message:
*** Exception: does not exist
Action: withFileStatus
Reason: No such file or directory
Prelude>
It took me a...```
Trying to load a module (via an import chain) for
which the .hs does not exist results in the
following message:
*** Exception: does not exist
Action: withFileStatus
Reason: No such file or directory
Prelude>
It took me a while to figure out what was going on.
It would have helped tremendously to know what
file was missing.
It might be best to treat a missing .hs as an
infinitely old .hs (perhaps with an indication that
it is missing.)
(The missing .hs resulted from the writing the
make rules for creating a library including GreenCard
code in the straightforward way.)
mike
```
<details><summary>Trac metadata</summary>
| Trac field | Value |
| ---------------------- | ----------------- |
| Version | 5.0 |
| Type | Bug |
| TypeOfFailure | OtherFailure |
| Priority | normal |
| Resolution | ResolvedDuplicate |
| Component | Compiler |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture | |
</details>
<!-- {"blocked_by":[],"summary":"GHCi: missing .hs gives unhelpful msg","status":"New","operating_system":"","component":"Compiler","related":[],"milestone":"","resolution":"ResolvedDuplicate","owner":{"tag":"OwnedBy","contents":"nobody"},"version":"5.0","keywords":[],"differentials":[],"test_case":"","architecture":"","cc":[""],"type":"Bug","description":"{{{\nTrying to load a module (via an import chain) for\nwhich the .hs does not exist results in the\nfollowing message:\n\n *** Exception: does not exist\n Action: withFileStatus\n Reason: No such file or directory\n Prelude> \n\nIt took me a while to figure out what was going on.\nIt would have helped tremendously to know what\nfile was missing.\n\nIt might be best to treat a missing .hs as an\ninfinitely old .hs (perhaps with an indication that\nit is missing.)\n\n(The missing .hs resulted from the writing the\nmake rules for creating a library including GreenCard\ncode in the straightforward way.)\n\n mike\n\n}}}","type_of_failure":"OtherFailure","blocking":[]} -->nobodynobodyhttps://gitlab.haskell.org/ghc/ghc/-/issues/587GHCi cannot start2019-07-07T19:20:05ZarjenhGHCi cannot start```
GHCi cannot start if started in the standard library
directory.
=========================================
$ pwd
/usr/local/lib/ghc-5.00.2/imports/std
$ ghci
___ ___ _
/ _ \ /\ /\/ __(_)
/ /_\// /_/ / / | | GHC...```
GHCi cannot start if started in the standard library
directory.
=========================================
$ pwd
/usr/local/lib/ghc-5.00.2/imports/std
$ ghci
___ ___ _
/ _ \ /\ /\/ __(_)
/ /_\// /_/ / / | | GHC Interactive, version
5.00.2, For Haskell 98.
/ /_\\/ __ / /___| | http://www.haskell.org/ghc/
\____/\/ /_/\____/|_| Type :? for help.
Loading package std ... linking ... done.
<no file>:0:
failed to load interface for `IO': Module `IO' is
not loaded
<no file>:0: Variable not in scope: `IO.hFlush'
<no file>:0:
failed to load interface for `PrelHandle':
Module `PrelHandle' is not loaded
<no file>:0: Variable not in scope: `PrelHandle.stderr'
ghc-5.00.2: panic! (the `impossible' happened, GHC
version 5.00.2):
interactiveUI:stderr
Please report it as a compiler bug to
glasgow-haskell-bugs@haskell.org,
or http://sourceforge.net/projects/ghc/.
=================================================
It does work in any other directory.
```
<details><summary>Trac metadata</summary>
| Trac field | Value |
| ---------------------- | ------------- |
| Version | 5.0 |
| Type | Bug |
| TypeOfFailure | OtherFailure |
| Priority | normal |
| Resolution | ResolvedFixed |
| Component | Compiler |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture | |
</details>
<!-- {"blocked_by":[],"summary":"GHCi cannot start","status":"New","operating_system":"","component":"Compiler","related":[],"milestone":"","resolution":"ResolvedFixed","owner":{"tag":"OwnedBy","contents":"nobody"},"version":"5.0","keywords":[],"differentials":[],"test_case":"","architecture":"","cc":[""],"type":"Bug","description":"{{{\nGHCi cannot start if started in the standard library\ndirectory.\n\n=========================================\n\n$ pwd\n/usr/local/lib/ghc-5.00.2/imports/std \n\n$ ghci\n___ ___ _\n / _ \\ /\\ /\\/ __(_)\n / /_\\// /_/ / / | | GHC Interactive, version\n5.00.2, For Haskell 98.\n/ /_\\\\/ __ / /___| | http://www.haskell.org/ghc/\n\\____/\\/ /_/\\____/|_| Type :? for help.\n\nLoading package std ... linking ... done.\n\n<no file>:0:\n failed to load interface for `IO': Module `IO' is\nnot loaded\n\n<no file>:0: Variable not in scope: `IO.hFlush'\n\n<no file>:0:\n failed to load interface for `PrelHandle':\n Module `PrelHandle' is not loaded\n\n<no file>:0: Variable not in scope: `PrelHandle.stderr'\nghc-5.00.2: panic! (the `impossible' happened, GHC\nversion 5.00.2):\n interactiveUI:stderr\n\nPlease report it as a compiler bug to\nglasgow-haskell-bugs@haskell.org,\nor http://sourceforge.net/projects/ghc/.\n\n\n=================================================\n\nIt does work in any other directory.\n}}}","type_of_failure":"OtherFailure","blocking":[]} -->nobodynobodyhttps://gitlab.haskell.org/ghc/ghc/-/issues/18panic: getRegister(x86,unary primop)2019-07-07T19:19:59Znobodypanic: getRegister(x86,unary primop)```
Machine: Linux nebula 2.4.9-686 #1 Sun Aug 19 10:46:52
EST 2001 i686 unknown
gcc version (irrelevant, but): gcc version 2.95.4
20011006 (Debian prerelease)
Broken compiler run:
cwitty(cwitty)@nebula ~/prcs/poly> ghc -v -syslib lan...```
Machine: Linux nebula 2.4.9-686 #1 Sun Aug 19 10:46:52
EST 2001 i686 unknown
gcc version (irrelevant, but): gcc version 2.95.4
20011006 (Debian prerelease)
Broken compiler run:
cwitty(cwitty)@nebula ~/prcs/poly> ghc -v -syslib lang
-O -fasm -c Bug.hs
Glasgow Haskell Compiler, Version 5.02, for Haskell 98,
compiled by GHC version 5.02
Using package config file: /usr/lib/ghc-5.02/package.conf
==================== Packages ====================
Package
{name = "gmp",
import_dirs = [],
source_dirs = [],
library_dirs = [],
hs_libraries = [],
extra_libraries = ["gmp"],
include_dirs = [],
c_includes = [],
package_deps = [],
extra_ghc_opts = [],
extra_cc_opts = [],
extra_ld_opts = []}
Package
{name = "rts",
import_dirs = [],
source_dirs = [],
library_dirs = ["/usr/lib/ghc-5.02"],
hs_libraries = ["HSrts"],
extra_libraries = ["m"],
include_dirs = ["/usr/lib/ghc-5.02/include"],
c_includes = ["Stg.h"],
package_deps = ["gmp"],
extra_ghc_opts = [],
extra_cc_opts = [],
extra_ld_opts =
["-u",
"PrelBase_Izh_static_info",
"-u",
"PrelBase_Czh_static_info",
"-u",
"PrelFloat_Fzh_static_info",
"-u",
"PrelFloat_Dzh_static_info",
"-u",
"PrelPtr_Ptr_static_info",
"-u",
"PrelWord_Wzh_static_info",
"-u",
"PrelInt_I8zh_static_info",
"-u",
"PrelInt_I16zh_static_info",
"-u",
"PrelInt_I32zh_static_info",
"-u",
"PrelInt_I64zh_static_info",
"-u",
"PrelWord_W8zh_static_info",
"-u",
"PrelWord_W16zh_static_info",
"-u",
"PrelWord_W32zh_static_info",
"-u",
"PrelWord_W64zh_static_info",
"-u",
"PrelStable_StablePtr_static_info",
"-u",
"PrelBase_Izh_con_info",
"-u",
"PrelBase_Czh_con_info",
"-u",
"PrelFloat_Fzh_con_info",
"-u",
"PrelFloat_Dzh_con_info",
"-u",
"PrelPtr_Ptr_con_info",
"-u",
"PrelStable_StablePtr_con_info",
"-u",
"PrelBase_False_closure",
"-u",
"PrelBase_True_closure",
"-u",
"PrelPack_unpackCString_closure",
"-u",
"PrelIOBase_stackOverflow_closure",
"-u",
"PrelIOBase_heapOverflow_closure",
"-u",
"PrelIOBase_NonTermination_closure",
"-u",
"PrelIOBase_BlockedOnDeadMVar_closure",
"-u",
"PrelWeak_runFinalizzerBatch_closure",
"-u",
"__stginit_Prelude"]}
Package
{name = "std",
import_dirs = ["/usr/lib/ghc-5.02/imports/std"],
source_dirs = [],
library_dirs = ["/usr/lib/ghc-5.02"],
hs_libraries = ["HSstd"],
extra_libraries = ["HSstd_cbits"],
include_dirs = [],
c_includes = ["HsStd.h"],
package_deps = ["rts"],
extra_ghc_opts = [],
extra_cc_opts = [],
extra_ld_opts = []}
Package
{name = "lang",
import_dirs = ["/usr/lib/ghc-5.02/imports/lang"],
source_dirs = [],
library_dirs = ["/usr/lib/ghc-5.02"],
hs_libraries = ["HSlang"],
extra_libraries = ["HSlang_cbits"],
include_dirs = [],
c_includes = ["HsLang.h"],
package_deps = [],
extra_ghc_opts = [],
extra_cc_opts = [],
extra_ld_opts = ["-u", "Addr_Azh_static_info"]}
Package
{name = "concurrent",
import_dirs = ["/usr/lib/ghc-5.02/imports/concurrent"],
source_dirs = [],
library_dirs = ["/usr/lib/ghc-5.02"],
hs_libraries = ["HSconcurrent"],
extra_libraries = [],
include_dirs = [],
c_includes = [],
package_deps = ["lang"],
extra_ghc_opts = [],
extra_cc_opts = [],
extra_ld_opts = []}
Package
{name = "data",
import_dirs = ["/usr/lib/ghc-5.02/imports/data"],
source_dirs = [],
library_dirs = ["/usr/lib/ghc-5.02"],
hs_libraries = ["HSdata"],
extra_libraries = [],
include_dirs = [],
c_includes = [],
package_deps = ["lang", "util"],
extra_ghc_opts = [],
extra_cc_opts = [],
extra_ld_opts = []}
Package
{name = "net",
import_dirs = ["/usr/lib/ghc-5.02/imports/net"],
source_dirs = [],
library_dirs = ["/usr/lib/ghc-5.02"],
hs_libraries = ["HSnet"],
extra_libraries = [],
include_dirs = [],
c_includes = ["HsNet.h"],
package_deps = ["lang", "text", "concurrent"],
extra_ghc_opts = [],
extra_cc_opts = [],
extra_ld_opts = []}
Package
{name = "posix",
import_dirs = ["/usr/lib/ghc-5.02/imports/posix"],
source_dirs = [],
library_dirs = ["/usr/lib/ghc-5.02"],
hs_libraries = ["HSposix"],
extra_libraries = ["HSposix_cbits"],
include_dirs = [],
c_includes = ["HsPosix.h"],
package_deps = ["lang"],
extra_ghc_opts = [],
extra_cc_opts = [],
extra_ld_opts = []}
Package
{name = "text",
import_dirs = ["/usr/lib/ghc-5.02/imports/text"],
source_dirs = [],
library_dirs = ["/usr/lib/ghc-5.02"],
hs_libraries = ["HStext"],
extra_libraries = ["HStext_cbits"],
include_dirs = [],
c_includes = ["HsText.h"],
package_deps = ["lang"],
extra_ghc_opts = [],
extra_cc_opts = [],
extra_ld_opts = []}
Package
{name = "util",
import_dirs = ["/usr/lib/ghc-5.02/imports/util"],
source_dirs = [],
library_dirs = ["/usr/lib/ghc-5.02"],
hs_libraries = ["HSutil"],
extra_libraries = ["HSutil_cbits", "readline",
"ncurses"],
include_dirs = [],
c_includes = ["HsUtil.h"],
package_deps = ["lang", "concurrent", "posix"],
extra_ghc_opts = [],
extra_cc_opts = [],
extra_ld_opts = []}
Package
{name = "hssource",
import_dirs = ["/usr/lib/ghc-5.02/imports/hssource"],
source_dirs = [],
library_dirs = ["/usr/lib/ghc-5.02"],
hs_libraries = ["HShssource"],
extra_libraries = [],
include_dirs = [],
c_includes = [],
package_deps = ["text"],
extra_ghc_opts = [],
extra_cc_opts = [],
extra_ld_opts = []}
Package
{name = "greencard",
import_dirs = ["/usr/lib/ghc-5.02/imports/greencard"],
source_dirs = [],
library_dirs = ["/usr/lib/ghc-5.02"],
hs_libraries = ["HSgreencard"],
extra_libraries = [],
include_dirs = [],
c_includes = [],
package_deps = ["lang"],
extra_ghc_opts = [],
extra_cc_opts = [],
extra_ld_opts = []}
Package
{name = "xlib",
import_dirs = ["/usr/lib/ghc-5.02/imports/xlib"],
source_dirs = [],
library_dirs = ["/usr/lib/ghc-5.02"],
hs_libraries = ["HSxlib"],
extra_libraries = ["HSxlib_cbits", "X11"],
include_dirs = [],
c_includes = ["HsXlib.h"],
package_deps = ["greencard"],
extra_ghc_opts = [],
extra_cc_opts = [],
extra_ld_opts = []}
Package
{name = "HGL",
import_dirs = ["/usr/lib/ghc-5.02/imports/HGL"],
source_dirs = [],
library_dirs = [],
hs_libraries = ["HSHGL"],
extra_libraries = [],
include_dirs = [],
c_includes = [],
package_deps = ["xlib", "concurrent"],
extra_ghc_opts = [],
extra_cc_opts = [],
extra_ld_opts = []}
Package
{name = "docon",
import_dirs = ["/src/docon/export"],
source_dirs = [],
library_dirs = ["/src/docon/export"],
hs_libraries = ["HSdocon"],
extra_libraries = ["HSdocon"],
include_dirs = [],
c_includes = [],
package_deps = ["data"],
extra_ghc_opts = [],
extra_cc_opts = [],
extra_ld_opts = []}
Package
{name = "OpenGL",
import_dirs = ["/usr/lib/ghc-5.02/imports/OpenGL"],
source_dirs = [],
library_dirs = ["/usr/lib/ghc-5.02"],
hs_libraries = ["HSOpenGL"],
extra_libraries = ["glut"],
include_dirs = [],
c_includes = [],
package_deps = ["lang"],
extra_ghc_opts = [],
extra_cc_opts = [],
extra_ld_opts = []}
Package
{name = "c2hs",
import_dirs =
["/usr/local/lib/c2hs-0.9.9/ghc5/import"],
source_dirs = [],
library_dirs = ["/usr/local/lib/c2hs-0.9.9/ghc5"],
hs_libraries = ["c2hs"],
extra_libraries = [],
include_dirs = [],
c_includes = [],
package_deps = ["lang"],
extra_ghc_opts = [],
extra_cc_opts = [],
extra_ld_opts = []}
Package
{name = "gtkhs",
import_dirs =
["/usr/local/lib/gtk+hs-0.11.5/ghc5/import/glib",
"/usr/local/lib/gtk+hs-0.11.5/ghc5/import/gdk",
"/usr/local/lib/gtk+hs-0.11.5/ghc5/import/gtk",
"/usr/local/lib/gtk+hs-0.11.5/ghc5/import/gtkglarea"],
source_dirs = [],
library_dirs = ["/usr/local/lib/gtk+hs-0.11.5/ghc5"],
hs_libraries = ["gtkglHS", "gtkHS", "gdkHS", "glibHS"],
extra_libraries =
["glib", "gthread", "gmodule", "gdk", "gtk",
"gtkgl"],
include_dirs = [],
c_includes = [],
package_deps = ["c2hs"],
extra_ghc_opts = [],
extra_cc_opts = [],
extra_ld_opts = []}
Hsc static flags: -static -fignore-asserts
-ffoldr-build-on -fdo-eta-reduction
-fdo-lambda-eta-expansion -fcase-merge -flet-to-case
-flet-no-escape
*** Checking old interface for hs = Just "Bug.hs", hspp
= Just "Bug.hs":
Compiling Editor ( Bug.hs, Bug.o )
*** Parser:
*** Renamer:
*** Typechecker:
*** Desugar:
Result size = 41
*** Simplify:
Result size = 52
Result size = 24
Result size = 24
*** Specialise:
Result size = 24
*** Float out (not floating lambdas):
Result size = 24
*** Float inwards:
Result size = 24
*** Simplify:
Result size = 19
Result size = 19
*** Simplify:
Result size = 19
*** Simplify:
Result size = 19
*** Demand analysis:
Result size = 19
*** Worker Wrapper binds:
Result size = 19
*** GlomBinds:
*** Simplify:
Result size = 19
*** Float out (not floating lambdas):
Result size = 19
*** Common sub-expression:
Result size = 19
*** Float inwards:
Result size = 19
*** Simplify:
Result size = 19
*** Tidy Core:
Result size = 19
*** CorePrep:
Result size = 19
*** Stg2Stg:
*** CodeGen:
*** CodeOutput:
*** Deleting temp files
Deleting: /tmp/ghc4255.s /tmp/ghc4255.hspp
Warning: deleting non-existent /tmp/ghc4255.hspp
ghc-5.02: panic! (the `impossible' happened, GHC
version 5.02):
getRegister(x86,unary primop)
(Prim deRefStablePtrzh Temp(B0StgAddr))
Please report it as a compiler bug to
glasgow-haskell-bugs@haskell.org,
or http://sourceforge.net/projects/ghc/.
I compiled this version of ghc myself, using the Debian
packaging scripts from the Debian ghc package.
Carl Witty
```
<details><summary>Trac metadata</summary>
| Trac field | Value |
| ---------------------- | ------------- |
| Version | 5.02 |
| Type | Bug |
| TypeOfFailure | OtherFailure |
| Priority | normal |
| Resolution | ResolvedFixed |
| Component | Compiler |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture | |
</details>
<!-- {"blocked_by":[],"summary":"panic: getRegister(x86,unary primop)","status":"New","operating_system":"","component":"Compiler","related":[],"milestone":"","resolution":"ResolvedFixed","owner":{"tag":"OwnedBy","contents":"nobody"},"version":"5.02","keywords":[],"differentials":[],"test_case":"","architecture":"","cc":[""],"type":"Bug","description":"{{{\nMachine: Linux nebula 2.4.9-686 #1 Sun Aug 19 10:46:52\nEST 2001 i686 unknown\n\ngcc version (irrelevant, but): gcc version 2.95.4\n20011006 (Debian prerelease)\n\nBroken compiler run: \ncwitty(cwitty)@nebula ~/prcs/poly> ghc -v -syslib lang\n-O -fasm -c Bug.hs\nGlasgow Haskell Compiler, Version 5.02, for Haskell 98,\ncompiled by GHC version 5.02\nUsing package config file: /usr/lib/ghc-5.02/package.conf\n\n==================== Packages ====================\nPackage\n {name = \"gmp\",\n import_dirs = [],\n source_dirs = [],\n library_dirs = [],\n hs_libraries = [],\n extra_libraries = [\"gmp\"],\n include_dirs = [],\n c_includes = [],\n package_deps = [],\n extra_ghc_opts = [],\n extra_cc_opts = [],\n extra_ld_opts = []}\nPackage\n {name = \"rts\",\n import_dirs = [],\n source_dirs = [],\n library_dirs = [\"/usr/lib/ghc-5.02\"],\n hs_libraries = [\"HSrts\"],\n extra_libraries = [\"m\"],\n include_dirs = [\"/usr/lib/ghc-5.02/include\"],\n c_includes = [\"Stg.h\"],\n package_deps = [\"gmp\"],\n extra_ghc_opts = [],\n extra_cc_opts = [],\n extra_ld_opts =\n [\"-u\",\n \"PrelBase_Izh_static_info\",\n \"-u\",\n \"PrelBase_Czh_static_info\",\n \"-u\",\n \"PrelFloat_Fzh_static_info\",\n \"-u\",\n \"PrelFloat_Dzh_static_info\",\n \"-u\",\n \"PrelPtr_Ptr_static_info\",\n \"-u\",\n \"PrelWord_Wzh_static_info\",\n \"-u\",\n \"PrelInt_I8zh_static_info\",\n \"-u\",\n \"PrelInt_I16zh_static_info\",\n \"-u\",\n \"PrelInt_I32zh_static_info\",\n \"-u\",\n \"PrelInt_I64zh_static_info\",\n \"-u\",\n \"PrelWord_W8zh_static_info\",\n \"-u\",\n \"PrelWord_W16zh_static_info\",\n \"-u\",\n \"PrelWord_W32zh_static_info\",\n \"-u\",\n \"PrelWord_W64zh_static_info\",\n \"-u\",\n \"PrelStable_StablePtr_static_info\",\n \"-u\",\n \"PrelBase_Izh_con_info\",\n \"-u\",\n \"PrelBase_Czh_con_info\",\n \"-u\",\n \"PrelFloat_Fzh_con_info\",\n \"-u\",\n \"PrelFloat_Dzh_con_info\",\n \"-u\",\n \"PrelPtr_Ptr_con_info\",\n \"-u\",\n \"PrelStable_StablePtr_con_info\",\n \"-u\",\n \"PrelBase_False_closure\",\n \"-u\",\n \"PrelBase_True_closure\",\n \"-u\",\n \"PrelPack_unpackCString_closure\",\n \"-u\",\n \"PrelIOBase_stackOverflow_closure\",\n \"-u\",\n \"PrelIOBase_heapOverflow_closure\",\n \"-u\",\n \"PrelIOBase_NonTermination_closure\",\n \"-u\",\n \"PrelIOBase_BlockedOnDeadMVar_closure\",\n \"-u\",\n \"PrelWeak_runFinalizzerBatch_closure\",\n \"-u\",\n \"__stginit_Prelude\"]}\nPackage\n {name = \"std\",\n import_dirs = [\"/usr/lib/ghc-5.02/imports/std\"],\n source_dirs = [],\n library_dirs = [\"/usr/lib/ghc-5.02\"],\n hs_libraries = [\"HSstd\"],\n extra_libraries = [\"HSstd_cbits\"],\n include_dirs = [],\n c_includes = [\"HsStd.h\"],\n package_deps = [\"rts\"],\n extra_ghc_opts = [],\n extra_cc_opts = [],\n extra_ld_opts = []}\nPackage\n {name = \"lang\",\n import_dirs = [\"/usr/lib/ghc-5.02/imports/lang\"],\n source_dirs = [],\n library_dirs = [\"/usr/lib/ghc-5.02\"],\n hs_libraries = [\"HSlang\"],\n extra_libraries = [\"HSlang_cbits\"],\n include_dirs = [],\n c_includes = [\"HsLang.h\"],\n package_deps = [],\n extra_ghc_opts = [],\n extra_cc_opts = [],\n extra_ld_opts = [\"-u\", \"Addr_Azh_static_info\"]}\nPackage\n {name = \"concurrent\",\n import_dirs = [\"/usr/lib/ghc-5.02/imports/concurrent\"],\n source_dirs = [],\n library_dirs = [\"/usr/lib/ghc-5.02\"],\n hs_libraries = [\"HSconcurrent\"],\n extra_libraries = [],\n include_dirs = [],\n c_includes = [],\n package_deps = [\"lang\"],\n extra_ghc_opts = [],\n extra_cc_opts = [],\n extra_ld_opts = []}\nPackage\n {name = \"data\",\n import_dirs = [\"/usr/lib/ghc-5.02/imports/data\"],\n source_dirs = [],\n library_dirs = [\"/usr/lib/ghc-5.02\"],\n hs_libraries = [\"HSdata\"],\n extra_libraries = [],\n include_dirs = [],\n c_includes = [],\n package_deps = [\"lang\", \"util\"],\n extra_ghc_opts = [],\n extra_cc_opts = [],\n extra_ld_opts = []}\nPackage\n {name = \"net\",\n import_dirs = [\"/usr/lib/ghc-5.02/imports/net\"],\n source_dirs = [],\n library_dirs = [\"/usr/lib/ghc-5.02\"],\n hs_libraries = [\"HSnet\"],\n extra_libraries = [],\n include_dirs = [],\n c_includes = [\"HsNet.h\"],\n package_deps = [\"lang\", \"text\", \"concurrent\"],\n extra_ghc_opts = [],\n extra_cc_opts = [],\n extra_ld_opts = []}\nPackage\n {name = \"posix\",\n import_dirs = [\"/usr/lib/ghc-5.02/imports/posix\"],\n source_dirs = [],\n library_dirs = [\"/usr/lib/ghc-5.02\"],\n hs_libraries = [\"HSposix\"],\n extra_libraries = [\"HSposix_cbits\"],\n include_dirs = [],\n c_includes = [\"HsPosix.h\"],\n package_deps = [\"lang\"],\n extra_ghc_opts = [],\n extra_cc_opts = [],\n extra_ld_opts = []}\nPackage\n {name = \"text\",\n import_dirs = [\"/usr/lib/ghc-5.02/imports/text\"],\n source_dirs = [],\n library_dirs = [\"/usr/lib/ghc-5.02\"],\n hs_libraries = [\"HStext\"],\n extra_libraries = [\"HStext_cbits\"],\n include_dirs = [],\n c_includes = [\"HsText.h\"],\n package_deps = [\"lang\"],\n extra_ghc_opts = [],\n extra_cc_opts = [],\n extra_ld_opts = []}\nPackage\n {name = \"util\",\n import_dirs = [\"/usr/lib/ghc-5.02/imports/util\"],\n source_dirs = [],\n library_dirs = [\"/usr/lib/ghc-5.02\"],\n hs_libraries = [\"HSutil\"],\n extra_libraries = [\"HSutil_cbits\", \"readline\",\n\"ncurses\"],\n include_dirs = [],\n c_includes = [\"HsUtil.h\"],\n package_deps = [\"lang\", \"concurrent\", \"posix\"],\n extra_ghc_opts = [],\n extra_cc_opts = [],\n extra_ld_opts = []}\nPackage\n {name = \"hssource\",\n import_dirs = [\"/usr/lib/ghc-5.02/imports/hssource\"],\n source_dirs = [],\n library_dirs = [\"/usr/lib/ghc-5.02\"],\n hs_libraries = [\"HShssource\"],\n extra_libraries = [],\n include_dirs = [],\n c_includes = [],\n package_deps = [\"text\"],\n extra_ghc_opts = [],\n extra_cc_opts = [],\n extra_ld_opts = []}\nPackage\n {name = \"greencard\",\n import_dirs = [\"/usr/lib/ghc-5.02/imports/greencard\"],\n source_dirs = [],\n library_dirs = [\"/usr/lib/ghc-5.02\"],\n hs_libraries = [\"HSgreencard\"],\n extra_libraries = [],\n include_dirs = [],\n c_includes = [],\n package_deps = [\"lang\"],\n extra_ghc_opts = [],\n extra_cc_opts = [],\n extra_ld_opts = []}\nPackage\n {name = \"xlib\",\n import_dirs = [\"/usr/lib/ghc-5.02/imports/xlib\"],\n source_dirs = [],\n library_dirs = [\"/usr/lib/ghc-5.02\"],\n hs_libraries = [\"HSxlib\"],\n extra_libraries = [\"HSxlib_cbits\", \"X11\"],\n include_dirs = [],\n c_includes = [\"HsXlib.h\"],\n package_deps = [\"greencard\"],\n extra_ghc_opts = [],\n extra_cc_opts = [],\n extra_ld_opts = []}\nPackage\n {name = \"HGL\",\n import_dirs = [\"/usr/lib/ghc-5.02/imports/HGL\"],\n source_dirs = [],\n library_dirs = [],\n hs_libraries = [\"HSHGL\"],\n extra_libraries = [],\n include_dirs = [],\n c_includes = [],\n package_deps = [\"xlib\", \"concurrent\"],\n extra_ghc_opts = [],\n extra_cc_opts = [],\n extra_ld_opts = []}\nPackage\n {name = \"docon\",\n import_dirs = [\"/src/docon/export\"],\n source_dirs = [],\n library_dirs = [\"/src/docon/export\"],\n hs_libraries = [\"HSdocon\"],\n extra_libraries = [\"HSdocon\"],\n include_dirs = [],\n c_includes = [],\n package_deps = [\"data\"],\n extra_ghc_opts = [],\n extra_cc_opts = [],\n extra_ld_opts = []}\nPackage\n {name = \"OpenGL\",\n import_dirs = [\"/usr/lib/ghc-5.02/imports/OpenGL\"],\n source_dirs = [],\n library_dirs = [\"/usr/lib/ghc-5.02\"],\n hs_libraries = [\"HSOpenGL\"],\n extra_libraries = [\"glut\"],\n include_dirs = [],\n c_includes = [],\n package_deps = [\"lang\"],\n extra_ghc_opts = [],\n extra_cc_opts = [],\n extra_ld_opts = []}\nPackage\n {name = \"c2hs\",\n import_dirs =\n[\"/usr/local/lib/c2hs-0.9.9/ghc5/import\"],\n source_dirs = [],\n library_dirs = [\"/usr/local/lib/c2hs-0.9.9/ghc5\"],\n hs_libraries = [\"c2hs\"],\n extra_libraries = [],\n include_dirs = [],\n c_includes = [],\n package_deps = [\"lang\"],\n extra_ghc_opts = [],\n extra_cc_opts = [],\n extra_ld_opts = []}\nPackage\n {name = \"gtkhs\",\n import_dirs =\n [\"/usr/local/lib/gtk+hs-0.11.5/ghc5/import/glib\",\n \"/usr/local/lib/gtk+hs-0.11.5/ghc5/import/gdk\",\n \"/usr/local/lib/gtk+hs-0.11.5/ghc5/import/gtk\",\n \n\"/usr/local/lib/gtk+hs-0.11.5/ghc5/import/gtkglarea\"],\n source_dirs = [],\n library_dirs = [\"/usr/local/lib/gtk+hs-0.11.5/ghc5\"],\n hs_libraries = [\"gtkglHS\", \"gtkHS\", \"gdkHS\", \"glibHS\"],\n extra_libraries =\n [\"glib\", \"gthread\", \"gmodule\", \"gdk\", \"gtk\",\n\"gtkgl\"],\n include_dirs = [],\n c_includes = [],\n package_deps = [\"c2hs\"],\n extra_ghc_opts = [],\n extra_cc_opts = [],\n extra_ld_opts = []}\n\n\nHsc static flags: -static -fignore-asserts\n-ffoldr-build-on -fdo-eta-reduction\n-fdo-lambda-eta-expansion -fcase-merge -flet-to-case\n-flet-no-escape\n*** Checking old interface for hs = Just \"Bug.hs\", hspp\n= Just \"Bug.hs\":\nCompiling Editor ( Bug.hs, Bug.o )\n*** Parser:\n*** Renamer:\n*** Typechecker:\n*** Desugar:\n Result size = 41\n*** Simplify:\n Result size = 52\n Result size = 24\n Result size = 24\n*** Specialise:\n Result size = 24\n*** Float out (not floating lambdas):\n Result size = 24\n*** Float inwards:\n Result size = 24\n*** Simplify:\n Result size = 19\n Result size = 19\n*** Simplify:\n Result size = 19\n*** Simplify:\n Result size = 19\n*** Demand analysis:\n Result size = 19\n*** Worker Wrapper binds:\n Result size = 19\n*** GlomBinds:\n*** Simplify:\n Result size = 19\n*** Float out (not floating lambdas):\n Result size = 19\n*** Common sub-expression:\n Result size = 19\n*** Float inwards:\n Result size = 19\n*** Simplify:\n Result size = 19\n*** Tidy Core:\n Result size = 19\n*** CorePrep:\n Result size = 19\n*** Stg2Stg:\n*** CodeGen:\n*** CodeOutput:\n*** Deleting temp files\nDeleting: /tmp/ghc4255.s /tmp/ghc4255.hspp\nWarning: deleting non-existent /tmp/ghc4255.hspp\nghc-5.02: panic! (the `impossible' happened, GHC\nversion 5.02):\n getRegister(x86,unary primop)\n (Prim deRefStablePtrzh Temp(B0StgAddr))\n\nPlease report it as a compiler bug to\nglasgow-haskell-bugs@haskell.org,\nor http://sourceforge.net/projects/ghc/.\n\n\nI compiled this version of ghc myself, using the Debian\npackaging scripts from the Debian ghc package.\n\nCarl Witty\n}}}","type_of_failure":"OtherFailure","blocking":[]} -->nobodynobodyhttps://gitlab.haskell.org/ghc/ghc/-/issues/19Include Files Not C++-Friendly2019-07-07T19:19:59Zashley-yInclude Files Not C++-Friendly```
The include files for Rts etc. are not C++-friendly.
Found:
Functions won't link correctly from C++, because C++ mangles the names.
Expected:
Function declarations should be surrounded by extern "C" guards:
#ifdef __cplusplus
ext...```
The include files for Rts etc. are not C++-friendly.
Found:
Functions won't link correctly from C++, because C++ mangles the names.
Expected:
Function declarations should be surrounded by extern "C" guards:
#ifdef __cplusplus
extern "C" {
#endif
...
#ifdef __cplusplus
}
#endif
```
<details><summary>Trac metadata</summary>
| Trac field | Value |
| ---------------------- | -------------- |
| Version | 5.02 |
| Type | Bug |
| TypeOfFailure | OtherFailure |
| Priority | normal |
| Resolution | ResolvedFixed |
| Component | Compiler (FFI) |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture | |
</details>
<!-- {"blocked_by":[],"summary":"Include Files Not C++-Friendly","status":"New","operating_system":"","component":"Compiler (FFI)","related":[],"milestone":"","resolution":"ResolvedFixed","owner":{"tag":"OwnedBy","contents":"simonmar"},"version":"5.02","keywords":[],"differentials":[],"test_case":"","architecture":"","cc":[""],"type":"Bug","description":"{{{\nThe include files for Rts etc. are not C++-friendly. \n\nFound:\nFunctions won't link correctly from C++, because C++ mangles the names.\n\nExpected:\nFunction declarations should be surrounded by extern \"C\" guards:\n\n#ifdef __cplusplus\nextern \"C\" {\n#endif\n\n...\n\n#ifdef __cplusplus\n}\n#endif\n\n}}}","type_of_failure":"OtherFailure","blocking":[]} -->Simon MarlowSimon Marlowhttps://gitlab.haskell.org/ghc/ghc/-/issues/20Quote filenames with spaces in in SrcLoc2019-07-07T19:19:58ZrrtQuote filenames with spaces in in SrcLoc```
To make parsing error messages easier, SrcLocs should quote file names that contain spaces. This would make life easier e.g. in the test suite, or when using Emacs to take you to the location of an error.
Hugs already does something...```
To make parsing error messages easier, SrcLocs should quote file names that contain spaces. This would make life easier e.g. in the test suite, or when using Emacs to take you to the location of an error.
Hugs already does something similar, I believe.
```
<details><summary>Trac metadata</summary>
| Trac field | Value |
| ---------------------- | ---------------- |
| Version | None |
| Type | FeatureRequest |
| TypeOfFailure | OtherFailure |
| Priority | normal |
| Resolution | ResolvedNoReason |
| Component | None |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture | |
</details>
<!-- {"blocked_by":[],"summary":"Quote filenames with spaces in in SrcLoc","status":"New","operating_system":"","component":"None","related":[],"milestone":"","resolution":"ResolvedNoReason","owner":{"tag":"OwnedBy","contents":"nobody"},"version":"None","keywords":[],"differentials":[],"test_case":"","architecture":"","cc":[""],"type":"FeatureRequest","description":"{{{\nTo make parsing error messages easier, SrcLocs should quote file names that contain spaces. This would make life easier e.g. in the test suite, or when using Emacs to take you to the location of an error.\n\nHugs already does something similar, I believe.\n}}}","type_of_failure":"OtherFailure","blocking":[]} -->nobodynobodyhttps://gitlab.haskell.org/ghc/ghc/-/issues/22import leakage2019-07-07T19:19:58Zcwittyimport leakage```
When I compile with ghc --make, sometimes imports from
one module "leak" into the imports list (in the .hi
file) of another, unrelated module that was compiled later.
For example:
Point.lhs is the following file:
\begin{code}
module...```
When I compile with ghc --make, sometimes imports from
one module "leak" into the imports list (in the .hi
file) of another, unrelated module that was compiled later.
For example:
Point.lhs is the following file:
\begin{code}
module Point (
module PointClass, module Point1, module Point2,
module Point3, module Point4, module PointN,
module Point
) where
import PointClass
import Point1
import Point2
import Point3
import Point4
import PointN
\end{code}
In one particular ghc run, files were compiled like this:
Skipping PointClass (
/sc/downloads/GeomAlgLib/haskell/PointClass.lhs,
/sc/downloads/GeomAlgLib/haskell/PointClass.o )
Skipping Point1 (
/sc/downloads/GeomAlgLib/haskell/Point1.lhs,
/sc/downloads/GeomAlgLib/haskell/Point1.o )
Skipping Point2 (
/sc/downloads/GeomAlgLib/haskell/Point2.lhs,
/sc/downloads/GeomAlgLib/haskell/Point2.o )
Skipping Point3 (
/sc/downloads/GeomAlgLib/haskell/Point3.lhs,
/sc/downloads/GeomAlgLib/haskell/Point3.o )
Skipping PointN (
/sc/downloads/GeomAlgLib/haskell/PointN.lhs,
/sc/downloads/GeomAlgLib/haskell/PointN.o )
Skipping Point4 (
/sc/downloads/GeomAlgLib/haskell/Point4.lhs,
/sc/downloads/GeomAlgLib/haskell/Point4.o )
Skipping GLExtra ( GLExtra.hs, GLExtra.o )
Skipping GtkExtra ( GtkExtra.hs, GtkExtra.o )
Compiling Point (
/sc/downloads/GeomAlgLib/haskell/Point.lhs,
/sc/downloads/GeomAlgLib/haskell/Point.o )
None of the Point* modules depend on GdkPixmap (as
verified by looking in their .hi files), but GtkExtra
does. After this run, Point.hi contains the line
import GdkPixmap !;
(This means that subsequent compiles of different
programs using Point will fail, since they don't have
the right compiler flags to find GdkPixmap.hi.)
System information:
Linux nebula 2.4.9-686 #1 Sun Aug 19 10:46:52 EST 2001
i686 unknown
gcc version 2.95.4 20011006 (Debian prerelease)
I am attaching a transcript of a compile run using -v.
```
<details><summary>Trac metadata</summary>
| Trac field | Value |
| ---------------------- | --------------- |
| Version | 5.02 |
| Type | Bug |
| TypeOfFailure | OtherFailure |
| Priority | normal |
| Resolution | ResolvedInvalid |
| Component | Compiler |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture | |
</details>
<!-- {"blocked_by":[],"summary":"import leakage","status":"New","operating_system":"","component":"Compiler","related":[],"milestone":"","resolution":"ResolvedInvalid","owner":{"tag":"OwnedBy","contents":"nobody"},"version":"5.02","keywords":[],"differentials":[],"test_case":"","architecture":"","cc":[""],"type":"Bug","description":"{{{\nWhen I compile with ghc --make, sometimes imports from\none module \"leak\" into the imports list (in the .hi\nfile) of another, unrelated module that was compiled later.\n\nFor example:\nPoint.lhs is the following file:\n\\begin{code}\nmodule Point (\n module PointClass, module Point1, module Point2, \n module Point3, module Point4, module PointN,\nmodule Point\n ) where\n\nimport PointClass\nimport Point1\nimport Point2\nimport Point3\nimport Point4\nimport PointN\n\\end{code}\n\nIn one particular ghc run, files were compiled like this:\nSkipping PointClass (\n/sc/downloads/GeomAlgLib/haskell/PointClass.lhs,\n/sc/downloads/GeomAlgLib/haskell/PointClass.o )\nSkipping Point1 (\n/sc/downloads/GeomAlgLib/haskell/Point1.lhs,\n/sc/downloads/GeomAlgLib/haskell/Point1.o )\nSkipping Point2 (\n/sc/downloads/GeomAlgLib/haskell/Point2.lhs,\n/sc/downloads/GeomAlgLib/haskell/Point2.o )\nSkipping Point3 (\n/sc/downloads/GeomAlgLib/haskell/Point3.lhs,\n/sc/downloads/GeomAlgLib/haskell/Point3.o )\nSkipping PointN (\n/sc/downloads/GeomAlgLib/haskell/PointN.lhs,\n/sc/downloads/GeomAlgLib/haskell/PointN.o )\nSkipping Point4 (\n/sc/downloads/GeomAlgLib/haskell/Point4.lhs,\n/sc/downloads/GeomAlgLib/haskell/Point4.o )\nSkipping GLExtra ( GLExtra.hs, GLExtra.o )\nSkipping GtkExtra ( GtkExtra.hs, GtkExtra.o )\nCompiling Point (\n/sc/downloads/GeomAlgLib/haskell/Point.lhs,\n/sc/downloads/GeomAlgLib/haskell/Point.o )\n\nNone of the Point* modules depend on GdkPixmap (as\nverified by looking in their .hi files), but GtkExtra\ndoes. After this run, Point.hi contains the line\nimport GdkPixmap !;\n(This means that subsequent compiles of different\nprograms using Point will fail, since they don't have\nthe right compiler flags to find GdkPixmap.hi.)\nSystem information:\nLinux nebula 2.4.9-686 #1 Sun Aug 19 10:46:52 EST 2001\ni686 unknown\ngcc version 2.95.4 20011006 (Debian prerelease)\n\nI am attaching a transcript of a compile run using -v.\n}}}","type_of_failure":"OtherFailure","blocking":[]} -->nobodynobodyhttps://gitlab.haskell.org/ghc/ghc/-/issues/23fundep bug across module boundary2019-07-07T19:19:58Znobodyfundep bug across module boundary```
Consider these two files:
BugImport.hs
module BugImport where
import IOExts
class Monad m => RefMonad m r | m -> r where
newRef :: a -> m (r a)
readRef :: r a -> m a
writeRef :: r a -> a -> m ()
instance RefMonad IO IORef w...```
Consider these two files:
BugImport.hs
module BugImport where
import IOExts
class Monad m => RefMonad m r | m -> r where
newRef :: a -> m (r a)
readRef :: r a -> m a
writeRef :: r a -> a -> m ()
instance RefMonad IO IORef where
newRef = newIORef
readRef = readIORef
writeRef = writeIORef
Bug.hs
import IOExts
import BugImport
foo () = do r <- newRef 1
readRef r
main = do i <- foo ()
print i
The type of foo is
(RefMonad m r, Num a) => () -> m a
so the fundep is needed to resolve the overloading. Bug
ghc complains:
Ambiguous type variable(s) 'r' in the constraint
`RefMonad IO r'
arising from use of `foo' at Bug.hs:7
In a do statement: i <- foo ()
i.e. the fundep is lost. This is compiled with
ghc5.02.1, -package
lang, -fglasgow-exts.
If all the definitions are placed in one module, on the
other hand,
then compilation succeeds. Alternatively, if these two
modules are
loaded into ghci, then they are accepted.
```
<details><summary>Trac metadata</summary>
| Trac field | Value |
| ---------------------- | ---------------- |
| Version | 5.02 |
| Type | Bug |
| TypeOfFailure | OtherFailure |
| Priority | normal |
| Resolution | ResolvedNoReason |
| Component | Compiler |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture | |
</details>
<!-- {"blocked_by":[],"summary":"fundep bug across module boundary","status":"New","operating_system":"","component":"Compiler","related":[],"milestone":"","resolution":"ResolvedNoReason","owner":{"tag":"OwnedBy","contents":"nobody"},"version":"5.02","keywords":[],"differentials":[],"test_case":"","architecture":"","cc":[""],"type":"Bug","description":"{{{\nConsider these two files:\n\nBugImport.hs\n\nmodule BugImport where\nimport IOExts\n\nclass Monad m => RefMonad m r | m -> r where\n newRef :: a -> m (r a)\n readRef :: r a -> m a\n writeRef :: r a -> a -> m ()\n\ninstance RefMonad IO IORef where\n newRef = newIORef\n readRef = readIORef\n writeRef = writeIORef\n\nBug.hs\n\nimport IOExts\nimport BugImport\n\nfoo () = do r <- newRef 1\n readRef r\n\nmain = do i <- foo ()\n print i\n\nThe type of foo is \n\n(RefMonad m r, Num a) => () -> m a\n\nso the fundep is needed to resolve the overloading. Bug\nghc complains:\n\nAmbiguous type variable(s) 'r' in the constraint\n`RefMonad IO r'\narising from use of `foo' at Bug.hs:7\nIn a do statement: i <- foo ()\n\ni.e. the fundep is lost. This is compiled with\nghc5.02.1, -package \nlang, -fglasgow-exts.\n\nIf all the definitions are placed in one module, on the\nother hand,\nthen compilation succeeds. Alternatively, if these two\nmodules are\nloaded into ghci, then they are accepted.\n}}}","type_of_failure":"OtherFailure","blocking":[]} -->nobodynobodyhttps://gitlab.haskell.org/ghc/ghc/-/issues/24dlopen() errors reported badly2019-07-07T19:19:58Zcwittydlopen() errors reported badly```
(BTW, shouldn't there be a category in the sourceforge
bug-reporting page for "ghci"?)
ghci reports all dlopen() errors as "Can't find
(dynamic) ...". This misleading error message wasted
quite a bit of my time trying to figure out...```
(BTW, shouldn't there be a category in the sourceforge
bug-reporting page for "ghci"?)
ghci reports all dlopen() errors as "Can't find
(dynamic) ...". This misleading error message wasted
quite a bit of my time trying to figure out why it
couldn't find the library that was "right there".
For example:
galaxy% ghci -lXpm
___ ___ _
/ _ \ /\ /\/ __(_)
/ /_\// /_/ / / | | GHC Interactive, version
5.02, for Haskell 98.
/ /_\\/ __ / /___| | http://www.haskell.org/ghc/
\____/\/ /_/\____/|_| Type :? for help.
Loading package std ... linking ... done.
Loading object (dynamic) Xpm ... failed.
Can't find (dynamic) Xpm in directories:
ghc-5.02: user specified .o/.so/.DLL could not be
loaded.
galaxy%
ghci reported that it couldn't find a dynamic libXpm.
However, a little peeking with ltrace reveals the real
problem:
galaxy% ltrace -e 'dlerror,dlopen' -s 300
/usr/lib/ghc-5.02/ghc-5.02 -B/usr/lib/ghc-5.02
--interactive -lXpm
___ ___ _
/ _ \ /\ /\/ __(_)
/ /_\// /_/ / / | | GHC Interactive, version
5.02, for Haskell 98.
/ /_\\/ __ / /___| | http://www.haskell.org/ghc/
\____/\/ /_/\____/|_| Type :? for help.
dlopen(NULL, 1) =
0x400153d8
Loading package std ... --- SIGVTALRM (Virtual timer
expired) ---
--- SIGVTALRM (Virtual timer expired) ---
linking ... --- SIGVTALRM (Virtual timer expired) ---
--- SIGVTALRM (Virtual timer expired) ---
--- SIGVTALRM (Virtual timer expired) ---
--- SIGVTALRM (Virtual timer expired) ---
done.
Loading object (dynamic) Xpm ... dlopen("libXpm.so",
258) = NULL
dlerror() =
"/usr/X11R6/lib/libXpm.so: undefined symbol:
XDefaultScreen"
failed.
Can't find (dynamic) Xpm in directories:
ghc-5.02: user specified .o/.so/.DLL could not be
loaded.
Armed with the real error message from dlerror()
("undefined symbol: XDefaultScreen"), I can deduce that
I really need to use -lX11 as well.
galaxy% ghci -lXpm -lX11
___ ___ _
/ _ \ /\ /\/ __(_)
/ /_\// /_/ / / | | GHC Interactive, version
5.02, for Haskell 98.
/ /_\\/ __ / /___| | http://www.haskell.org/ghc/
\____/\/ /_/\____/|_| Type :? for help.
Loading package std ... linking ... done.
Loading object (dynamic) X11 ... done
Loading object (dynamic) Xpm ... done
final link ... done.
Prelude>
As expected, this works fine.
galaxy% uname -a
Linux galaxy 2.4.14-pre6 #1 Thu Nov 1 02:23:35 PST 2001
i686 unknown
galaxy% gcc -v
Reading specs from
/usr/lib/gcc-lib/i386-linux/2.95.4/specs
gcc version 2.95.4 20011006 (Debian prerelease)
```
<details><summary>Trac metadata</summary>
| Trac field | Value |
| ---------------------- | ------------- |
| Version | 5.02 |
| Type | Bug |
| TypeOfFailure | OtherFailure |
| Priority | normal |
| Resolution | ResolvedFixed |
| Component | Driver |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture | |
</details>
<!-- {"blocked_by":[],"summary":"dlopen() errors reported badly","status":"New","operating_system":"","component":"Driver","related":[],"milestone":"","resolution":"ResolvedFixed","owner":{"tag":"OwnedBy","contents":"nobody"},"version":"5.02","keywords":[],"differentials":[],"test_case":"","architecture":"","cc":[""],"type":"Bug","description":"{{{\n(BTW, shouldn't there be a category in the sourceforge\nbug-reporting page for \"ghci\"?)\n\nghci reports all dlopen() errors as \"Can't find\n(dynamic) ...\". This misleading error message wasted\nquite a bit of my time trying to figure out why it\ncouldn't find the library that was \"right there\".\n\nFor example:\ngalaxy% ghci -lXpm\n ___ ___ _\n / _ \\ /\\ /\\/ __(_)\n / /_\\// /_/ / / | | GHC Interactive, version\n5.02, for Haskell 98.\n/ /_\\\\/ __ / /___| | http://www.haskell.org/ghc/\n\\____/\\/ /_/\\____/|_| Type :? for help.\n\nLoading package std ... linking ... done.\nLoading object (dynamic) Xpm ... failed.\nCan't find (dynamic) Xpm in directories:\nghc-5.02: user specified .o/.so/.DLL could not be\nloaded.\ngalaxy%\n\nghci reported that it couldn't find a dynamic libXpm. \nHowever, a little peeking with ltrace reveals the real\nproblem:\n\ngalaxy% ltrace -e 'dlerror,dlopen' -s 300 \n/usr/lib/ghc-5.02/ghc-5.02 -B/usr/lib/ghc-5.02\n--interactive -lXpm\n ___ ___ _\n / _ \\ /\\ /\\/ __(_)\n / /_\\// /_/ / / | | GHC Interactive, version\n5.02, for Haskell 98.\n/ /_\\\\/ __ / /___| | http://www.haskell.org/ghc/\n\\____/\\/ /_/\\____/|_| Type :? for help.\n\ndlopen(NULL, 1) =\n0x400153d8\nLoading package std ... --- SIGVTALRM (Virtual timer\nexpired) ---\n--- SIGVTALRM (Virtual timer expired) ---\nlinking ... --- SIGVTALRM (Virtual timer expired) ---\n--- SIGVTALRM (Virtual timer expired) ---\n--- SIGVTALRM (Virtual timer expired) ---\n--- SIGVTALRM (Virtual timer expired) ---\ndone.\nLoading object (dynamic) Xpm ... dlopen(\"libXpm.so\",\n258) = NULL\ndlerror() =\n\"/usr/X11R6/lib/libXpm.so: undefined symbol:\nXDefaultScreen\"\nfailed.\nCan't find (dynamic) Xpm in directories:\nghc-5.02: user specified .o/.so/.DLL could not be\nloaded.\n\nArmed with the real error message from dlerror()\n(\"undefined symbol: XDefaultScreen\"), I can deduce that\nI really need to use -lX11 as well.\n\ngalaxy% ghci -lXpm -lX11\n ___ ___ _\n / _ \\ /\\ /\\/ __(_)\n / /_\\// /_/ / / | | GHC Interactive, version\n5.02, for Haskell 98.\n/ /_\\\\/ __ / /___| | http://www.haskell.org/ghc/\n\\____/\\/ /_/\\____/|_| Type :? for help.\n\nLoading package std ... linking ... done.\nLoading object (dynamic) X11 ... done\nLoading object (dynamic) Xpm ... done\nfinal link ... done.\nPrelude> \n\nAs expected, this works fine.\n\ngalaxy% uname -a\nLinux galaxy 2.4.14-pre6 #1 Thu Nov 1 02:23:35 PST 2001\ni686 unknown\ngalaxy% gcc -v\nReading specs from\n/usr/lib/gcc-lib/i386-linux/2.95.4/specs\ngcc version 2.95.4 20011006 (Debian prerelease)\n\n}}}","type_of_failure":"OtherFailure","blocking":[]} -->nobodynobodyhttps://gitlab.haskell.org/ghc/ghc/-/issues/27Manual title pages on the wrong side2019-07-07T19:19:57ZnobodyManual title pages on the wrong side```
When one prints the manual on two-sided paper, the
title pages
of the two parts come out on the second side rather
than on the first side (on the left, rather than on the
right, in an open folder). A few blank pages must be
added, s...```
When one prints the manual on two-sided paper, the
title pages
of the two parts come out on the second side rather
than on the first side (on the left, rather than on the
right, in an open folder). A few blank pages must be
added, so that the title pages (as well as the
beginning pages of the tables of contents and the first
pages of the text proper) are where one expects them in
a book.
```
<details><summary>Trac metadata</summary>
| Trac field | Value |
| ---------------------- | ----------------- |
| Version | None |
| Type | Bug |
| TypeOfFailure | OtherFailure |
| Priority | lowest |
| Resolution | ResolvedOutOfDate |
| Component | Documentation |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture | |
</details>
<!-- {"blocked_by":[],"summary":"Manual title pages on the wrong side","status":"New","operating_system":"","component":"Documentation","related":[],"milestone":"","resolution":"ResolvedOutOfDate","owner":{"tag":"OwnedBy","contents":"nobody"},"version":"None","keywords":[],"differentials":[],"test_case":"","architecture":"","cc":[""],"type":"Bug","description":"{{{\nWhen one prints the manual on two-sided paper, the\ntitle pages\nof the two parts come out on the second side rather\nthan on the first side (on the left, rather than on the\nright, in an open folder). A few blank pages must be\nadded, so that the title pages (as well as the\nbeginning pages of the tables of contents and the first\npages of the text proper) are where one expects them in\na book.\n}}}","type_of_failure":"OtherFailure","blocking":[]} -->nobodynobodyhttps://gitlab.haskell.org/ghc/ghc/-/issues/30Check for exhaustive patterns continued2019-07-07T19:19:56ZnobodyCheck for exhaustive patterns continued```
An atttempt to attach a file to the last submission
resulted in the
following message from Netscape (?):
Fatal error: Call to a member function on a
non-object in common/tracker/ArtifactFile.class on
line 106
So I include the fi...```
An atttempt to attach a file to the last submission
resulted in the
following message from Netscape (?):
Fatal error: Call to a member function on a
non-object in common/tracker/ArtifactFile.class on
line 106
So I include the file below (the line numbers will be
changed),
================================
module See where
data Tree key value
= EMPTY
| TREE key value (Tree key value) (Tree
key value)
insert :: ( Ord key ) =>
key -> value -> -- insert this
new key and value
Tree key value -> -- into this
tree
Maybe (Tree key value) -- to form (Just
new tree ),
--
or Nothing if key is present
insert k v EMPTY = Just (TREE k v EMPTY EMPTY)
insert k v (TREE k' v' left right)
| k < k' = case insert k v left of
Nothing -> Nothing
Just left' -> Just (TREE k' v'
left' right)
| k > k' = case insert k v right of
Nothing -> Nothing
Just right' -> Just (TREE k' v'
left right')
| k == k' = Nothing
-- Same with a case expression:
insert' :: ( Ord key ) =>
key -> value -> Tree key value -> Maybe
(Tree key value)
insert' k v t =
case t of
EMPTY -> Just (TREE k v EMPTY EMPTY)
(TREE k' v' left right)
| k < k' -> case insert' k v left of
Nothing -> Nothing
Just left' -> Just (TREE
k' v' left' right)
| k > k' -> case insert' k v right of
Nothing -> Nothing
Just right' -> Just (TREE
k' v' left right')
| k == k' -> Nothing
-- Nonsensical, but patterns without guards:
insert'' ::
key -> value -> Tree key value -> Maybe (Tree key
value)
insert'' _ _ EMPTY = Nothing
insert'' k v (TREE _ _ left right) = Just (TREE k v
left right)
======================================
```
<details><summary>Trac metadata</summary>
| Trac field | Value |
| ---------------------- | ----------------- |
| Version | 5.02 |
| Type | Bug |
| TypeOfFailure | OtherFailure |
| Priority | normal |
| Resolution | ResolvedDuplicate |
| Component | Compiler |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture | |
</details>
<!-- {"blocked_by":[],"summary":"Check for exhaustive patterns continued","status":"New","operating_system":"","component":"Compiler","related":[],"milestone":"","resolution":"ResolvedDuplicate","owner":{"tag":"OwnedBy","contents":"nobody"},"version":"5.02","keywords":[],"differentials":[],"test_case":"","architecture":"","cc":[""],"type":"Bug","description":"{{{\nAn atttempt to attach a file to the last submission\nresulted in the\nfollowing message from Netscape (?):\n Fatal error: Call to a member function on a\nnon-object in common/tracker/ArtifactFile.class on\nline 106\n\nSo I include the file below (the line numbers will be\nchanged),\n\n================================\nmodule See where\n\ndata Tree key value \n = EMPTY\n | TREE key value (Tree key value) (Tree\nkey value)\n\n\ninsert :: ( Ord key ) =>\n key -> value -> -- insert this\nnew key and value\n Tree key value -> -- into this\ntree\n Maybe (Tree key value) -- to form (Just\nnew tree ),\n -- \nor Nothing if key is present\n\ninsert k v EMPTY = Just (TREE k v EMPTY EMPTY)\n\ninsert k v (TREE k' v' left right)\n\n | k < k' = case insert k v left of\n Nothing -> Nothing\n Just left' -> Just (TREE k' v'\nleft' right)\n\n | k > k' = case insert k v right of\n Nothing -> Nothing\n Just right' -> Just (TREE k' v'\nleft right')\n\n | k == k' = Nothing\n\n\n-- Same with a case expression:\n\ninsert' :: ( Ord key ) =>\n key -> value -> Tree key value -> Maybe\n(Tree key value)\n\ninsert' k v t =\n\n case t of\n\n EMPTY -> Just (TREE k v EMPTY EMPTY)\n\n (TREE k' v' left right)\n\n | k < k' -> case insert' k v left of\n Nothing -> Nothing\n Just left' -> Just (TREE\nk' v' left' right)\n\n | k > k' -> case insert' k v right of\n Nothing -> Nothing\n Just right' -> Just (TREE\nk' v' left right')\n\n | k == k' -> Nothing\n\n\n-- Nonsensical, but patterns without guards:\n\ninsert'' :: \n key -> value -> Tree key value -> Maybe (Tree key\nvalue)\n\ninsert'' _ _ EMPTY = Nothing\n\ninsert'' k v (TREE _ _ left right) = Just (TREE k v\nleft right)\n\n======================================\n\n\n}}}","type_of_failure":"OtherFailure","blocking":[]} -->nobodynobodyhttps://gitlab.haskell.org/ghc/ghc/-/issues/31No -fnowarn-missing-signature2019-07-07T19:19:56ZnobodyNo -fnowarn-missing-signature```
On p. 53 the manual says (in the description of
"-Wall"):
To turn off any warning, simply give the corresponding
-fno-warn-... option on the command line.
One of the options is -fwarn-missing-signatures (p.
54). Yet the compiler...```
On p. 53 the manual says (in the description of
"-Wall"):
To turn off any warning, simply give the corresponding
-fno-warn-... option on the command line.
One of the options is -fwarn-missing-signatures (p.
54). Yet the compiler produces an error message:
> ghc --make -odir ../ghc -hidir ../ghc
testDeclarationsMain.hs -o testDeclarations -Wall
-fnowarn-missing-signatures
ghc-5.02.1: unrecognised flag:
-fnowarn-missing-signatures
```
<details><summary>Trac metadata</summary>
| Trac field | Value |
| ---------------------- | ---------------- |
| Version | None |
| Type | Bug |
| TypeOfFailure | OtherFailure |
| Priority | normal |
| Resolution | ResolvedNoReason |
| Component | Documentation |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture | |
</details>
<!-- {"blocked_by":[],"summary":"No -fnowarn-missing-signature","status":"New","operating_system":"","component":"Documentation","related":[],"milestone":"","resolution":"ResolvedNoReason","owner":{"tag":"OwnedBy","contents":"nobody"},"version":"None","keywords":[],"differentials":[],"test_case":"","architecture":"","cc":[""],"type":"Bug","description":"{{{\nOn p. 53 the manual says (in the description of\n\"-Wall\"):\n\n To turn off any warning, simply give the corresponding\n-fno-warn-... option on the command line.\n\nOne of the options is -fwarn-missing-signatures (p.\n54). Yet the compiler produces an error message:\n\n > ghc --make -odir ../ghc -hidir ../ghc\ntestDeclarationsMain.hs -o testDeclarations -Wall\n-fnowarn-missing-signatures\n ghc-5.02.1: unrecognised flag:\n-fnowarn-missing-signatures\n}}}","type_of_failure":"OtherFailure","blocking":[]} -->nobodynobodyhttps://gitlab.haskell.org/ghc/ghc/-/issues/33segfaults in Show instance2019-07-07T19:19:55Zspannesegfaults in Show instance```
ghci-5.03 from CVS currently segfaults if the attached
file is loaded and main is interpreted. Everything is
fine when the program is compiled and the executable is
run or the object file is loaded into ghci. A bug in
the bytecode co...```
ghci-5.03 from CVS currently segfaults if the attached
file is loaded and main is interpreted. Everything is
fine when the program is compiled and the executable is
run or the object file is loaded into ghci. A bug in
the bytecode compiler/interpreter?
Note that innocuous looking changes (e.g. lifting
showsDefs to the toplevel) make this program work in
ghci.
```
<details><summary>Trac metadata</summary>
| Trac field | Value |
| ---------------------- | ------------- |
| Version | None |
| Type | Bug |
| TypeOfFailure | OtherFailure |
| Priority | low |
| Resolution | ResolvedFixed |
| Component | Compiler |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture | |
</details>
<!-- {"blocked_by":[],"summary":"segfaults in Show instance","status":"New","operating_system":"","component":"Compiler","related":[],"milestone":"","resolution":"ResolvedFixed","owner":{"tag":"OwnedBy","contents":"nobody"},"version":"None","keywords":[],"differentials":[],"test_case":"","architecture":"","cc":[""],"type":"Bug","description":"{{{\nghci-5.03 from CVS currently segfaults if the attached\nfile is loaded and main is interpreted. Everything is\nfine when the program is compiled and the executable is\nrun or the object file is loaded into ghci. A bug in\nthe bytecode compiler/interpreter?\n\nNote that innocuous looking changes (e.g. lifting\nshowsDefs to the toplevel) make this program work in\nghci.\n}}}","type_of_failure":"OtherFailure","blocking":[]} -->nobodynobodyhttps://gitlab.haskell.org/ghc/ghc/-/issues/34Installing on Solaris 5.62019-07-07T19:19:55ZklyneInstalling on Solaris 5.6```
I can't install ghc 5.02.1 on Solaris 5.6.
If I try the binary package I get no complaints,
but when I type ghc --version I get:
ld.so.1: /home/kort/pkgs/ghc/lib/ghc-5.02.1/ghc-5.02.1:
fatal: libcurses.so.1: open failed: No such fil...```
I can't install ghc 5.02.1 on Solaris 5.6.
If I try the binary package I get no complaints,
but when I type ghc --version I get:
ld.so.1: /home/kort/pkgs/ghc/lib/ghc-5.02.1/ghc-5.02.1:
fatal: libcurses.so.1: open failed: No such file or
directory
If I try the sources tar -xf ghc-5.02.1-src-1.tar
fails with: tar: directory checksum error.
```
<details><summary>Trac metadata</summary>
| Trac field | Value |
| ---------------------- | ------------- |
| Version | 5.02 |
| Type | Bug |
| TypeOfFailure | OtherFailure |
| Priority | normal |
| Resolution | ResolvedFixed |
| Component | None |
| Test case | |
| Differential revisions | |
| BlockedBy | |
| Related | |
| Blocking | |
| CC | |
| Operating system | |
| Architecture | |
</details>
<!-- {"blocked_by":[],"summary":"Installing on Solaris 5.6","status":"New","operating_system":"","component":"None","related":[],"milestone":"","resolution":"ResolvedFixed","owner":{"tag":"OwnedBy","contents":"nobody"},"version":"5.02","keywords":[],"differentials":[],"test_case":"","architecture":"","cc":[""],"type":"Bug","description":"{{{\nI can't install ghc 5.02.1 on Solaris 5.6.\nIf I try the binary package I get no complaints,\nbut when I type ghc --version I get:\n\nld.so.1: /home/kort/pkgs/ghc/lib/ghc-5.02.1/ghc-5.02.1:\nfatal: libcurses.so.1: open failed: No such file or\ndirectory\n\nIf I try the sources tar -xf ghc-5.02.1-src-1.tar \nfails with: tar: directory checksum error.\n\n}}}","type_of_failure":"OtherFailure","blocking":[]} -->nobodynobody