diff options
author | Moritz Angermann <moritz.angermann@gmail.com> | 2021-02-13 16:44:19 +0800 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-03-29 17:25:49 -0400 |
commit | e754ff7f178a629a2261cba77a29d9510391aebd (patch) | |
tree | 77aca9f315288b52efbc9d410a57300a4029279d /testsuite/tests/th | |
parent | 4421fb34b3a70db1323833337c94ac4364824124 (diff) | |
download | haskell-e754ff7f178a629a2261cba77a29d9510391aebd.tar.gz |
Allocate Adjustors and mark them readable in two steps
This drops allocateExec for darwin, and replaces it with
a alloc, write, mark executable strategy instead. This prevents
us from trying to allocate an executable range and then write to
it, which X^W will prohibit on darwin.
This will *only* work if we can use mmap.
Diffstat (limited to 'testsuite/tests/th')
-rw-r--r-- | testsuite/tests/th/T10279.hs | 4 | ||||
-rw-r--r-- | testsuite/tests/th/T10279.stderr | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/testsuite/tests/th/T10279.hs b/testsuite/tests/th/T10279.hs index fbc2dbbf51..ea0d79de29 100644 --- a/testsuite/tests/th/T10279.hs +++ b/testsuite/tests/th/T10279.hs @@ -2,9 +2,9 @@ module T10279 where import Language.Haskell.TH import Language.Haskell.TH.Syntax --- NB: rts-1.0 is used here because it doesn't change. +-- NB: rts-1.0.1 is used here because it doesn't change. -- You do need to pick the right version number, otherwise the -- error message doesn't recognize it as a source package ID, -- (This is OK, since it will look obviously wrong when they -- try to find the package in their package database.) -blah = $(conE (Name (mkOccName "Foo") (NameG VarName (mkPkgName "rts-1.0") (mkModName "A")))) +blah = $(conE (Name (mkOccName "Foo") (NameG VarName (mkPkgName "rts-1.0.1") (mkModName "A")))) diff --git a/testsuite/tests/th/T10279.stderr b/testsuite/tests/th/T10279.stderr index e71f28795b..b66e5b4fba 100644 --- a/testsuite/tests/th/T10279.stderr +++ b/testsuite/tests/th/T10279.stderr @@ -1,8 +1,8 @@ T10279.hs:10:9: error: • Failed to load interface for ‘A’ - no unit id matching ‘rts-1.0’ was found + no unit id matching ‘rts-1.0.1’ was found (This unit ID looks like the source package ID; the real unit ID is ‘rts’) - • In the expression: rts-1.0:A.Foo - In an equation for ‘blah’: blah = (rts-1.0:A.Foo) + • In the expression: rts-1.0.1:A.Foo + In an equation for ‘blah’: blah = (rts-1.0.1:A.Foo) |